Delphi下的COM编程技术 - 1

 

一、建立COM对象

   “File”菜单上的“New”命令，翻到“ActiveX”页，然后双击“COM Object”图标。

 

 

具体方法如下：

　　1、在“Class Name”框内输入C0M对象的类名，不必以T打头。

         2、在“Instancing”框内指定COM对象的实例模式。对于InProcess类型的服务器来说不必指定实例模式。

　　3、在“Threading Model"，柜内选择一种线程模式，可以设为以下值：

　　　Single：整个COM服务器都是单线程的

　　　Apartment：每个COM对象的实例有单独的线程。这样，凡是需要共享的数据(诸如全局变量)必须用线程同步对象保护；

　　　Free：一个COM对象的多个实例可以同时运行，这意味着COM对象必须保护自己的实例数据，以避免多个实例相冲突：

　　　Both：同时支持Apartment和Free两种线程模式。

 

　　在“Implemented Interfaces”框内输入让COM对象实现的接口名称(可选)。默认情况下向导所创建的COM对象只实现IUnknown接口。如果选中“Include Type Library” 复选框，向导将生成一个类型库。

 

　　如果选中“Mark interface OleAutomation” 复选框，将使接口支持Ole Automation。不过，类型库中的数据类型必须是与Ole Automation兼容的类型。单击“OK”按钮，向导将创建一个COM对象。如果选中丁“Include Type Library” 复选框，向导将创建1个类型库。同时，向导将生成COM对象的单元文件。

 

 

 

 

 

点击“OK”按钮后，生成的代码如下：

 

unit UmyTest;{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, ActiveX, Classes, ComObj, Project1_TLB, StdVcl;type TMyTest = class(TTypedComObject, IMyTest) protected {Declare IMyTest methods here} end;implementationuses ComServ;initialization TTypedComObjectFactory.Create(ComServer, TMyTest, Class_MyTest, ciInternal, tmApartment);end.  

 

     接口对象是一个类，但保留字class后列出了两个祖先:

     第一个祖先必须是TObject的派生类，这里是TTypedComObject;

     第二个祖先是要实现的接口，这里是IXXH。

     第一个祖先可以是其他已声明过的接口对象，表示正在声明的接口对象同时支持多个接口。接口的第一个成员必须是CLSID。在某些需要传递CLSID常量的场合．可以直接用接口名称来代替CLSID常量。当然，目前IXXH接口中还没有其他成员。

 

　　COM对象的实例是通过类工厂来建立的。每个COM对象都有一个类工厂。类工厂本身的实例是在单元的initialization部分建立的。这样，一旦COM服务器调入内存运行，就会创建类工厂的实例，也就随时可以根据客户的请求创建COM对象的实例。

 

　　要让Windows能找到COM服务器，COM服务器必须在Windows的注册表中登记注册。

    这需要借助于一个叫Regsvr32.exe的命令行程序。