Sub SetAviDats (I $)
On Error GoTo e
Dim As IFilterInfo k, c As IFilterInfo, d As IFilterInfo, n As IFilterInfo, p (3) As IPinInfo
The Set of le=New FilgraphManager
SetFlter k, WAV "Dest"
SetFlter c, AVI/WAV File "Source", "
AVI Mux SetFlter d, "
SetFlter n, "the File writer", "
C.F ileName="E: \ 1. Avi"
N.F ileName="E: \ 1. Wav" 'run to the wrong, I don't know what should I do?
C.F indPin "1", p (0)
E: MsgBox Err. The Description
End Sub
Sub SetFlter (I As IFilterInfo, j $)
On Error GoTo e
Dim As IRegFilterInfo k, c $
For Each k In le. RegFilterCollection
If InStr (k.N ame, j) Then
K.F ilter I
GoTo e
End the If
Next
E: Err. Clear
End Sub
CodePudding user response:
The upThe up
up
CodePudding user response:
The file source - & gt; Avi splitter - & gt; Wave dest - & gt; The file writerCodePudding user response:
https://docs.microsoft.com/zh-cn/windows/win32/imapi/creating-a-multisession-disc