Delphi編寫COM+簡介

1、軟件重用是業(yè)界追求的目標，人們一直希望能夠像搭積木一樣隨意裝配應用程序，組件對象就充當了積木的角色。所謂組件對象，實際上就是預定義好的、能完成一定功能的服務或接口。問題是，這些組件對象如何與應用程序、如何與其他組件對象共存并相互通信和交互?這就需要制定?個規(guī)范，讓這些組件對象按統(tǒng)一的標準方式工作。COM是個二進制規(guī)范，它與源代碼無關。這樣，即使COM對象由不同的編程語言創(chuàng)建，運行在不同的進程空間和不同的操作系統(tǒng)平臺，這些對象也能相互通信。COM既是規(guī)范也是實現(xiàn)它以COM庫(OLE32.dll和貼OLEAut32.dll)的形式提供了訪問COM對象核心功能的標準接口以及一組API函數，這些API

2、函數用于創(chuàng)建和管理COM對象。COM本質上仍然是客戶服務器模式?？蛻?通常是應用程序)請求創(chuàng)建COM對象并通過COM對象的接口操縱COM對象。服務器根據客戶的請求創(chuàng)建并管理COM對象?？蛻艉头掌鬟@兩種角色并不是絕對的。組件對象與一般意義上的對象既相似也有區(qū)別。一般意義上的對象是一種把數據和操縱數據的方法封裝在一起的數據類型的實例，而組件對象則使用接口(Interface)而不是方法來描述自己并提供服務。所謂接口，其精確定義是基于對象的一組語義上相關的功能，實際上是一個純虛類，真正實現(xiàn)接口的是接口對象)(1nterfaceObject)。一個COM對象可以只有一個接口，例如Wndows95/9

3、8外殼擴展；也可以有許多接口，例如ActiveX控件一般就有多個接口，客戶可以從很多方面來操縱ActiveX控件。接口是客戶與服務器通信的唯一途徑。如果一個組件對象有多個接口，則通過一個接口不能直接訪問其他接口。但是，COM允許客戶調用COM庫中的Querylnterface()去查詢組件對象所支持的其他接口。從這個意義上講，組件對象有點像接口對象的經紀人。在調用QueryInterface()后，如果組件對象正好支持要查詢的接口，則QueryInterface將返回該接口的指針。如果組件對象不支持該接口，則QueryInterfacd將返回一個出錯信息。所以，QueryInterface()

4、是很有用的，它可以動態(tài)了解組件對象所支持的接口。接口是團向對象編程思想的一種體現(xiàn)它隱藏了COM對象實現(xiàn)服務的細節(jié)。COM對象可以完全獨立于訪問它的客戶，只要接口本身保持不變即可。如果需要更新接口，則可以重新定義一個新的接口，對于使用老接口的客戶來說，代碼得到了最大程度的保護。Delphi通過向導可以非常迅速和方便的直接建立實現(xiàn)COM對象的代碼，但是整個COM實現(xiàn)的過程被完全的封裝，甚至沒有VCL那么結構清晰可見。一個沒有C+下COM開發(fā)經驗甚至沒有接觸過COM開發(fā)的Delphi程序員，也能夠很容易的按照教程設計一個接口，但是，恐怕深入一想，連生成的代碼代表何種意義，哪些能夠定制都不清楚。前幾期

5、DELPH下的COM編程技術一文已經初步介紹了COM的一些基本概念，我則想談一些個人的理解，希望能給對Delphi下COM編程有疑惑的朋友帶來幫助。COM(組件對象模型ComponentObjectModel)是一個很龐大的體系。簡單來說，COM定義了一組API與一個二進制的標準，讓來自不同平臺、不同開發(fā)語言的獨立對象之間進行通信。COM對象只有方法和屬性，并包含一個或多個接口。這些接口實現(xiàn)了COM對象的功能，通過調用注冊的COM對象的接口，能夠在不同平臺間傳遞數據。COM光標準和細節(jié)就可以出幾本大書。這里避重就輕，僅僅初步的解釋Delphi如何進行COM的封裝及實現(xiàn)對于上述COM技術經驗不足

6、的Delphi程序開發(fā)者來說，Delphi通過模版生成的代碼就像是給你一幅抽象畫照著畫一樣，畫出來了卻不一定知道畫的究竟是什么，也不知該如何下手畫自己的東西。本文能夠幫助你解決這類疑惑。再次講解一些概念DELPH下的COM編程技術”一文已經介紹了不少COM的概念，比如GUID、CLSID、IID，引用計數，IUnKnown接口等，下面再補充一些相關內容：COM與DCOM、COM+、OLE、ActiveX的關系DCOM（分布式COM）提供一種網絡上訪問其他機器的手段，是COM的網絡化擴展，可以遠程創(chuàng)建及調用。COM+是Microsoft對COM進行了重要的更新后推出的技術，但它不簡單等于COM的

