Delphi COM[1] 基础知识介绍

Delphi COM[1] 基础知识介绍

1、COM概念介绍

COM（Component Object Model，组件对象模型）是微软定的一种组件编写的规范,，它是一种与平台无关、语言中立、位置透明、支持网络的中间件技术，即不管你是用C、DELPHI、VB什么语言写的，只要遵守编码规范就是COM组件，就能相互之间调用。那这个规范是什么呢，最简单的，就是按规定使用接口，微软定了个IUnkown接口，只要实现了这个接口的类，就可以称为COM组件。在此基础上可以加上自己的接口，实现特定的功能，这就成了有用的COM组件。

• DCOM 是分布式COM；
• COM+ 不仅继承了COM所有的优点，而且还增加了一些服务，比如队列服务、负载平衡、内存数据库、事件服务等。

 

2、Delphi中创建COM组件

• 创建一个ActiveX Library,这是个DLL；【ActiveX选项卡】
• 创建一个COM Object或者Automation Object，二者选其一，这两者都是COM组件，但是当然还是有区别的，差在调用的方法上，COM Object只能通过接口调用，Automation Object可以调接口或名称调用。【ActiveX选项卡】
• （.tlb文件）COM Type Library 即COM类型库文件

 

3、Delphi中调用COM组件

3.1 方法1（用接口来调用）

  适用于支持接口的语言，如C、DELPHI；优点是速度快，因为不用根据名称去查找了，还有开发时编译器能检查，缺点是要导入类型库。需要如下操作：

在use里加上ComTest_events_TLB类型库（如果不是自己开发的没有TLB可以从DLL导入生成的），代码是

?

1 2 3 4 5 6 7 8

var   MyCoTest:IComTest;   sStr:string; begin   MyCoTest :=CoComTest.Create;   //通过接口创建COM对象   sStr:=MyCoTest.TestData;   showmessage(sStr); end;

如果有兴趣可以看看类型库的代码里，ComTest.Create()里调用了CreateComObject，这函数返回的是IComTest接口，再用as操作转成你需要的IComTest接口。

?

1 2 3 4 5 6

uses ComObj;   class function CoTest.Create: IComTest; begin   Result := CreateComObject(CLASS_ComTest) as IComTest; end;

3.2 方法2（用名称来调用）
  适用于所有的语言，好处是不用导入类型，缺点是调用的速度慢，还有开发时编译器不检查。代码是

?

1 2 3 4 5 6

var   MyCoTest: Variant; begin   MyCoTest := CreateOleObject('ComTest_events.ComTest');   //CreateOleObject 需要引用 ComObj     //通过名称创建COM对象   showmessage(MyCoTest.TestData); end;

其实为了实现用名字调用，需要加上IDispatch接口，不过delphi已自动加好，直接用即可。

• idispatch 是COM object的接口, 在Delphi中通常指一个OleObject.
• OleVariant 是一种COM object兼容的Variant类型, 可以通用任何Ole Automation 类型, 他与CreateOleObject创建的idispatch兼容 。

 

 

创建时间：2020.10.16　　更新时间：