有哪位高手用过FSFWRAP.DLL

有谁用过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



如果能解决您的问题,请把300分给我.