重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
MP3是音频文件,DAT是VCD视频文件。
成都创新互联专业为企业提供岳阳网站建设、岳阳做网站、岳阳网站设计、岳阳网站制作等企业网站建设、网页设计与制作、岳阳企业网站模板建站服务,十年岳阳做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
说实话转起来很难。不过如果你一定要转成DAT,可以导入MP3文件到视频制作软件中(比如会声会影或Premiere),MP3文件放在音轨中,视频轨中加入一些图片,这样能行。
如果你想制作的是可以在VCD机上播放的东西,把MP3文件刻录成CD光盘就可以了。
你的问题只有这两个办法。
这个不能无发转,DAT这个格式是一些软件存的数据,不同的软件的编码不一样,而且DAT格式还有VCD光盘中的视频也是这个格式,部分软件的数据也采用这种格式,所以转不了。视频到还可以,其它的就不行了。
这个做法应该是图方便的加密解密做法。按你的C#代码来改的话是这样的。
'Imports System.IO
Public Function MapPath(ByVal virtualPath As String) As String
' Return System.Web.Hosting.MapPath(virtualPath)
' 猜想是这个 MapPath 函数
' 如果不是那就自己还原原来C#代码里的那个MapPath
End Function
Public Sub GetImage()
Dim s As System.IO.Stream = System.IO.File.Open(MapPath("33.jpg"), System.IO.FileMode.Open)
Dim leng As Integer = 0
If s.Length Int32.MaxValue Then
leng = s.Length
End If
Dim by(leng) As Byte
s.Read(by, 0, leng) ' 把图片读到字节数组中
s.Close()
Dim str As String = Convert.ToBase64String(by) ' 把字节数组转换成字符串
Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(MapPath("11.txt")) ' 存入11.txt文件
sw.Write(str)
sw.Close()
sw.Dispose()
End Sub
' 把字符串还原成图片
Public Sub CreateImg()
Dim sr As New System.IO.StreamReader(MapPath("11.txt"))
Dim s As String = sr.ReadToEnd()
sr.Close()
Dim buf As Byte() = Convert.FromBase64String(s) ' 把字符串读到字节数组中
Dim ms As New System.IO.MemoryStream(buf)
Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)
img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
ms.Close()
ms.Dispose()
End Sub