有谁用过FSFWRAP.DLL
有谁用过FSFWRAP？ 可以用于在VB里为DIRECTSHOW的FILTER显示属性页
我初始化里面的SINKINFO对象的时候
dim aaa as sinkinfo
set aaa =new sinkinfo
出现 自动化错误
请大神支招该怎么解决这个问题？
[解决办法]
首先,你需要引用相关的类型库
1. ActiveMovie control type library (Microsoft提供的DirectShow COM接口库,Quartz.dll)
2. FSFWrap 1.0 Type Library (你说的用于上面那个COM的包装类库,实现了一些Unknown接口)
引用正确,通常不会出现自动化错误.
Example:
'显示属性页
Dim f As IFilterInfo
Set f = connectingfilter '这个对象在FilterCollection集合中查找,并判断其Pins的连接状态就可以知道是不是当前连接的Filter.
If Not f Is Nothing Then
Dim si As SinkInfo
Set si = New SinkInfo
si.filter = f
si.ShowPropPage Me.hwnd 'Parent Hwnd.
Set si = Nothing
Set f = Nothing
End If