7、升級，COM+是向后兼容的，但在某些程度上具有和COM不同的特性，比如無狀態(tài)的、事務控制、安全控制等等。以前的OLE是用來描述建立在COM體系結構基礎上的一整套技術，現(xiàn)在OLE僅僅是指與對象連接及嵌入有關的技術；ActiveX則用來描述建立在COM基礎上的非COM技術，它的重要內容是自動化（Automation），自動化允許一個應用程序（稱為自動化控制器）操縱另一個應用程序或庫（稱為自動化服務器）的對象，或者把應用程序元素暴露出來。由此可見COM與以上的幾種技術的關系，并且它們都是為了讓對象能夠跨開發(fā)工具跨平臺甚至跨網絡的被使用。Delphi下的接口Delphi中的接口概念類似C+中的純虛類，

8、又由于Delphi的類是單繼承模式（C+是多繼承的），即一個類只能有一個父類。接口在某種程度上可以實現(xiàn)多繼承。接口類的聲明與一般類聲明的不同是，它可以象多重繼承那樣，類名=class（接口類1接口類2.），然后被聲明的接口類則重載繼承類的虛方法，來實現(xiàn)接口的功能。以下是IInterface、IUnknown、IDispatch的聲明，大家看出這幾個重要接口之間是什么樣的聯(lián)系了嗎？任何一個COM對象的接口，最終都是從IUnknown繼承的，而Automation對象，則還要包含IDispatch，后面DCOM部分我們會看到它的作用。IInterface=interface00000000-000

9、0-0000-C000-000000000046functionQueryInterface(constIID:TGUID;outObj):HResult;stdcall;function_AddRef:Integer;stdcall;function_Release:Integer;stdcall;end;IUnknown=IInterface;IDispatch=interface(IUnknown)00020400-0000-0000-C000-000000000046functionGetTypeInfoCount(outCount:Integer):HResult;stdcall;f

10、unctionGetTypeInfo(Index,LocaleID:Integer;outTypeInfo):HResult;stdcall;functionGetIDsOfNames(constIID:TGUID;Names:Pointer;NameCount,LocaleID:Integer;DispIDs:Pointer):HResult;stdcall;functionInvoke(DispID:Integer;constIID:TGUID;LocaleID:Integer;Flags:Word;varParams;VarResult,ExcepInfo,ArgErr:Pointer)

11、:HResult;stdcall;end;對照DELPH下的COM編程技術”一文，可以明白IInterface中的定義，即接口查詢及引用記數，這也是訪問和調用一個接口所必須的。Querylnterface可以得到接口句柄而AddRef與Release則負責登記調用次數。COM和接口的關系又是什么呢？COM通過接口進行組件、應用程序、客戶和服務器之間的通信。COM對象需要注冊，而一個GUID則是作為識別接口的唯一名字。假如你創(chuàng)建了一個COM對象，它的聲明類似Txxxx=class(TComObject,Ixxxx),前面是COM對象的基類，后面這個接口的聲明則是：Ixxxx=interface(

12、IUnknown)。所以說IUnknown是Delphi中COM對象接口類的祖先。到這一步，我想大家對接口類的來歷已經有初步了解了。聚合接口是COM實現(xiàn)的基礎，接口也是可繼承的，但是接口并沒有實現(xiàn)自己，僅僅只有聲明。那么怎么使COM對象對接口的實現(xiàn)得到重用呢？答案就是聚合。聚合就是一個包含對象（外部對象）創(chuàng)建一個被包含對象（內部對象），這樣內部對象的接口就暴露給外部對象。簡單來說，COM對象被注冊后，可以找到并調用接口。但接口不是僅僅有個定義嗎，它必然通過某種方式找到這個定義的實現(xiàn)，即接口的實現(xiàn)類的方法，這樣才最終通過外部的接口轉入進行具體的操作，并通過接口返回執(zhí)行結果。進程內與進程外（In-

13、Process,Out-Process）進程內的接口的實現(xiàn)基礎是一個DLL進程外的接口則是建立在應用程序（EXE）上的。通常我們建立進程外接口的目的主要是為了方便調試（跟蹤DLL是件很麻煩的事），然后在將代碼改為進程內發(fā)布。因為進程內比進程外的執(zhí)行效率會高一些。（也就是先建立進程內的接口，再將其改為進程內發(fā)布。）COM對象創(chuàng)建在服務器的進程空間。如果是EXE型服務器，那么服務器和客戶端不在同一進程；如果是DLL型服務器，則服務器和客戶端就是一個進程。所以進程內還能節(jié)省內存空間，并且減少創(chuàng)建實例的時間。StdCall與SafeCallDelphi生成的COM接口默認的方法函數調用方式是stdca

14、ll而不是缺省的Registe。這是為了保證不同語言編譯器的接口兼容。雙重接口（在后面講解自動化時會提到雙重接口）則默認的是SafeCal。它的意義除了按SafeCall約定方式調用外，還將封裝方法以便向調用者返回HResult值。SafeCall的好處是能夠捕獲所有異常，即使是方法中未被代碼處理的異常，也可以被外套處理并通過HResult返回給調用者。WideString等一些有差異的類型接口定義中缺省的字符參數或返回值將不再是String而是WideString。WideString是Delphi中符合OLE32-bit版本的Unicode類型，當是字符時，WideString與Strin

15、g幾乎等同，當處理Unicode字符時，則會有很大差別。聯(lián)想到COM本身是為了跨平臺使用，可以很容易的理解為什么數據通信時需要使用WideString類型。同樣的道理，integer類型將變成SYSINT或者Int64、SmallInt或者Shortint，這些細微的變化都是為了符合規(guī)范。通過向導生成基礎代碼打開創(chuàng)建新工程向導（菜單Fi風ew-Other”或NewItem按鈕”），選擇ActiveX頁。先建立一個ActiveXLibrary。編譯后即是個DLL文件（進程內）。然后在同樣的頁面再建立一個COMObject。接著你將看到如下向導，除了填寫類名外（接口名會自動根據類名填充），創(chuàng)建有實

16、例模式（Instancing）和線程模式（ThreadingModel）的選項。實例模式-決定客戶端請求后，COM對象如何創(chuàng)建實例：Internal：供COM對象內部使用，不會響應客戶端請求，只能通過COM對象內部的其他方法來建立；SingleInstanee：不論當前系統(tǒng)內部是否存在相同COM對象，都會建立一個新的程序及獨立的對象實例；MulitpleInstanee如果有多個相同的COM對象只會建立一個程序，多個COM對象的實例共享公共代碼，并擁有自己的數據空間。Single/MulitpleInstanee有各自的優(yōu)點，Mulitple雖然節(jié)省了內存但更加費時。即Single模式需要更多

17、的內存資源，而Mulitple模式需要更多的CPU資源，且Single的實例響應請求的負荷較為平均。該參數應根據服務器的實際需求來考慮。線程模式有五種：Single：僅單線程，處理簡單，吞吐量最低；Apartment：COM程序多線程，COM對象處理請求單線程；Free：一個COM對象的多個實例可以同時運行。吞吐量提高的同時，也要求對COM對象進行必要的保護，以避免多個實例沖突；Both:同時支持Aartment和Free兩種線程模式。Neutral：只能在COM+下使用。雖然Free和Both的效率得到提高，但是要求較高的技巧以避免沖突（這是很不容易調試的），所以一般建議使用Delphi的缺

18、省方式。類型庫編輯器（TypeLibrary）假設我們建立一個叫做TSample的類和ISample的接口（如圖），然后使用類型庫編輯器創(chuàng)建一個方法GetCOMInfo（在右邊樹部分點擊右鍵彈出菜單選擇New-Method或者點擊上方按鈕），并于左邊Parameters頁面建立兩個參數（Vallnt:Integer,ValStr:String），返回值為BSTR。如圖：可以看到，除了常用類型外，參數和返回值還可以支持很多指針、OLE對象、接口類型。建立普通的COM對象，其ReturenType是可以任意的，這是和DCOM的一個區(qū)別。雙擊Modifier列彈出窗口，可以選擇參數的方式：in、ou

19、t分別對應const、out定義，選擇HasDefaultValue可設置參數缺省值。Delphi生成代碼詳解點擊刷新按鈕刷新后，上面類型庫編輯器對應的Delphi自動生成的代碼如下：竟然會自/動加上這個東西引用單元有三個特殊的單元被引用：ComObj,ComServ和pCOM_TLB。ComObj里定義了COM接口類的父類TTypedComObject和類工廠類TTypedComObjectFactory（分別從TComObject和TComObjectFactory繼承加了Typed，早期版本如Delphi4建立的COM,就直接從TcomObject繼承和使用TComObjectFacto

20、ry了）；ComServ單元里面定義了全局變量ComServer:TComServer真的有這個,它是從TComServerObject繼承的，關于這個變量的作用，后面將會提到。這幾個類都是delphi實現(xiàn)COM對象的比較基礎的類，TComObject（COM對象類）和TComObjectFactory（COM對象類工廠類）本身就是IUnknown的兩個實現(xiàn)類，包含了一個COM對象的建立、查詢、登記、注冊等方面的代碼。TComServerObject則用來注冊一個COM對象的服務信息。接口定義說明再看接口類定義TSample=class（TTypedComObject,ISample）。到這里

21、，已經可以通過涉及的父類的作用大致猜測到TSample是如何創(chuàng)建并注冊為一個標準的COM對象的了。那么接口ISample又是怎么來的呢？pCOM_TLB單元是系統(tǒng)自動建立的,其名稱加上了_TLB它里面包含了ISample=interface（IUnknown）的接口定義。前面提到過，所有COM接口都是從lUnknow繼承的。在這個單元里我們還可以看三種ID（類型庫ID、IID及COM注冊所必須的CLSID）的定義：LIBID_pCOM，IID_ISample和CLASS_Sample。關鍵是這時接口本身僅僅只有定義代碼而沒有任何的實現(xiàn)代碼，那接口創(chuàng)建又是在何處執(zhí)行的？_TLB單元里還有這樣的代

