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
uj5u.com熱心網友回復：
upup
up
uj5u.com熱心網友回復：
file source -> avi splitter -> wave dest -> file writeruj5u.com熱心網友回復：
https://docs.microsoft.com/zh-cn/windows/win32/imapi/creating-a-multisession-disc轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/23418.html
標籤：多媒體
上一篇：關于VB打包OCX控制元件的問題
下一篇：VB用一維陣列 代碼怎么撰寫