从c++调用vb.net-comvisible dll中的函数

Question

我已经用vb.net (VS2012)编写了一个动态链接库，其中的类和函数是可见的。如下所示：

Imports System
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

<ComClass(InterFc.ClassId, InterFc.InterfaceId, InterFc.EventsId)> _
Public Class InterFc

  Public Const ClassId As String = "553CCD79-3067-44DE-B1AD-36A153F5C965"
  Public Const InterfaceId As String = "8C15295C-477B-434F-9FDC-4626D418DA9E"
  Public Const EventsId As String = "C434DF40-3F7B-45EE-B0D8-C85ABED03E88"

'(...)'

  Public Function TestFkt(ByVal intValue As Integer) As Integer

    TestFkt = 5 * intValue

  End Function

  Public Sub New()
    MyBase.New()
  End Sub

'(...)

End Class

首先，我想知道为什么depency walker中的函数列表是空的，但这不是问题所在。

从VBScript调用函数工作得很好，如下所示：

Dim objCom
Dim iCounter

set objCom = CreateObject("VBNetDLL.InterFc")

For iCounter = 1 To 20
  MsgBox objCom.TestFkt(iCounter * 7)
Next

此外，从VisualBasic (VB6)调用函数也运行得很好：

Dim objCom

Set objCom = CreateObject("VBNetDLL.InterFc")

Msgbox objCom.TestFkt(3 * 7)

(好吧，代码看起来是一样的，但相信我，一个是VBScript，另一个是Visual Basic ;-)

我终生无法工作的是，在C++ (VS 2012)中调用这些相同的函数。我尝试了很多东西，都是从

#import <VBNetDLL.tlb>
using namespace VBNetDLL;

首先奇怪的是，Intellisense将VBNetDLL::InterFC显示为"struct"，而不是类。在我尝试的东西中有：

InterFc *objControl = new InterFc;

这给了我“没有合适的默认构造函数可用”和“不允许不完整的类型”，以及：

CoInitializeEx(0, COINIT_MULTITHREADED); 
CLSID clsid; 
HRESULT hr = CLSIDFromProgID(L"InterFc", &clsid);

InterFc *pWApp;
hr = CoCreateInstance(clsid, NULL, CLSCTX_ALL,IID_IUnknown, (void **)&pWApp);

它编译得很好，但尝试"pWApp->TestFkt“告诉我”使用未定义的类型'VBNetDLL::InterFc'"，“'->TestFkt‘的左边必须指向class /struct/ to /generic类型”，以及“不允许指向不完整的类类型的指针”。

长话短说:我如何从C++调用这些成员函数，特别是在VBScript和VisualBasic6中使用它们似乎很容易的情况下？

Answer 1

  CoInitialize(NULL); 

  _InterFcPtr pInterFC(__uuidof(InterFc));

  int iTestResult = (int)pInterFC->TestFkt(2);

直接告诉我而不是“阅读F**手册！”不是更简单吗？嗯，也许不是更容易，但更好，但聪明(比其他人更重要)似乎比友好更重要。

不管怎样，谢谢你。