delphi下的COM编程

 

    组件对象模型(Component Object Model，以下简称COM)是组件对象之间相互接口的规范，凡是遵循COM接口规范的对象彼此之间能相互通信和交互，即使这些对象是由不同的厂商、用不同的语言、在不同的Windows版本甚至不同的机器上编写和建立的。Delphi支持COM接口规范，Object Pascal语言增加了对象接口的方法。用Delphi创建的COM对象还可以工作在MTS(Microsoft Transaction Server)环境中。

　　软件重用是业界追求的目标，人们一直希望能够像搭积木一样随意“装配”应用程序，组件对象就充当了积木的角色。所谓组件对象，实际上就是预定义好的、能完成一定功能的服务或接口。问题是，这些组件对象如何与应用程序、如何与其他组件对象共存并相互通信和交互?这就需要制定几个规范，让这些组件对象按统一的标准方式工作。

　　COM是个二进制规范，它与源代码无关。这样，即使COM对象由不同的编程语言创建，运行在不同的进程空间和不同的操作系统平台，这些对象也能相互通信。COM既是规范，也是实现，它以COM库(OLE32.dll和贴OLEAut32.dll)的形式提供了访问COM对象核心功能的标准接口以及一组API函数，这些API函数用于创建和管理COM对象。COM本质上仍然是客户服务器模式。客户(通常是应用程序)请求创建COM对象并通过COM对象的接口操纵COM对象。服务器根据客户的请求创建并管理COM对象。客户和服务器这两种角色并不是绝对的。

　　组件对象与一般意义上的对象既相似也有区别。一般意义上的对象是一种把数据和操纵数据的方法封装在一起的数据类型的实例，而组件对象则使用接口(Interface)而不是方法来描述自己并提供服务。所谓接口，其精确定义是“基于对象的一组语义上相关的功能”，实际上是一个纯虚类，真正实现接口的是接口对象)(Interface Object)。一个COM对象可以只有一个接口，例如Wndows 95／98外壳扩展；也可以有许多接口，例如Activex控件一般就有多个接口，客户可以从很多方面来操纵ActiveX控件。接口是客户与服务器通信的唯一途径。如果一个组件对象有多个接口，则通过一个接口不能直接访问其他接口。但是，COM允许客户调用COM库中的QueryInterface()去查询组件对象所支持的其他接口。从这个意义上讲，组件对象有点像接口对象的经纪人。

　　在调用QueryInterface()后，如果组件对象正好支持要查询的接口，则QueryInterface()将返回该接口的指针。如果组件对象不支持该接口，则QueryInterface()将返回一个出错信息。

　　所以，QueryInterface()是很有用的，它可以动态了解组件对象所支持的接口。接口是面向对象编程思想的一种体现，它隐藏了COM对象实现服务的细节。COM对象可以完全独立于访问它的客户，只要接口本身保持不变即可。如果需要更新接口，则可以重新定义一个新的接口，对于使用老接口的客户来说，代码得到了最大程度的保护。

认识GUID、CLSID、IID

　　在一个复杂的系统中，可能充斥着大量的组件对象．每个组件对象可能又有大量的接口，为了保证这些接口彼此不会冲突，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接口

　　正如TObject是所有类的祖先一样，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”图标，就会自动创建一个ActiveX库。

　　一个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对象的注册。

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

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

 

要在服务器中加入COM对象，可以使用“File”菜单上的“New”命令，翻到“ActiveX"页，然后双击“COM Object”图标，Delphi 将启动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：同时支持Apartment和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(TTypedComObjetct,IXXH)

     Protected
         {Declare IXXH methods here} 

    end;

 implementation

 

uses ComServ; 

 

 initialization

　　TTypedComObjetcFactory.Create(ComServer,TXXH,Class_XXH,ciMultiInstance,tmApartment);

end.

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

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

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

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

REGEDIT4
[HKEY_CLASSES_ROOT\CLSID\{0AA1740-310E-11D0-A45E-444553540000}]
@="MyCOMServer"
[HKEY_CLASSES_ROOT\CLSID\{0AA1740-310E-11D0-A45E-444553540000}\InProcServer32]
@="C:\\DELPHI\\COMServer\\MyComServer.DLL"

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