Delphi下的COM编程技术简介

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

　　一个COM对象的单元：

　　Unit Unit2;
Interface
uses
windows,ActiveX,Classes,Comobj,Project2_TLB,StdVcl;
type
TXXH=class(TTypedComObjetc,IXXH)
Protectd
{Declare IXXH methods here)
end;
implementation
uses ComServ;

　　initialization

　　TTypedComObjetcFactory.Create(ComServer,TXXH,Class_XXH,ciMultiInstance,tmApartment);可以看出，用Delphi 5创建的COM对象，代码非常简洁，这主要是因为Object Pascal语言引入了对象接口的语法以及采用了ActiveX框架。接口对象是一个类，但保留字class后列山了两个祖先:第一个祖先必须是TObject的派生类，这里是TTypedComObjetc;第二个祖先是要实现的接口，这里是IXXH。第一个祖先可以是其他已声明过的接口对象，表示正在声明的接口对象同时支持多个接口。接口的第一个成贝必须是CLSID。在某些需要传递CLSID常量的场合．可以直接用接口名称来代替CLSID常量。当然，目前IXXH接口中还没有其他成员。

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

　　要让Windows能找到COM服务器，COM服务器必须在Windows的注册表中登记注册。这需要借助于一个叫服REGSVR32.EXE的命令行程序。

　　如果没有REGSVR32.EX，则可以用一个文本编辑器建立一个“注册表项目”文件，其扩展名是.REG。“注册表项目”文件应当遵循一定的格式。请参考下面的例子：

　　REGEDIT4
[HKEY_CLASSES_ROOT\CLSID\{0AA1740-310E-11D0-A45E-444553540000}]
@="MyCOMServer"
[HKEY_CLASSES_ROOT\CLSID\{0AA1740-310E-11D0-A45E-444553540000}\InProcServer32]
@="C:\\DELPHI\\COMServer\\MyComServer.DLL"

　　建立了注册表项目文件后，只要在资源管理器中双击这个文件，Windows就会把“注册表项目”文件中的信息加到注册表中。注册了COM服务器后，就可以打开Windows的注册表，查看COM服务器的注册情况。