对VB6接口方法的后期绑定调用
对VB6接口方法的后期绑定调用
提问于 2016-07-28 18:08:31
在我的C++程序中，我使用一个COM类，它是在VB6 COM DLL中实现的。让我们把这个类称为CETicketRA。该类具有类型为AppliedPromotion的属性IPositionPromotion。IPositionPromotion是由同一个VB6 COM DLL定义的接口。它具有我试图从C++访问的各种属性和方法。
考虑到以下代码：
IDispatch* pETicketRA = NULL;
DISPPARAMS dispParams = {0};
VARIANT result;
VariantInit(&result);
// Left out: some code to set pETicketRA ...
OLECHAR* strAppliedPromotion = L"AppliedPromotion";
DISPID dispIDAppliedPromotion = -1;
HRESULT hr = pETicketRA->GetIDsOfNames(IID_NULL, &strAppliedPromotion, 1, LOCALE_SYSTEM_DEFAULT, &dispIDAppliedPromotion);
hr = pETicketRA->Invoke(dispIDAppliedPromotion, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, NULL, NULL);
IDispatch* pPromo = NULL;
hr = result.pdispVal->QueryInterface(IID_IDispatch, reinterpret_cast<LPVOID*>(&pPromo));
VariantClear(&result);现在我试着阅读属性Foobar of IPositionPromotion
OLECHAR* strFoobar = L"Foobar";
DISPID dispIDFoobar = -1;
hr = pPromo->GetIDsOfNames(IID_NULL, &strFoobar, 1, LOCALE_SYSTEM_DEFAULT, &dispIDFoobar);不幸的是，最后一次调用在DISP_E_UNKNOWNNAME中失败了。
是否有人成功地从VB6 (或C#)调用了C++接口成员？
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-07-29 20:46:38
VB6使用显式接口实现。实现接口的方法不会成为实现对象的公共接口的一部分，为了调用它们，您需要显式地请求接口。如果您愿意，稍后可以将IDispatch从该接口中请求出来，但是您需要首先查询接口，因为您从对象本身获得的IDispatch和从该对象实现的接口获得的IDispatch将是不同的IDispatches。
所以当你有：
' IInterface.cls
Public Sub Method()
End Sub' Class1.cls
Implements IInterface
Private Sub IInterface_Method()
MsgBox "!"
End Sub如果您想要创建一个Class1实例并调用Method()，下面的内容将无法工作：
' Complile-time error: method not found
Dim c As Class1
Set c = New Class1
c.Method' Run-time error: Object does not support this property or method
Dim c As Object ' IDispatch
Set c = New Class1 ' QueryInterface for IDispatch from Class1
c.Method以下内容将发挥作用：
Dim c As IInterface
Set c = New Class1
c.Method ' Early bindingDim c As IInterface
Set c = New Class1
Dim c_as_idispatch As Object ' IDispatch
Set c_as_idispatch = c ' QueryInterface for IDispatch from IInterface
c.Method ' Late binding您的C++代码与上面的第二个不工作示例相同。
要修复它，首先使用QueryInterface表示IPositionPromotion，然后查询IDispatch。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38643791
复制相关文章
相似问题
腾讯云开发者
