vb调用directshow提取avi音频?

hc2008l5 2019-08-22 04:54:11
Dim le As FilgraphManager
Sub SetAviDats(i$)
On Error GoTo e
Dim k As IFilterInfo, c As IFilterInfo, d As IFilterInfo, n As IFilterInfo, p(3) As IPinInfo
Set le = New FilgraphManager
SetFlter k, "WAV Dest"
SetFlter c, "AVI/WAV File Source"
SetFlter d, "AVI Mux"
SetFlter n, "File writer"
c.FileName = "E:\1.avi"
n.FileName = "E:\1.wav" '运行到这句错了,不知该怎么办?
c.FindPin "1", p(0)

e: MsgBox Err.Description
End Sub

Sub SetFlter(i As IFilterInfo, j$)
On Error GoTo e
Dim k As IRegFilterInfo, c$
For Each k In le.RegFilterCollection
If InStr(k.Name, j) Then
k.Filter i
GoTo e
End If
Next
e: Err.Clear
End Sub
...全文
295 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
hc2008l5 2019-10-18
  • 打赏
  • 举报
回复
https://docs.microsoft.com/zh-cn/windows/win32/imapi/creating-a-multisession-disc
hc2008l5 2019-08-23
  • 打赏
  • 举报
回复
file source -> avi splitter -> wave dest -> file writer

hc2008l5 2019-08-22
  • 打赏
  • 举报
回复
up
up
up

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