错误修正

首先修正一下上篇（《裸写一个进程内 COM 组件》）中的例子的一个小问题。类厂的CreateInstance里面，上次是这么写的：

STDMETHODIMP ClassFactory::CreateInstance(_In_opt_ IUnknown *pUnkOuter,

_In_ REFIID riid,

_COM_Outptr_ void **ppvObject)

{

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

{

ISampleInterface *p = new SampleClass;

p->QueryInterface(riid, ppvObject);

return S_OK;

}

return CLASS_E_CLASSNOTAVAILABLE;

}

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

STDMETHODIMP ClassFactory::CreateInstance(_In_opt_ IUnknown *pUnkOuter,

_In_ REFIID riid,

_COM_Outptr_ void **ppvObject)

{

if (m_clsid == __uuidof(SampleClass))

{

ISampleInterface *p = new SampleClass;

p->QueryInterface(riid, ppvObject);

return S_OK;

}

return CLASS_E_CLASSNOTAVAILABLE;

}

同理，DllGetClassObject中，原先是：

STDAPI DllGetClassObject(_In_ REFCLSID rclsid, _In_ REFIID riid, _Outptr_ LPVOID *ppv)

{

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

{

IClassFactory *p = new ClassFactory(rclsid);

p->QueryInterface(riid, ppv);

return S_OK;

}

return CLASS_E_CLASSNOTAVAILABLE;

}

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

STDAPI DllGetClassObject(_In_ REFCLSID rclsid, _In_ REFIID riid, _Outptr_ LPVOID *ppv)

{

IClassFactory *p = new ClassFactory(rclsid);

return p->QueryInterface(riid, ppv);

}

引言

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

Set obj = 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 <Unknwn.h>

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

ISampleInterface : public IUnknown

{

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),

]

interface ISampleInterface : IUnknown

{

[id(1)] HRESULT SampleMethod();

};

[

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

version(1.0),

]

library COMProviderLib

{

importlib("stdole2.tlb");

[

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

]

coclass SampleClass

{

[default] interface ISampleInterface;

};

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

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

#ifndef APSTUDIO_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的：

STDAPI DllRegisterServer(void)

{

TCHAR szModulePath[MAX_PATH] = {};

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