Question

我编译了以下VB代码并将dll（“TestVB.dll”）和tlb（“TestVB.tlb”）文件作为输出。

Imports System
Imports System.Runtime.InteropServices

Namespace TesterNS

    <ComVisible(True),
    Guid("4B673F5A-A953-4C20-9A90-8F94ED2F6DDF"),
    InterfaceType(ComInterfaceType.InterfaceIsIDispatch)>
    Public Interface _Tester
        Function GetMonth() As Integer
    End Interface

    <ComVisible(True),
    Guid("FEC833EE-37E9-4406-9344-8A8BD5C43B07"),
    ClassInterface(ClassInterfaceType.None),
    ProgId("Tester.Numbers1")> Public Class Tester
        Implements _Tester

        Public Tester()

        Public Function GetMonth() As Integer Implements _Tester.GetMonth
            GetMonth = DateTime.Now.Month
        End Function
    End Class

End Namespace

我选择了

注册COM互操作

VB项目的项目设置中的

选项。

我试图从C ++代码访问上述功能。我在C ++中的stdafx.h文件中包含了以下import语句。

#import "TestVB.tlb" no_function_mapping, no_namespace, named_guids

并尝试按如下方式访问COM对象：

HRESULT hr = CoInitialize(NULL);
_TesterPtr t1 = NULL;
CLSID cls;
std::string s = "";
bool flag = false;
hr = CLSIDFromProgID(L"Tester.Numbers1", &cls);
if (SUCCEEDED(hr))
{
    hr = CoCreateInstance(cls, NULL, CLSCTX_INPROC_SERVER, __uuidof(_Tester), (void**)&t1);
    if (SUCCEEDED(hr))
        s = "success";
    else
        s = "fail";
}

我在hr = REGDB_E_CLASSNOTREG Class not registered电话后发现CoCreateInstance错误。

我不确定我做错了什么。

Answer 1

在我的C ++应用程序中，在AfxOleInit()之前调用了CoInitialize(NULL)。如果我删除了对CoInitialize(NULL)的调用，我就可以使其正常运行。

初始化COM对象的问题

1 个答案: