作者:巴哈姆特  http://www.cnpack.org(转载请注明出处并保持完整)

 如果没有接触过COM对象的话,你会觉得接口真的很麻烦,也许会有:“还不如直接定义一个类更方便”的想法。

的确,没有经过COM封装的接口确实比较麻烦。在我看来,没有经过COM封装的接口似乎没有存在的意义。那么,什么是COM对象呢?它有什么优点呢?接下来开始对COM对象进行一个简单的介绍:

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

记得我在刚刚接触COM对象的时候,我师傅曾经给我说过:“COM不是Dll,虽然它可能会以后缀名为dll文件呈现在你面前,但是它绝对不是我们传统意义上所说的dll(动态链接库)”。
    其实在我看来,进程内的COM对象应该是一个以dll为载体而提供一些特殊服务的特殊的动态链接库。当然,也有进程外的COM。

现在,我们演示怎么在Delphi中利用向导建立一个简单的COM模型。
    首先:打开Borland Delphi 7.1(不好意思,我一般都是用这个版本。什么?为什么是7.1?就是7.0加个Update1补丁包嘛-_-||)。
    然后:把Delphi默认为我们创建的Application关掉,并在菜单中选择File->New->Other,之后在弹出的窗口中找到ActiveX页,双击ActiveX Library图标。
    双击图标后,我们可以看到Delphi已经帮我们建立了一个ActiveX库,代码如下:

library Project1;

uses
  ComServ;

exports
  DllGetClassObject,    // 返回类工厂的接口
  DllCanUnloadNow,      // 是否可以释放该组件
  DllRegisterServer,    // 注册函数
  DllUnregisterServer;  // 反注册函数

{$R *.RES}

begin
end.

我们会看到,在工程中,Delphi已经帮我们定义好了四个输出函数(关于这几个函数更详细的说明,可以查阅更多的资料),我们先不管它们。
    接下来,我们再使用菜单File->New->Other并在ActiveX页中创建Com Object,这时,我们可以看到一个对话框:其中ClassName是我们的对象名、Instancing是对象创建模式、Threading Module为线程模式。我们使用NewComServer作为对象名,其他默认。OK后可以看到一个标题为“Project11.tlb”的窗口,这个我们可以在这个窗口中为接口添加新的方法,例如我们添加一个GetMessage方法。然后我们打开Unit1.pas可以看到如下代码:

unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, Project1_TLB, StdVcl;
    // Project1_TLB 接口所在单元

type
  TNewComServer = class(TTypedComObject, INewComServer)
    // 实现接口的类
  protected
    function GetMessage: HResult; stdcall;
      // 我们刚刚添加的方法
    {Declare INewComServer methods here}
  end;

implementation

uses ComServ;

function TNewComServer.GetMessage: HResult;
begin
  MessageBox(0, \'测试\', \'提示\', $40);
  Result:= GetLastError; // 我添加的代码
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TNewComServer, Class_NewComServer, ciMultiInstance, tmApartment);
    // 类工厂
end.

之后,我们编译这个工程(CTRL+F9)将会生成一个Project1.dll文件。保存并关闭这个工程。
    接着,我们编写一段代码来测试这个COM工程:创建一个普通的应用程序工程,并引用Project1_tlb单元:

var // 注意,在测试代码中也需要引用project1_tlb单元,由于我们的接口声明在该单元内
  NewComObject: INewComObject; // 声明接口
begin
  NewComObject:= CreateComObject(CLASS_NewComObject) as INewComObject; // 创建COM对象,
    //CLASS_NewComObject 的定义可以在Project1_tlb.pas里找到

