Delphi与Windwos COM服务

COM是什么东西？COM（Component Object Model），组件对象模型，它是基于Windows平台的让不同的独立对象能相互通讯的不受任何计算语言约束的软件组件模型，它定义一组API和一个二进制标准。这个定义比较抽象，首先它是一种组件模型，定义了一种组件对象规范，实现这个COM模型的对象就是COM对象。COM对象是通过接口（Interface）来实现访问的，一个COM对象可以包含一个或多个接口，这些接口构成了COM对象的功能，你可以像访问VCL对象方法一样访问COM对象的接口方法。COM对象的目的是实现资源共享，它在二进制代码级别实现了共享，所以它可以用不同的编程语言来实现，也可以由不同的编程语言来调用，这类似于DLL(其实COM的思想来源来DLL)。

l VCL与COM

COM是Microsoft以前极力推崇的东西，所以在Windows操作系统中无处不在，同样Delphi的VCL也有调用Windows COM服务的，最明显例子就是组件栏ADO页的所有ADO组件，如TADOQuery，它是从TCustomADODataSet继承下来的，而TCustomADODataSet的定义如下：

TCustomADODataSet = class(TDataSet, IUnknown,

RecordsetEventsVt)

private

FRecordsetObject: _Recordset;

FFindCursor: _Recordset;

FLookupCursor: _Recordset;

FLockCursor: _Recordset;

FRowset: IRowset;

FAccessor: IAccessor;

FRowsetFind: IRowsetFind;

FHAccessor: HACCESSOR;

FOleRecBufSize: Integer;

…

end;

ADO(Microsoft ActiveX Data Objects)，它是一组通过Microsoft OLE DB 提供者访问数据库的COM对象的集合。如我们研究一下TADOQuery的First方法的实现过程：

TADOQuery.First->TDataSet.First->TdataSet.InternalFirst-> TCustomADODataSet. InternalFirst ->Recordset15. MoveFirst

TADOQuery从TCustomADODataSet继承，而TCustomADODataSet从TdataSet继承，TdataSet.InternalFirst定义的是虚方法，而子类TCustomADODataSet. InternalFirst覆盖了它。TCustomADODataSet. InternalFirs调用接口Recordset15的 MoveFirst方法。

不难发现，TADOQuery.First最终是通过接口调用COM对象实现的。