• 3366阅读
  • 0回复

能否给个VB6 免注册调用APlayer.dll的例子 [复制链接]

上一主题 下一主题
离线ivasox
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 2015-01-23
我按SDK 的没写 完整,在 程序 有托盘图标时,鼠标经过就会报错。
Public Function CreatePlayer(ByVal hwnd As Long)
XDllGetClassObject CLSID_coclass, IID_IClassFactory, XIClassFactory

If XIClassFactory Is Nothing Then
    MsgBox "获取类工厂失败!", , "错误"
    Exit Function
End If

XIClassFactory.CreateInstance Nothing, IID_IUnknown, XIUnknown       '创建 实例

If XIUnknown Is Nothing Then
    MsgBox "创建 XIUnknown 失败!", , "错误"
    Exit Function
Else
    AtlAxAttachControl ObjPtr(XIUnknown), hwnd, 0
End If
'看SDK 这里 还有没完成的  hr = pDispatch->QueryInterface(__uuidof(APlayer3Lib::IPlayer), (void **)&g_pPlayer);
' 我无法 完成 ,请 帮助 我 谢谢,所以我直接 用了下面那句。
Set APlayer = XIUnknown

快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个