DELPHI学习之「COM+编程」

COM 和 ActiveX概述

COM技术，是微软公司力推的一项非常重要的开发技术，既是当前软件开发领域的一项技术标准，又是很多高级开发领域的，可能唯一的实现方式。比如：流媒体开发所用到的DirectShow及其扩展，用于游戏开发的图形图像引擎技术Direct3D，Direct Play，用于硬件控制的封装接口等等。在这些领域，如果不熟悉COM技术，将是寸步难行的。

因此，学习COM开发技术不仅仅在理论方面具有重要的指导意义，更是打开很多专业开发领域的开发之门的金钥匙。它的重要性不言而喻。

COM技术自诞生以来，由于各种原因，其名称及相关术语，一直比较混乱。这主要是因为微软的早期技术路线摇摆，调整幅度过大造成的。这一方面说明，即使是微软这样的巨头也会经历痛苦的成长过程，另一方面也说明，COM技术的复杂性。

一、基于COM的技术

早期的基于COM的技术，仅仅是指OLE自动化，而现在的COM所指的范围要宽广的多。

目前，基于COM的技术，是指多种以COM为基础的技术，包括COM服务器和客户，ActiveX控件，OLE（对象链接与嵌入），自动化及Microsoft Transaction Server（事务处理服务器）等等。

微软把非OLE的COM技术简单的称为基于COM的技术。

COM+则是微软早期COM技术的改进与扩展，它完全兼容于早期的COM技术。它通过对MTS（事务处理服务器）和MSMQ（消息队列）技术的合成，简化了COM的开发过程。

二、COM基础

1、COM 组件对象模型

组件对象模型（Component Object Model 简称COM）是OLE和ActiveX技术的基础。COM定义了一组API和一个二进制标准，让来自不同编程语言、不同平台的彼此独立的对象互相进行通信。

COM对象类似于Delphi中的VCL对象，但它们只有方法和属性，而没有字段。

一个COM对象包括一个或多个接口，这些接口构成了COM对象的功能，我们可以象访问一般的VCL的方法一样访问接口的方法。

COM对象既可以在EXE文件中实现，也可以在DLL中实现。这种实现对于COM对象的用户来说是透明的，因为COM提供了调度服务。COM的调试机制能够实现跨进程边界甚至跨机器边界的函数调用。也就是说，不仅应用程序之间可以互相通信，不同机器之间的COM对象也可以互相通信。这种机器与机器之间的通信称为分布式COM（即DCOM）。

2、OLE

在应用程序之间共享的一大块数据称为一个OLE对象，能够包含OLE对象的应用程序称为OLE容器，而允许自己的数据被包含到其它应用程序中的程序则称为OLE服务器

包含一个或多个OLE对象的文档称为复合文档。一个文档可以包含OLE对象，也可以包含完整的应用程序，这称为ActiveX文档。

三、COM的线程模式

每个COM对象都是在一定的线程模式下运作。线程模式决定了一个对象在多线程环境下被操纵的方式。注册COM服务器时，应当为服务器所包含的每个COM对象指定他们支持的线程模式。

COM线程模式可以设为：

1、Single 整个服务器工作于单线程模式下

2、Apartment 也称为单线程单元，每个COM对象在一个单独的线程中执行，同一类型的COM对象的多个实例运行在各自的线程中。这种模式下，对象实例之间共享的数据都必须用线程同步对象来保护。

3、Free 也称多线程单元。客户可以在任何时候，任何线程中调用COM对象的方法。该模式下，COM对象必须保护自己的实例数据，以避免多个线程同时访问引起冲突。

4、Both 同时支持Apartment和Free两种模式。

在实际的COM服务器开发中，不能单单依靠所选择的线程模式，必须借助于线程同步技术，来保证COM服务器在指定的线程模式下正常工作。

四、接口

COM定义了一个对象的函数怎样在内存中布置的标准。这些函数被安排到虚拟表，类似于Delphi的虚拟方法表，编程语言对每个虚拟表的描述就是接口。

接口可以看作是一个类的操作面，它所包含的一组函数和过程可以用来操纵一个对象

一个接口实际上分为两部分：

第一部分是接口定义部分，这部分按一定顺序声明了一些方法。是COM对象和这个对象的用户所共享的

第二部分是接口实现部分，是接口定义部分的实现。

所有的接口都是从IUnknown接口类继承下来的。IUnknows的声明类似以下代码：

type

IUnknown = interface

[{'00000000-0000-0000-C000-000000000046'}] //这里是全局唯一标识符GUID

function QueryInterface(const IID: TGUID; out Obj): Integer; stdcall;

function _AddRef: Integer; stdcall;

function _Release: Integer; stdcall;

end;

接口与类的另一个区别是：接口必须有全局唯一标识符GUID，该GUID是一个128位整数，用来在COM中唯一标识一个接口、控件类或其它实体。

当GUID表示一个接口时，通常被称为IID，而表示一个类时，GUID又被称为CLSID。

IUnknown声明了三个方法，所有的接口都继承自IUnknown接口，所以都必须实现这三个方法。可以手工编写，也可以让Delphi自动完成，只要继承自TInterfaceObject就可以，因为TInterfaceObject实现了IUnknown接口。

注意：

1、接口用Interface关键字标识

2、接口只有属性和方法，而没有数据。属性只能通过方法被访问。

3、接口并不实现自己，只是一个约定