我的学习生涯（Delphi篇） - 17

    Windows是架构在COM上的。那我们怎样自己建立一个COM呢？

    -------------------------------------------------------------------------------------------------美丽分割线---------------------------

   年代：2007

   文件：My0623.7z

    

    建立COM对象，可以使用“File”菜单上的“New”命令，翻到“ActiveX”页，然后双击“COM Object”图标。

    

   具体方法如下：

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

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

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

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

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

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

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

 

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

 

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

      

     自动生成的代码：   

unit Unit1;{$WARN SYMBOL_PLATFORM OFF}interfaceuses  Windows, ActiveX, Classes, ComObj, Project1_TLB, StdVcl;type  TCprintSupport = class(TTypedComObject, ICprintSupport)  protected  end;implementationuses ComServ;initialization  TTypedComObjectFactory.Create(ComServer, TCprintSupport, Class_CprintSupport,    ciMultiInstance, tmApartment);end.

　　TTypedComObjetcFactory.Create(ComServer,TXXX,Class_XXX,ciMultiInstance,tmApartment);接口对象是一个类，但保留字class后列出了两个祖先:

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

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

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

 

　　COM对象的实例是通过类工厂来建立的。每个COM对象都有一个类工厂。类工厂本身的实例是在单元的initialization部分建立的。

       这样，一旦COM服务器调入内存运行，就会创建类工厂的实例，也就随时可以根据客户的请求创建COM对象的实例。

       完成后，单元文件：

       UprintMain.pas 

unit UprintMain;{$WARN SYMBOL_PLATFORM OFF}interfaceuses  Windows, ActiveX, Classes, ComObj;type  Iprinter= interface  ['{14EC88EC-9F6F-449F-BEAC-3A3BF2837A58}']//这个ID是接口Iprinter//IID  //function list  function checkPrinterStatus(LPTPort:word):Byte;stdcall;//safecall  function testFunc(inputVal:Integer):integer;stdcall;//safecall  end;    TCprintSupport = class(TComObject,Iprinter)  protected    //Declare ICalculator methods here    function checkPrinterStatus(LPTPort:word):Byte;stdcall;//safecall    function testFunc(inputVal:Integer):integer;stdcall;   //safecall  end;const  Class_CprintSupport: TGUID = '{6D380B4D-1B5C-4246-8587-F64C59158963}';//GUIDimplementationuses ComServ;function TCprintSupport.checkPrinterStatus(LPTPort:word):Byte;var  statusLPT:Byte;  checkLPT:Word;begin  statusLPT:= 0;  try    if(LPTPort>=1)and(LPTPort<=3)then    begin      checkLPT:=LPTPort-1;      asm        mov dx,checkLPT;        mov al,0;        mov ah,2;        int 17H;        mov &statusLPT,ah;      end;    end;  except    Result:=0;  end;  Result:=statusLPT;end;function TCprintSupport.testFunc(inputVal:Integer):integer;var  valCase:integer;begin  valCase:=inputVal;  case valCase of    1:    begin      MessageBoxW(0,'you input "1"','hint',0);      Result:=1;    end;    2:    begin      MessageBoxW(0,'you input "2"','hint',0);      Result:=2;    end;    3:    begin      MessageBoxW(0,'you input "3"','hint',0);      Result:=3;    end;  else    MessageBoxW(0,'success','hint',0);    Result:=4;  end;  Result:=0end;initialization  //初始化建立唯一的guid值的com对象  TComObjectFactory.Create(ComServer, TCprintSupport, Class_CprintSupport,    'CprintSupport', 'printer support plate01', ciMultiInstance, tmApartment);end.

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