有谁用过FSFWRAP? 可以用于在VB里为DIRECTSHOW的FILTER显示属性页我初始化里面的SINKINFO对象的时候
dim aaa as sinkinfo
set aaa =new sinkinfo出现    自动化错误请大神支招该怎么解决这个问题?

解决方案 »

  1.   

    首先,你需要引用相关的类型库
    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分给我.