vb如何用avi的api提取avi文件里的wav音频？

hc2008l5 2019-08-23 04:28:25

vb如何用avi的vfw系列api提取avi文件里的wav音频？

...全文

576 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

hc2008l5 2021-05-21

打赏
举报

https://bbs.csdn.net/topics/330009825

hc2008l5 2020-07-01

打赏
举报

https://blog.csdn.net/imxiangzi/article/details/80265978

hc2008l5 2020-04-03

打赏
举报

https://bbs.csdn.net/topics/425942

东方之珠 2020-03-20

打赏
举报

把它简单化，用shell调用FFmpeg：

Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
           '设置输出文件
           Dim S As String
           Dim Inputfile As String '输入文件
           Dim Outputfile As String '输出文件
           Outputfile = "D:\OutPutFile.wav"
           If Dir(Outputfile) = "" Then '文件不存在则创建
              FileNumber = FreeFile
              Open cjlT1 For Binary As #FileNumber
              Put #FileNumber, , Chr(0)
              Close #FileNumber
           End If
           S = String(LenB(Outputfile), Chr(0))
           GetShortPathName Outputfile, S, Len(S)
           Outputfile = left(S, InStr(S, Chr(0)) - 1)
           '设置环境变量以支持FFmpeg输入文件路径
           FileNumber = SetEnvironmentVariable("Path", FFmpegPath) '设置FFmpeg文件所在路径
           S = "ffmpeg -i """ & Inputfile & """ -f wav -acodec pcm_s16le -ac 1 -y " & Outputfile
           Call Shell(S, vbHide)

hc2008l5 2020-03-12