22、碼：CoSample=classclassfunctionCreate:ISample;classfunctionCreateRemote(constMachineName:string):ISample;end;classfunctionCoSample.Create:ISample;beginResult:=CreateComObject(CLASS_Sample)asISample;end;classfunctionCoSample.CreateRemote(constMachineName:string):ISample;beginResult:=CreateRemoteComObje

23、ct(MachineName,CLASS_Sample)asISample;end;由Delphi的向導和類型編輯器幫助生成的接口定義代碼，都會綁定一個Co+類名的類，它實現(xiàn)了創(chuàng)建接口實例的代碼。CreateComObject和CreateRemoteComObject函數在ComObj單元定義它們就是使用CLSID創(chuàng)建COM/DCOM對象的函數！初始化：注冊COM對象的類工廠類工廠負責接口類的統(tǒng)一管理一實際上是由支持ICIassFactory接口的對象來管理的。類工廠類的繼承關系如下：IClassFactory=interface(IUnknown)TComObjectFactory=cla

24、ss(TObject,IUnknown,IClassFactory,IClassFactory2)TTypedComObjectFactory=class(TComObjectFactory)我們知道了接口ISample是怎樣被創(chuàng)建的，接口實現(xiàn)類TSample又是如何被定義為COM對象的實現(xiàn)類?，F(xiàn)在解釋它是怎么被注冊，以及何時創(chuàng)建的。這一切的小把戲都在最后Delphi單元里的initialization的部分，這里有一條類工廠建立的語句。Initialization是Delphi用于初始化的特殊部分，此部分的代碼將在整個程序啟動的時候首先執(zhí)行?；仡櫱懊娴膬热莶⒂^察一下TTypedComObje

25、ctFactory的參數：【ComServer是用于注冊/撤消注冊COM服務的對象，TSample是接口實現(xiàn)類,Class_Sample是接口唯一對應的GUID,ciMultilnstanee是實例模式，tmApartment是線程模式。一個COM對象應該具備的特征和要素都包含在了里面！】那么COM對象的管理又是怎么實現(xiàn)的呢？在ComObj單元里面可以見到一條定義functionComClassManager:TComClassManager;這里TComClassManager顧名思義就是COM對象的管理類。任何一個祖先類為TComObjectFactory的對象被建立時，其Create里面

26、會執(zhí)行這樣一句：ComClassManager.AddObjectFactory(Self);AddObjectFactory方法的原形為procedureTComClassManager.AddObjectFactory(Factory:TComObjectFactory);相對應的還有RemoveObjectFactory方法。具體的代碼我就不貼出來了，相信大家已經猜測到了它的作用將當前對象(self)加入到ComClassManager管理的對象鏈(FFactoryList)中。封裝的秘密讀者應該還有最后一個疑問：假如服務器通過類工廠的注冊以及GUID確定一個COM對象，那當客戶端調用的

27、時候，服務器是如何啟動包含COM對象的程序的呢？當你建立ActiveXLibrary的工程的時候，將發(fā)現(xiàn)一個和普通DLL模版不同的地方它定義了四個輸出例程：exportsDllGetClassObject,DllCanUnloadNow,DllRegisterServer,DllUnregisterServer;這四個例程并不是我們編寫的，它們都在ComServ單元例實現(xiàn)。單元還定義了類TComServer,并且在初始化部分創(chuàng)建了類的實例，即前面提到過的全局變量ComServer。例程DIIGetClassObject通過CLSID得到支持ICIassFactory接口的對象；例程DllCan

28、UnloadNow判斷DLL是否可從內存卸載；DllRegisterServer和DIIUnregisterServer負責DLL的注冊和解除注冊，其具體的功能由ComServer實現(xiàn)。接口類的具體實現(xiàn)好了，現(xiàn)在自動生成代碼的來龍去脈已經解釋清楚了，下一步就是由我們來添加接口方法的實現(xiàn)代碼。在functionTSampIe.GetCOMInfo的部分添加如下代碼。我寫的例子很簡單，僅僅是根據傳遞的參數組織一條字符串并返回。以此證明接口正確調用并執(zhí)行了該代碼：functionTSampIe.GetCOMInfo(VaIInt:SYSINT;constVaIStr:WideString):Wide

29、String;constServer1=1;Server2=2;Server3=3;vars:string;begins:=ThisisCOMserver:;caseVaIIntofServer1:s:=s+Server1;Server2:s:=s+Server2;Server3:s:=s+Server3;end;s:=s+#13+#10+Executeclientis+ValStr;Result:=s;end;注冊、創(chuàng)建COM對象及調用接口隨便建立一個Application用于測試上面的COM。必要的代碼很少，創(chuàng)建一個接口的實例然后執(zhí)行它的方法。當然我們得先行注冊COM，否則調用根據CLSI

