Delphi 中 COM 實(shí)現(xiàn)研究手記

《Delphi 中 COM 實(shí)現(xiàn)研究手記》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、Delphi中COM實(shí)現(xiàn)研究手記前言???前些日子用Delphi寫了一個(gè)Windows外殼擴(kuò)展程序，大家知道Windows外殼擴(kuò)展實(shí)際上就是COM的一種應(yīng)用--ShellCOM，雖然整個(gè)程序?qū)懙眠€算比較順利，但寫完后還是感覺對(duì)Delphi中COM的實(shí)現(xiàn)有點(diǎn)霧里看花的感覺，因此我認(rèn)為有必要花一點(diǎn)時(shí)間對(duì)COM在Delphi中的實(shí)現(xiàn)做一些研究。另外我也買了李維的新書--《深入核心--VCL架構(gòu)剖析》，里面有兩章涉及了與COM相關(guān)內(nèi)容，看完后我知道了COM在Delphi中的實(shí)現(xiàn)是基于接口(Interface)，而De

2、lphi中的接口概念又起源于對(duì)COM的支持，總之他們之間互相影響，發(fā)展成接口在Delphi中已經(jīng)是First-Class的地位，并且完全擺脫COM而獨(dú)立存在。???本系列文章側(cè)重于描述COM在Delphi中的實(shí)現(xiàn)手法，主要配合VCL源碼片斷進(jìn)行分析，不會(huì)涉及過多的基本概念，因此要求讀者有一定的COM和接口概念，可以參考我在文章末尾列出的文獻(xiàn)。本篇主要講COM對(duì)象在Delphi中的創(chuàng)建過程。正文??為了讓讀者能跟著我的分析輕松讀完本篇文章，我引用文獻(xiàn)[2]中的范例做解釋，但為了更清楚地闡述問題，我改寫了部分代碼

3、。所有分析請(qǐng)?jiān)贒elphi7上測(cè)試。Demo源碼這里下載。??在Delphi中首先通過選擇菜單File-->New-->Other...新建一個(gè)ActiveXLibrary并保存名稱為SimpleComServer，再新建一個(gè)COMObject，在COMObjectWizard中將對(duì)象命名為SimpleCOMObject，Options中的兩個(gè)復(fù)選框都可以不必選中其他的保持默認(rèn)，現(xiàn)在COM服務(wù)器端的框架已經(jīng)建立起來(lái)了。剩下的就是需要我們把聲明的接口ISimpleCOMObject的代碼實(shí)現(xiàn)，其他的讀者自己看源

4、碼吧，很簡(jiǎn)單。服務(wù)器端代碼librarySimpleComServer;uses?ComServ,?SimpleCOMObjectin'SimpleCOMObject.pas',?SimpleComInterfacein'SimpleComInterface.pas',exports?DllGetClassObject,?DllCanUnloadNow,?DllRegisterServer,?DllUnregisterServer;{$R*.RES}beginend.unitSimpleComInterfac

5、e;interfaceusesWindows;const?Class_SimpleComObject:TGUID='{3714CF21-D272-11D3-947F-0050DA73BE5D}';type?ISimpleComObject=interface???['{2E2A6DD0-D282-11D3-947F-0050DA73BE5D}']???functionMultiply(X,Y:Integer):Integer;stdcall;???functionGetClassName:Widestring

6、;stdcall;?end;implementationendunitSimpleCOMObject;interface//SimpleCOMObject的實(shí)現(xiàn)部分uses?Windows,ActiveX,Classes,ComObj,SimpleComInterface;type?TSimpleComObject=class(TComObject,ISimpleComObject)?protected???functionMultiply(X,Y:Integer):Integer;stdcall;???fu

7、nctionGetClassName:Widestring;stdcall;?end;const?Class_SimpleComObject:TGUID='{3714CF21-D272-11D3-947F-0050DA73BE5D}';implementationusesComServ;{TSimpleComObject}functionTSimpleComObject.GetClassName:Widestring;begin?Result:=TSimpleComObject.ClassName;end;f

8、unctionTSimpleComObject.Multiply(X,Y:Integer):Integer;begin?Result:=X*Y;end;initialization?TComObjectFactory.Create(ComServer,TSimpleComObject,Class_SimpleComObject,???'SimpleComObject','Asimpleimpleme