以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样把接收的Base64转换为mp3文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184434)
--  作者：yellow
--  发布时间：2022/12/7 11:54:00
--  怎样把接收的Base64转换为mp3文件
接收到返回的base64，不会还原为mp3文件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:返回的jsonstring.txt

。
--  作者：有点蓝
--  发布时间：2022/12/7 12:07:00
--  
Dim source As String = FileSys.ReadAllText("D:\\问题\\返回的jsonstring.txt")
Dim jo As JObject = JObject.Parse(source)
Dim bytes() As Byte = Convert.FromBase64String(jo("Audio").ToString)
Using fs As New io.FileStream("d:\\问题\\abc.mp3", io.FileMode.Create, io.FileAccess.Write)
    fs.Write(bytes, 0, bytes.Length)
    fs.Flush()
End Using
--  作者：yellow
--  发布时间：2022/12/7 14:44:00
--  
渥，简洁完美！