if NewComObject <> nil then
    begin
      NewComObject.GetMessageInfo; // 调用接口中的方法
      NewComObject:= nil; // 释放接口
    end
  else
    ShowMessage(\'对象创建不成功\');
end;

注意我们在运行这个EXE之前,需要先把我们之前的COM工程注册给系统:开始->运行->regsvr32.exe \"...Project1.dll\"。看到注册成功的提示信息后,我们现在可以运行我们刚刚编写的那个测试程序来测试我们的COM对象了,看看执行测试代码后,是否弹出了一个标题为“提示”,内容为“测试”的对话框呢?

我们可以看到,在COM组件创建好以后,在EXE调用的时候是相当简单的,而且,当我们某个方法的实现细节发生改动,只要方法声明不变,那么在软件升级的时候,我们可以只升级我们需要升级的COM组件,而不需要改动其它的地方。这样可以有效的减轻维护的工作量。

当然,这个演示只是一个进程内的COM,至于更详细的说明,可以去参阅更多的资料。

友情提示:ActiveX是Windows下实现COM的一个组件规范。请不要把ActiveX和COM之间划上等号!

Delphi COM对象的更多相关文章

  1. 多线程的基本概念和Delphi线程对象Tthread介绍

    多线程的基本概念和Delphi线程对象Tthread介绍 作者:xiaoru    WIN 98/NT/2000/XP是个多任务操作系统,也就是:一个进程可以划分为多个线程,每个线程轮流占用CPU运行 ...

  2. delphi:临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别

    临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体,在windows单元中定义: 是I ...

  3. 重置delphi Printer对象

    http://www.efg2.com/Lab/Library/UseNet/1999/0714b.txt From: "Nick Ryan" <nick@avatardes ...

  4. Delphi 绘图对象

    来自:http://blog.csdn.net/lailai186/article/details/8755430 ========================================== ...

  5. Delphi栈对象

    来自:http://blog.csdn.net/iseekcode/article/details/5158985 ------------------------------------------ ...

  6. Delphi GDI对象之绘制位图

    http://www.cnblogs.com/pchmonster/archive/2012/07/06/2579334.html 绘制位图(Drawing Bitmaps) 绘制位图听起来似乎很难, ...

  7. Delphi中流对象的应用

    Delphi的流对象(TStream的派生对象)有如下读写函数: function Read(var Buffer; Count: Longint): Longint;function Write(c ...

  8. Delphi的对象注销方法Destroy和free

    当您使用完对象后,您应该及时撤销它,以便把这个对象占用的内存释放出来.您可以通过调用一个注销方法来撤销您的对象,它会释放分配给这个对象的内存. Delphi的注销方法有两个:Destroy和Free. ...

  9. Delphi - 互斥对象下实现系统的单例模式

    使用CreateMutex函数创建互斥对象 利用Windows系统函数CreateMutex(),找出当前系统是否已经存在指定进程的实例,如果没有则创建一个互斥体. CreateMutex函数原型如下 ...

随机推荐

  1. mybatis generator 生成的example类的使用方法

    generator 生成的example类 示例 1. 搜索数据库Id不为空打元组 java代码 @RequestMapping("/test") public String ex ...

  2. find和grep技巧

    1. find ./ -name "*streaming*"  查找文件 2.  grep -r KUBE_LOGTOSTDERR /etc/kubernetes/*  查找内容

  3. 兼容iphone x刘海的正确姿势

    在 ios 11 中我们可以使用 viewport-fit=cover + safe-area-inset-*. 那么是不是 ios11 以下就用不了这些了呢?是的,但你见过 iphone x+ 有 ...

  4. php对接极光推送

    首先要明白php对接极光推送要做些什么,极光推送的大致流程是:你的服务器----->极光服务器------>app端.而php要做的就只有我们的服务器到极光服务器这个过程.极光服务器到ap ...

  5. 10 面向对象(package关键字的概述及作用)

    10.01_面向对象(package关键字的概述及作用) A:为什么要有包 *开发时有很多类,如果放在一个文件夹中不方便管理,而且容易重复 将字节码(.class)进行分类存放 包其实就是文件夹 B: ...

  6. 前端学习笔记——CSS选择器

    学习css选择器之前我们先了解下css规则: CSS 规则由两个主要的部分构成:选择器,以及一条或多条声明: 选择器通常是需要改变样式的 HTML 元素. 每条声明由一个属性和一个值组成. 1.id选 ...

  7. Java DOM解析器 - 查询XML文档

    这是需要我们查询的输入XML文件: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 <?xml version="1.0"?> ...

  8. .NET简介

    |   版权声明:本文为博主原创文章,未经博主允许不得转载. 微软跨语言运行的主要机制就如上图类似,其最重要的部分是CLR和MSIL:其中MSIL是微软中间语言,它的主要的作用是将不同 的语言,如:C ...

  9. ABTest介绍及abtest流量切换实现

    本文为学习abtest切流方案方便以后查看大部分内容转载自原文 https://blog.csdn.net/tanweii163/article/details/80543083 互联网公司的业务发展 ...

  10. shell /dev/null

    /dev/null表示空设备,这里就是把日志记录到空设备里,就是不记录日志,Null 是一特殊指标值(或是一种物件参照 reference)表示这个指标并不指向任何的物件. 是一个特殊的文件,写入到它 ...