Delphi下的COM编程技术简介

转载 2004年07月05日 18:52:00


组件对象模型(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外壳扩展;也可以有许多接口,例如Ac咖ex控件一般就有多个接口,客户可以从很多方面来操纵ActiveX控件。接口是客户与服务器通信的唯一途径。如果一个组件对象有多个接口,则通过一个接口不能直接访问其他接口。但是,COM允许客户调用COM库中的QueryInterface()去查询组件对象所支持的其他接口。从这个意义上讲,组件对象有点像接口对象的经纪人。

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

  所以,QueryInterface()是很有用的,它可以动态了解组件对象所支持的接口。接口是团向对象编程思想的一种体现,它隐藏了COM对象实现服务的细节。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。

要在服务器中加入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_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服务器的注册情况。

 


 

【三层架构】——COM/DCOM初识

背景:在学习三层架构的时候,知道三层分为UI层(表现层)、BLL层(业务逻辑层)、DAL层(数据访问层),相对于传统的二层架构(客户端和数据库)来说,多了一个中间层BLL(业务逻辑层),处于UI层和D...
  • zt15732625878
  • zt15732625878
  • 2016年03月23日 16:08
  • 1453

推荐几款COM组件开发的入门书籍

推荐几本个人读过的比较不错的COM组件相关的书籍,按我的阅读感受排名如下: 1,《Visual C++实践与提高-COM和COM+篇》         这本书我放在第一位,倒不是它有多么出色,但...
  • ghevinn
  • ghevinn
  • 2014年01月25日 17:37
  • 6590

COM组件技术在Linux C++下的使用例子

COM的接口 看了Window下的COM组件知识后,就想在Linux下 模仿写一个Com相关的例子,这几天刚好有时间,就写了一个小例子,现在把它分享出来,希望各位能提出宝贵的意见...
  • u011641755
  • u011641755
  • 2016年08月28日 23:48
  • 1644

Delphi下的COM编程技术简介

认识GUID、CLSID、IID   在一个复杂的系统中,可能充斥着大量的组件对象.每个组件对象可能又有大量的楼cJ为了保证这些接口彼此不会冲突,Microsoft规定用GUID来标识组件对象和...
  • zhongguoren666
  • zhongguoren666
  • 2011年08月02日 14:11
  • 691

Delphi下的COM编程技术简介

软件重用是业界追求的目标,人们一直希望能够像搭积木一样随意“装配”应用程序,组件对象就充当了积木的角色。所谓组件对象,实际上就是预定义好的、能完成一定功能的服务或接口。问题是,这些组件对象如何与应用程...
  • xuguojiong
  • xuguojiong
  • 2012年09月04日 12:47
  • 154

Delphi COM编程技术三类型库

在COM组件的使用和开发过程中经常需要获取有关组件的信息。而COM组件以二进制代码的形式发布,如果不借助特定的工具这些相关信息将难以被获取。通过访问类型库就可以查看COM组件的信息。 一、类型库...
  • zang141588761
  • zang141588761
  • 2016年04月26日 09:52
  • 276

Delphi COM编程技术三类型库

在COM组件的使用和开发过程中经常需要获取有关组件的信息。而COM组件以二进制代码的形式发布,如果不借助特定的工具这些相关信息将难以被获取。通过访问类型库就可以查看COM组件的信息。 一、类型库的基...
  • xiongmao000738
  • xiongmao000738
  • 2011年10月17日 19:55
  • 1968

Delphi COM编程技术三类型库

在COM组件的使用和开发过程中经常需要获取有关组件的信息。而COM组件以二进制代码的形式发布,如果不借助特定的工具这些相关信息将难以被获取。通过访问类型库就可以查看COM组件的信息。 一、类型库的基...
  • zhongguoren666
  • zhongguoren666
  • 2011年11月22日 16:48
  • 1400

Delphi COM编程技术五(ActiveX技术)

一、Active技术介绍: 1、Active文档涉及到的接口 1>、IOleDocument接口:此接口是ActiveX文档服务器中的接口,它使一个文档对象能够与其包容器进行通信,并用其数据去创建...
  • xiongmao000738
  • xiongmao000738
  • 2011年10月17日 20:00
  • 1066

Delphi COM编程技术六(DCOM技术)

在Delphi中能实现远程调用的有DCOM或COM+,这两种方式实现起来非常的相似。DCOM属于旧版本的远程调用技术,非常实用,所提供的服务保存在应用程序工程中。COM+是新版本的远程调用技术,所提供...
  • xiongmao000738
  • xiongmao000738
  • 2011年10月17日 20:01
  • 1560
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi下的COM编程技术简介
举报原因:
原因补充:

(最多只允许输入30个字)