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_ROOTCLSID下都有各自的键。其中，(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。
要在服务器中加入COM对象，可以使用“File”菜单上的“New”命令，翻到“ActiveX"页，然后双击“COM Object”图标，Delphi 5将启动COM对象向导．这里说的COM对象是非常简单的。如果要创建特定形式的COM对象，诸如OLEAutomation对象或者ActiveX件．则必须使用Delphi提供的专门向导。具体方法如下：

　　1、在“Class Name”框内输入C0M对象的类名，不必以T打头。

　　2、在“Instancing”框内指定COM对象的实例模式。对于In?Process类型的服务器来说不必指定实例模式。

　　3、在“Threading Model"，柜内选择一种线程模式，可以设为以下值：

　　　Single：整个COM服务器都是单线程的

　　　Apartment：每个COM对象的实例有单独的线程。这样，凡是需要共享的数据(诸如全局变量)必须用线程同步对象保护；

　　　Free：一个COM对象的多个实例可以同时运行，这意味着COM对象必须保护自己的实例数据，以避免多个实例相冲突：

　　　Both：同时支持Aartment和Free两种线程模式。

　　在“Implementd Interfaces”框内输入让COM对象实现的接口名称(可选)。默认情况下向导所创建的C0M对象只实现IUnknown接口。如果选中“Include Type Library”复选柜，向导将生成一个类型库。

　　如果选中“Mark interface OleAutormation”复选框，将使接口支持Ole Autormation。不过，类型库中的数据类型必须是与Ole Autormation兼容的类型。单击击“OK”按钮，向导将创建一个COM对象。如果选中丁“Include Type Library”复选柜，向导将创建?个类型库。同时，向导将生成COM对象的单元文件。
一个COM对象的单元：

Unit Unit2; Interface uses windows,ActiveX,Classes,Comobj,Project2_TLB,StdVcl; type TXXH=class(TTypedComObjetc,IXXH) Protectd {Declare IXXH methods here) end; implementation uses ComServ;

　　initialization

　　TTypedComObjetcFactory.Create(ComServer,TXXH,Class_XXH,ciMultiInstance,tmApartment);可以看出，用Delphi 5创建的COM对象，代码非常简洁，这主要是因为Object Pascal语言引入了对象接口的语法以及采用了ActiveX框架。接口对象是一个类，但保留字class后列山了两个祖先:第一个祖先必须是TObject的派生类，这里是TTypedComObjetc;第二个祖先是要实现的接口，这里是IXXH。第一个祖先可以是其他已声明过的接口对象，表示正在声明的接口对象同时支持多个接口。接口的第一个成贝必须是CLSID。在某些需要传递CLSID常量的场合．可以直接用接口名称来代替CLSID常量。当然，目前IXXH接口中还没有其他成员。

　　COM对象的实例是通过类工厂来建立的。每个COM对象都有一个类工厂。类工厂本身的实例是在单元的initialization部分建立的。这样，一旦COM服务器调入内存运行，就会创建类工厂的实例，也就随时可以府客户的请求创建COM对象的实例。

　　要让Windows能找到COM服务器，COM服务器必须在Windows的注册表中登记注册。这需要借助于一个叫服REGSVR32.EXE的命令行程序。

　　如果没有REGSVR32.EX，则可以用一个文本编辑器建立一个“注册表项目”文件，其扩展名是.REG。“注册表项目”文件应当遵循一定的格式。请参考下面的例子：

REGEDIT4 [HKEY_CLASSES_ROOTCLSID] @="MyCOMServer" [HKEY_CLASSES_ROOTCLSID\InProcServer32] @="C:DELPHICOMServerMyComServer.DLL"

　　建立了注册表项目文件后，只要在资源管理器中双击这个文件，Windows就会把“注册表项目”文件中的信息加到注册表中。注册了COM服务器后，就可以打开Windows的注册表，查看COM服务器的注册情况。