30、D找不接口的話，將報告無法向注冊表寫入項。如果接口定義不一致，貝U會報告Interfacenotsupported編譯上面的這個COM工程，然后選擇菜單Run-RegisterActiveXServer,或者通過Windows下system/system32目錄中的regsvr32.exe程序注冊編譯好的DLL文件。regsvr32的具體參數可以通過regsvr32/?來獲得。對于進程外(EXE型)的COM對象，執(zhí)行一次應用程序就注冊了。提示DLL注冊成功后，就應該可以正確執(zhí)行下列客戶端程序了：usesComObj,pCOM_TLB;procedureTtest.Button1Click(Se

31、nder:TObject);varCOMSvr:ISample;retStr:string;beginCOMSvr:=CreateComObject(CLASS_Sample)asISample;ifCOMSvrnilthenbeginretStr:=COMSvr.GetCOMInfo(2,client2);showmessage(retStr);COMSvr:=nil;endelseshowmessage(”接口創(chuàng)建不成功);end;最終值是從當前程序外的一個接口返回的，我們甚至可以不知道這個接口的實現(xiàn)！第一次接觸COM的人，成功執(zhí)行此程序并彈出對話框后，也許會體會到一種技術如斯奇妙的感覺，

32、因為你僅僅調用了接口，就可以完成你猜測中的東西。創(chuàng)建一個分布式DCOM（自動化接口）IDispatch在delphi6之前的版本中，所有接口的祖先都是IUnknown,后來為了避免跨平臺操作中接口概念的模糊，又引入了IInterface接口。使用向導生成DCOM的步驟和COM幾乎一致。而生成的代碼僅將接口類的父類換為TAutoObject，類工廠類換為TAutoObjectFactory。這其實沒有太大的不同，因為TAutoObject等于是一個標準COM外加IDispatch接口，而TAutoObjectFactory是從TTypedComObjectFactory直接繼承的：TAutoOb

33、ject=class（TTypedComObject,IDispatch）TAutoObjectFactory=class（TTypedComObjectFactory）自動化服務器支持雙重接口，而且必須實現(xiàn)IDispatch。因討論范疇限制，本文只能簡單提出，IDispatch是DCOM和COM技術實現(xiàn)上的一個重要區(qū)別。打開_TLB.pas單元，可以找到Ixxx=interface（IDispatch）和Ixxx=dispinterface的定義，這在前面COM的例子里面是沒有的。創(chuàng)建過程中的差異使用類型庫編輯器的時候，有兩處和COM不同的地方。首先ReturnType必須選擇HRESULT

34、，否則會提示錯誤，這是為了滿足雙重接口的需要。當ReturnType選擇HRESULT后，你會發(fā)現(xiàn)方法定義將變成procedure（過程）而不是預想中的function（函數）。怎么才能讓方法有返回值呢？還需要在Parameters最后多添加一個參數，然后將該參數改名與方法名一致，設置參數類型為指針（如果找不到某種類型的指針類型，可以直接在類型后面加*，如圖，BSTR*是BSTR的指針類型）。最后在Modifier列設置ParameterFlags為RetVal，同時Out將被自動選中，而In將被取消。刷新后，得到下列代碼。添加方法的具體實現(xiàn)，大功告成：TSampleAuto=class(TA

35、utoObject,ISampleAuto)protectedfunctionGetAutoSerInfo(ValInt:SYSINT;constValStr:WideString):WideString;safecall;end;遠程接口調用遠程接口的調用需要使用CreateRemoteComObject函數，其它如接口的聲明等等與COM接口調用相同。CreateRemoteComObject函數比CreateComObject多了一個參數，即服務器的計算機名稱，這樣就比COM多出了遠程調用的查詢能力。前面接口定義說明一節(jié)的代碼可以對照CreateComObject、CreateRemote

36、ComObject的區(qū)別。自定義COM的對象接口一個重要的好處是：發(fā)布一個接口，可以不斷更新其功能而不用升級客戶端。因為不論應用升級還是業(yè)務改變，客戶端的調用方式都是一致的。既然我們已經弄清楚Delphi是怎樣實現(xiàn)一個接口的，那能否不使用向導，自己定義接口呢？這樣做可以用一個接口繼承出不同的接口實現(xiàn)類，來完成不同的功能。同時也方便了小組開發(fā)、客戶端開發(fā)、進程內/外同步編譯以及調試。接口單元：xxx_TLB.pas前面略講了接口的定義需要注意的方面。接口除了沒有實例化外，它與普通類還有以下區(qū)別：接口中不能定義字段，所有屬性的讀寫必須由方法實現(xiàn)；接口沒有構造和析構函數，所有成員都是public；接

