Delphi下的COM编程技术简介

认识GUID、CLSID、IID

　　在一个复杂的系统中，可能充斥着大量的组件对象．每个组件对象可能又有大量的楼cJ为了保证这些接口彼此不会冲突，Microsoft规定用GUID来标识组件对象和接口。GUID是Globally Unique Identifier的缩写．意为全局唯一标旧符．GUID可以标识组件对象的类，这时候GUID也称为CLSID(Class Identifier的缩写)。GUID也可以标识组件对象的接口，这时候GUID也称为IID(Interface Identifier的缩写）。

　　引用计数

　　引用计数是一种机制，使组件对象具有?定的“智能性”。它的工作原理是这样的：当接口对象第一次创建时，引用计数的初始值为1。当有?-个客户请求获得接口对象的指针时，就调用AddRef()使该计数加1．当一个客户不再需要组件对象的服务时．它应当调用Release()。注意，Release()并不真正释放接口对象，因为可能还有其他客户正在使用接口；Release()只是使引用计数减1。只有当引用汁数正好减为零时．接口对象才被删除。下面举例说明引用计数的作用。假设客户A向服务器请求IMalloc接口，服务器收到请求后．首先看该接口对象是否存在。如果没有．就创建?个接口对象，并凋用AddRef()使引用计数变为1，同时把该接口对象的指针传递给客户A。假设这时候客户B也加入进来，并且也是请求IMalloc接口。由于此时IMalloc接口对象己存在，所以服务器只是简单地返回一个指针，并且调用AddRef()使引用计数变为2，当客户A不再需要IMalloc接口时，它就调用Release()试图释放这个接口。显然，这时候不能删除Imalloc接口对象，因为客尸B还正用着呢。可见，引用计数这种机制使服务区知道如何管理自己的接口。

　　引用汁数这种机制也带来?个问题，就是调用AddRef()和Release()不能出现混乱。一旦出现混乱，可能导致接口对象水远不被删除或者过早地被删除。

　　虚拟方法表

　　COM是个二进制规范，任何开发环境只要遵守这个规范都可以生产出COM对象。COM采用一种称为虚拟方法表的文法来解决方法调用。不过，COM接口与Objetc Pascal的类还是行-?些区别的：COM接口中凡是要表露给客户的方法必须声明为纯虚的，客户得到的只是指向虚拟方法表的指针，具体实现接口的是接口对象。

　　如果建立了同一个COM对象的多个实例，则虚拟方法表是共享的．但每个实例的数据是私有的。在DELPHI种，用abstract指示字来声明纯虚方法。例如：

TMyPureVirtualClass=class
public
procedure MyMethod;virtual;abstract;
…
end;

　　IUnknOwn接口

　　正如TObjetc是所有类的祖先一样，IUnknown是所有接口的祖先。这样，凡是取得了接口对象指针的客户总是能访问COM对象的核心服务，诸如AddRef(),Release()和QueryInterface(),这三个核心服务管理着接口对象的生存期。AddRef()和Release()比较简单．都没有参数。而QueryInterface()则比较复杂，它有两个参数：一个是IID参数，用于指定要查询的接口；另一个是Obj参数，用于返回找到的接口对象的指钉；如果COM对象不支持所查询的接口，则Obj参数将返回nil。

　　AddRef()和Release()前均加了下划线前缀，这是为了更加醒目。过去，COM对象必须自己维护引用计数，也就是说，必须调用AddRef()和Release()来把引用计数加1或减1。COM的另一个核心服务QueryInterface()也是不可缺少的，客户只有调用QueryInterface()才能申请到另一个接口指针。由于采用了ActiveX框架，所以引用计数是有TComObject对象自动维护的，应用程序不再需要直接与IUnknown接口打交道。

　　这里顺便介绍一下COM模型中称为Interface Aggregation的概念。面向对象的编程思想允许通过继承(Inheritance)来实现软件重用。在COM模型中没有继承的概念，而是通过Interface Aggregation技术把多个接口聚合起来，共同完成某一复杂的功能。

　　In-Process COM服务器的形式是DLL，它可以输出COM对象，并映射到客户的进程地址空间中运行。In-Process服务器的优势在于，客户可以直接调用COM对象的接口。

　　要创建一个In-Process COM服务器，先要建立一个ActiveX库作为COM对象的容器。

　　为此，可以使用“File”菜单上的“New”命令，翻到“ActiveX”页。 双击“Activex NbrW”图标，就会自动创建一个Ac6vex库。

　　一个In－Precess类型的COM服务器必须引出下面4个例程：

function DllRegisterServer:HResult;stdcall;
function DllUnRegisterServer:HResult;stdcall;
function DllGetClaasObject(const CLSID,II:TGUID;var obj)：HResult；stdcall
function DllCanUnloadNow:HResult;stdcall;

　　ComServ单元已经实现了这几个例程。因此，只要在项目文件中引出它们即可。DllRegisterServer()用于注册COM服务器以及服务器中的所有COM对象。每个COM对象在注册表的HKEY_CLASSES_ROOT\CLSID\{xxxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxx}下都有各自的键。其中，(x……)代表COM对象的CLSID。对于In-Process类型的COM服务器来说，还有一个键叫InProcServer32，这个键的默认值是服务器文件在磁盘上的路径。 DllUnregisterServer()用于撤消DllRegisterServer()所做的工作，即从注册表中取消COM服务器以及COM对象的注册。

　　DllGetClassObjetc()用于获取一个COM对象的类工厂。CLSID参数用于指定COM对象的CLSID，HD参数用丁指定要获取的类工厂的接口IID(通常设为IClassFactory的IID)。如果这个函数调用成功，obj参数将返回一个指向类工厂的指针。

　　DllCanUnloadNow()用于判断COM服务器是否应当从内存中卸载。只要服务器中有一个COM对象被引用，这个函数就应当返回S_PALSE，表明DLL不应当卸载。如果服务器中没有一个COM对象被引用，这个函数应当返回S_TRUE。