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
...全文
147 3 打赏 收藏 举报
写回复
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
  • 打赏
  • 举报
回复
相关推荐
发帖
多媒体
加入

807

社区成员

VB 多媒体
社区管理员
  • 多媒体
申请成为版主
帖子事件
创建了帖子
2019-08-22 04:54
社区公告
暂无公告