37、口內的方法不能定義為virtual，dynamic，abstract，override。首先我們要建立一個接口。前面講過接口的定義只存在于一個地方，即xxx_TLB.ps單元里面。使用類型庫編輯器可以產生這樣一個單元。還是在新建項目的ActiveX頁，選擇最后一個圖標（TypeLibrary）打開類型庫編輯器，按F12鍵就可以看到TLB文件（保存為.tlb）了。沒有定義任何接口的時候，TLB文件里除了一大段注釋外只定義了LIBID（類型庫的GUID）。假如關閉了類型庫編輯器也沒有關系，可以隨時通過菜單W一TypeLibrary打開它。先建立一個新接口（使用向導的話這步已經自動完成了），然后如前

38、面操作一樣建立方法、屬性生成的TLB文件內容與向導生成_TLB單元大致相同，但僅有定義，缺乏“co+類名”之類的接口創(chuàng)建代碼。再觀察代碼，將發(fā)現(xiàn)接口是從IDispatch繼承的，必須將這里的IDispatch改為IUnknown。保存將會得到.tlb文件，而我們想要的是一個單元（.pas）文件，僅僅為了聲明接口，所以把代碼拷貝復制并保存到一個新的Unit。自定義CLSID從注冊和調用部分可以看出CLSID的重要作用。CLSID是一個GUID（全局唯一接口表示符），用來標識對象。GUID是一個16個字節(jié)長的128位二進制數據。Delphi聲明一個GUID常量的語法是：Class_XXXXX:TG

39、UID=xxxxxxxx-xxxxx-xxxxx-xxxxx-xxxxxxxx;在Delphi的編輯界面按Ctrl+Shift+G鍵可以自動生成等號后的數據串。GUID的聲明并不一定在_TLB單元里面，任何地方都可以聲明并引用它。接口類聲明與實現(xiàn)新建一個ActiveXLibrary工程，加入剛才定義的TLB單元，再新建一個Unit。我的TLB單元取名為MyDef_TLB.pas，定義了一個接口IMyInterface=interface（IUnknown）以及一個方法functionSampleMethod（val:Smallint）:SYSINT;safecall;現(xiàn)在讓我們看看全部接口類聲

40、明及實現(xiàn)的代碼：unituMyDefCOM;interfaceusesComObj,Comserv,ActiveX,MyDef_TLB;constClass_MySvr:TGUID1C0E5D5A-B824-44A4-AF6C-478363581D43;typeTMyIClass=class(TComObject,IMyInterface)procedureInitialize;override;destructorDestroy;override;privateFInitVal:word;publicfunctionSampleMethod(val:Smallint):SYSINT;safe

41、call;end;TMySvrFactory=class(TComObjectFactory)procedureUpdateRegistry(Register:Boolean);override;end;implementationTMyIClassprocedureTMyIClass.Initialize;begininherited;FInitVal:=100;end;destructorTMyIClass.Destroy;begininherited;end;functionTMyIClass.SampleMethod(val:Smallint):SYSINT;beginResult:=

