c 写跨语言dll,让COM组件可被跨语言调用

冰娉

于 2021-05-21 21:46:56 发布

阅读量4.8k

点赞数

文章标签： c 写跨语言dll

错误修正

首先修正一下上篇(《》)中的例子的一个小问题。类厂的CreateInstance里面，上次是这么写的：

STDMETHODIMPClassFactory::CreateInstance(_In_opt_IUnknown*pUnkOuter,

_In_REFIIDriid,

_COM_Outptr_void**ppvObject)

{

if(riid==__uuidof(ISampleInterface) &&m_clsid ==__uuidof(SampleClass))

{

ISampleInterface*p =newSampleClass;

p->QueryInterface(riid,ppvObject);

returnS_OK;

}

returnCLASS_E_CLASSNOTAVAILABLE;

}

其中一开始就检查了IID，如果不是ISampleInterface，就返回错误，错误信息是“类无效”(应该是“接口不存在”)，这不科学。后面p->QueryInterface的时候，还会对IID做一次检查，因此前面的IID检查可以去掉。实际上，有些使用者在获取类厂后，会来个CreateInstance(..., IID_IUnknown, ...)，这是个合理的行为，应该予以支持，而像上面这样写就不支持了。纠正为：

STDMETHODIMPClassFactory::CreateInstance(_In_opt_IUnknown*pUnkOuter,

_In_REFIIDriid,

_COM_Outptr_void**ppvObject)

{

if(m_clsid ==__uuidof(SampleClass))

{

ISampleInterface*p =newSampleClass;

p->QueryInterface(riid,ppvObject);

returnS_OK;

}

returnCLASS_E_CLASSNOTAVAILABLE;

}

同理，DllGetClassObject中，原先是：

STDAPIDllGetClassObject(_In_REFCLSIDrclsid,_In_REFIIDriid,_Outptr_LPVOID*ppv)

{

if(riid==__uuidof(IClassFactory) &&rclsid==__uuidof(SampleClass))

{

IClassFactory*p =newClassFactory(rclsid);

p->QueryInterface(riid,ppv);

returnS_OK;

}

returnCLASS_E_CLASSNOTAVAILABLE;

}

做了IID和CLSID的双重检查。而IID刚才说过了，具体类的QueryInterface会检查；CLSID，类厂的CreateInstance会检查，因此这里大可不必检查。改为：

STDAPIDllGetClassObject(_In_REFCLSIDrclsid,_In_REFIIDriid,_Outptr_LPVOID*ppv)

{

IClassFactory*p =newClassFactory(rclsid);

returnp->QueryInterface(riid,ppv);

}

引言

好了，回到主题。看过COM介绍的，一般都会听说，哦，可以跨语言调用，真牛逼！好吧，现在就来调调看。写段VBScript：

Setobj = WScript.CreateObject("Streamlet.COMProvider.SampleClass.1")

obj.SampleMethod

使用CScript调用这个脚本，报错：

Test.vbs(1, 1) Microsoft VBScript运行时错误:类不能支持Automation操作

不支持……需要组件支持“自动化”操作。这是脚本。

还有非脚本的，比如古老的VB6，来试试看。加入外部引用：

这里显示的都是类型库，而我们根本没有注册类型库……

类型库

类型库信息一般位于PE文件的资源段，如下图的TypeLib资源：

类型库也可以单独存在于一个扩展名为.tlb的文件里。

本来一直想避开IDL写COM，可是产生TLB的工作做不了，于是只好借助IDL编译器来产生TLB了。于是把工程改造一下。

原先有个Interface.h，内容为：

#include

struct__declspec(uuid("{83C783E3-F989-4E0D-BFC5-631273EDFFDA}"))

ISampleInterface:publicIUnknown

{

STDMETHOD(SampleMethod)()PURE;

};

class__declspec(uuid("{0DECBFF5-A8A5-49E8-9962-3D18AAC6088E}"))

SampleClass;

本来用于定义接口，提供给使用者用。现在不需要了。添加一个COMProvider.idl，内容为：

import"oaidl.idl";

import"ocidl.idl";

[

object,

uuid(83C783E3-F989-4E0D-BFC5-631273EDFFDA),

]

interfaceISampleInterface : IUnknown

{

[id(1)] HRESULT SampleMethod();

};

[

uuid(22935FC2-282E-4727-B40F-E55128EA1072),

version(1.0),

]

libraryCOMProviderLib

{

importlib("stdole2.tlb");

[

uuid(0DECBFF5-A8A5-49E8-9962-3D18AAC6088E)

]

coclassSampleClass

{

[default]interfaceISampleInterface;

};

import"shobjidl.idl";

后面library这一段便定义了类型库，类型库ID为{22935FC2-282E-4727-B40F-E55128EA1072}。单独编译这个文件，会在源代码目录产生四个文件：

同时还会在$(IntDir)(通常为$(ProjectDir)\$(Configuration)，即源代码目录下的Debug或Release目录)产生一个COMProvider.tlb。

COMProvider_h.h中包含了原先Interface.h中得所有信息。现在可以把原先#inlcude “Interface.h”的地方都改成“COMProvider_h.h”了。

然后添加一个空的资源脚本文件(*.rc)，查看代码：

找到3 TEXTINCLUDE(第一个红框)，改成：

3 TEXTINCLUDE

BEGIN

"1 TYPELIB ""COMProvider.tlb""\r\n"

"\0"

END

再找到第二个红框，改成：

#ifndefAPSTUDIO_INVOKED

// Generated from the TEXTINCLUDE 3 resource.

1 TYPELIB"COMProvider.tlb"

#endif// not APSTUDIO_INVOKED

再改下项目属性中的资源的Include目录：

加入$(IntDir)：

因为编译IDL后，TLB文件是产生在$(IntDir)的。

现在重新编译，用资源工具(比如resource hacker)查看，发现资源里有了TypeLib信息了。

然后改下DllRegisterServer中得代码，加几行注册TypeLib的：

STDAPIDllRegisterServer(void)

{

TCHARszModulePath[MAX_PATH] = {};

GetModuleFileName(g_hModule, szModulePath,ARRAYSIZE(szModulePath));