42、val+FInitVal;end;TMySvrFactoryprocedureTMySvrFactory.UpdateRegistry(Register:Boolean);begininherited;ifRegisterthenbeginCreateRegKey(MyApp+ClassName,GUID,GUIDToString(Class_MySvr);endelsebeginDeleteRegKey(MyApp+ClassName);end;end;initializationTMySvrFactory.Create(ComServer,TMyIClass,Class_MySvr,MyS

43、vr,ciMultiInstance,tmApartment);end.Class_MySvr是自定義的CLSID,TMylClass是接口實現(xiàn)類，TMySvrFactory是類工廠類。COM對象的初始化procedureInitialize是接口的初始化過程，而不是常見的Create方法。當客戶端創(chuàng)建接口后，將首先執(zhí)行里面的代碼，與Create的作用一樣。一個COM對象的生存周期內，難免需要初始化類成員或者設置變量的初值，所以經常需要重載這個過程。相對應的，destructorDestroy則和類的標準析構過程一樣，作用也相同。類工廠注冊在代碼的最后部分，假如使用TComObjectFact

44、ory來注冊，就和前面所講的完全一樣了。我在這里刻意用類TMySvrFactory繼承了一次，并且重載了UpdateRegistry方法，以便向注冊表中寫入額外的內容。這是種小技巧，希望大家根據本文的思路，摸清COM/DCOM對象的Delphi實現(xiàn)結構后，可以舉一反三。畢竟隨心所欲的控制COM對象，能提供的功能遠不如此。Delphi編寫COM+簡介(轉)學習2008-03-2816:47:49閱讀923評論0字號：大中小idispatch是COMobject的接口，在Delphi中通常指一個OleObject.(2)OleVariant是一種COMobject兼容的Variant類型,可以通用

45、任何OleAutomation類型，他與CreateOleObject創(chuàng)建的idispatch兼容1:Com+的編寫：1:FileNewOtherActiveXLibrary標簽下的TransactionalObject2:然后填寫:CoClssName:類的名字,比如:ComPlusThreadingModal:線程模式:Apartment選項：Supportstransactions3:然后在View-Library的對話框中增加方法注意:如果參數為輸出的話，則類型要是指針型，比如:Long*，然后修改后面的參數in:out,ret4:最后完善增加的方法就ok了2:客戶端調用的編寫:1：先

46、倒入Com+的接口類型.Project-importTypeLibrary-選中你編寫的Com+的類型撚后選擇:CreateUnit3、安裝COM+組件有兩種方式，第一種（推薦）：如果是在IDE環(huán)境里，點擊RunInstallCOM+Objects”即可把打開的ActiveLibrary項目安裝到COM+環(huán)境中，注意：如果打開的項目是一個普通的Application項目，是不能被安裝到COM+環(huán)境中的。將要安裝的com+打上勾，然后在application中有兩個選項:installtoexistingapplication:表示你的com+安裝在com服務器的哪個組件包中，installto

47、Newapplication:表示將當前com+組件安裝到一個新的組件包中.第二種辦法：打開控制面板-管理工具-組件服務-計算機-我的電腦-COM+應用程序，在COM+應用程序的樹項上點擊鼠標右鍵，選擇新建-應用程序”-創(chuàng)建一個空的應用程序，并為此應用程序命名，接下來點擊下一步”直到結束即可。建立了空的COM+應用程序后,接下來就是把COMDLL安裝到COM+應用程序中了。在剛建立的空應用程序的樹項中新建一個組件，選擇安裝新組件”，在打開文件對話框中選擇要安裝到COM+環(huán)境中的DLL文件，之后跟著向導做都可以了，要把多個COMDLL安裝到同一個COM+應用程序包中，只需重復以上步驟即可。4、導

48、出客戶端組件包”指的是把已經注冊的組件導出為.msi格式的文件，這些文件在客戶端安裝后，只會在客戶端注冊組件，而不會安裝多余的文件。如果不在客戶端注冊組件，是不不能調用位于服務器上的組件的（此指服務器和客戶端分布在不同的機器上時）。5:調試Com+程序-ok1.打開Windows中的組件管理,找到要調試的組件包,點右鍵,選擇屬性,在高級這頁里選擇調試選項，打勾;然后在下面的調試路徑中找到/processID:xxxxxxxxxxxxxxxxxxxxxxxxxxxxx復制出來2在dephi中Run|Parameters.HOSTAPPLICATION填入系統(tǒng)路徑system32dllhost.e

49、xePARAMETERS粘巾/processID:xxxxxxxxxxxxxxxxxxxxxxxxxxxxx3。很關鍵的一點：組件程序：project|option|linker|IncludeTD32debuginfo和Includeremotedebugsymbols打勾4啟動delphi,運行要調試的Com+程序，設置斷點,然后運行客戶端程序即可進入到Com+斷點.調試完后記得要在Windows中的組件管理中的高級這頁里調試選項勾去掉喲.6:Com+需要注意的地方:1:客戶機運行就會報interfacenotsupported錯誤大致原因:輕舞肥羊(2004-05-0911:00:01)

50、COM+的權限依賴于Windows的權限配置，在服務器需要有客戶機的用戶名和密碼。如果還不行，就在服務器上重新安裝com+,重新導出.2:建立工程時,com+不能包含在工程組中(我的實踐)3:COM+不支持Oracle嗎？在用事務的時候出錯:UsingOraclewithMicrosoftTransactionServerandCOM+7:在Com+中添加遠程數據模塊1:FileNewOtherMultitier標簽下的TransactionalDataModule2:然后在View-Library的對話框中增加方法.8:Com+中傳遞數組先定義數組:typeTDataRecord=recor

51、dA:Byte;B:LongWord;C:Word;D:LongWord;end;1:server:functionGetData:OleVariant;varP:Pointer;beginVarClear(Result);/不知D5有沒。tryResult:=VarArrayCreate(0,SizeOf(TDataType),varByte);P:=VarArrayLock(Result);/Data:TDataType為你要傳的記錄類型Move(Data,PA,SizeOf(TDataType);finallyVarArrayUnLock(Result);end;end；2:Client

52、procedureGetFile(constFileName:string);varP:Pointer;V:OleVariant;Data:TDataType;beginFillChar(Data,SizeOf(Data),0);V:=SocketConnection1.AppServer.GetData;tryP:=VarArrayLock(V);Move(PA,Data,SizeOf(Data);finallyVarArrayUnLock(V);end;end;9:Com+中傳遞記錄集下面xeen實驗成功usesADOInt*可以；你可以將ADO的數據作為一個Variant類型的變量進行傳

53、送：adodatasetl.RecordS這是原生的ado數據這是服務端的一個方法的代碼:把CodeSet的類型改為Variant*in,outfunctionTADORec.getData:OleVariant;beginAdoDataSet1.Open;result:=adodataset1.RecordSet;end;*客戶端usesadoint;varMyRecordset:_recordset;beginMyRecordset:=IUnknown(CodeSet)as_recordset*Com基本概念:*1：COM是一個基于二進制的標準。打個比方，我們用Delphi實現(xiàn)了一個對象，

54、一般情況下，我們只能在Delphi來生成這個對象的實例并調用，而如果我們用Delphi實現(xiàn)了一個COM對象的話，我們可以用VC、VB或者其他任何一種支持COM對象的語言來生成實例和調用。反過來也一樣，我們可以在Delphi中使用各種COM對象，而不用介意它是用什么語言編寫的。COM提供了分布式COM對象的機制，形象地說你可以調用另一臺機器中的COM對象。COM+則是MTS的一個升級，在COM的基礎上進一步提供了事務處理和其他很多Pool技術。2:線程模式:Apartment:多個線程服務.3:當建立Com+時選擇的事務模式為RequiresaTransaction,Com+會根據客戶的的請求建

55、立相應的事務，不僅僅時數據庫，還會有系統(tǒng)資源等事務.成功SetComplete.回滾SetAbort.選擇RequiresaTransaction表示當用戶調用這個COM+組件時，COM+環(huán)境會為這個組件建立一個新的事務上下文，這和數據庫的事務不是一回事。當你的COM+組件提交數據時如果出錯，應該告訴事務上下文，只要調用COM+組件的SetAbort方法就可以。這樣一來，處于同一個事務上下文的所有COM+組件都會Rollback。如果數據提交成功，應該調用SetComplete不調用這個方法也可以，因為在默認情況下，COM+組件的事務狀態(tài)設置為EnableCommite。當處于同一事務上下文的

56、所有COM+組件對象都調用了SetComplete時，該事務上下文才會真正的向數據庫提交數據。4:SetAbort合SetComplete是否正確調用5:(阿朱)建議：多個DLL在一個包，一個DLL中的COM公用一個ADOCONNECTION6:問題:我已經在TransactionalDataModule的Pooled屬性里面設置了True了，但是在Win2000的組件服務管理的組件屬性的激活一欄里面，仍然無法打開啟用對象共用的選項-您可以將線程模式設置為tmNeutral或者tmBoth都可以。Com有需要研究和有疑問的地方:1:Com+的模式：2:到Com+的資源Pooling機制3:用d

57、elphi6開發(fā)Com+,用Neutral模式，盡量用ObjectPooling,當然就是要無狀態(tài)了，事務要盡量短，避免死鎖，用ADO不要用BDe.Dbexpress4:我的做法是，按功能劃分組件，把查詢和更新分為兩個功能組件，因為查詢不需要事務，所以只要支持事務就行了。更新一般需要事務5:COM+的事務屬性COM+的事務默認級別是序列Read,而不是我們認為的commitRead,而且我們設置AdoConnection的隔離級是不管用的，只能強制用顯式的SQL才能起效果。例如：一個中間層COMselect*fromawherepy_codelikeS%繼續(xù)下面有很多代碼另一個中間層COMup

58、dateasetpy_code=py_codewherepy_codelikeB%這時這個COM將會死鎖等待，雖然改動的不是一個數據也會死鎖用CommitRead或UnCommitRead不會建議：所以被多個子系統(tǒng)更新或讀的表要在最后打開和更新，不要早。另外可以強制改變ADOCONNECTION的隔離級6:Com+中如何進行事務處理？在COM+中，如何使用SetComplete和SetAbort進行事務管理?老兄，SetComplete和SetAbort怎么能在客戶端調用呢？這樣肯定是不行的。要保證事務，就在服務器端聲明一個專門保存的接口方法，例如：procedureUpdateMyData(

59、varAData1,AData2:OleVariant;varAMaxError,AErrorCount:Integer);begintryDataSetProvider1.Data:=AData1;DataSetProvider1.ApplyUpdate(AMaxError,AErrorCount);DataSetProvider2.Data:=AData2;DataSetProvider2.ApplyUpdate(AMaxError,AErrorCount);SetComplete;exceptSetAbort;end;end;7:,在組件管理器中的事務列表里也看不到事務（應該有事務的時候

60、）,怎么看?8:Com+的兩大研究:事務和pooling9:做一個提交用的COM+對象和一個協(xié)調用的COM+對象？D通過向導可以非常迅速和方便的直接建立實現(xiàn)對象的代碼，但是整個實現(xiàn)的過程被完全的封裝，甚至沒有那么結構清晰可見。一個沒有下開發(fā)經驗甚至沒有接觸過開發(fā)的D程序員，也能夠很容易的按照教程設計一個接口，但是，恐怕深入一想，連生成的代碼代表何種意義，哪些能夠定制都不清楚。前幾期“DELPHI下的編程技術”一文已經初步介紹了的一些基本概念，我則想談一些個人的理解，希望能給對D下編程有疑惑的朋友帶來幫助。組件對象模型是一個很龐大的體系。簡單來說，定義了一組PI與一個二進制的標準，讓來自不同平臺