Delphi編寫COM+簡介

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

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

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

4、是很有用的，它可以動態(tài)了解組件對象所支持的接口。接口是團(tuán)向?qū)ο缶幊趟枷氲囊环N體現(xiàn)它隱藏了COM對象實現(xiàn)服務(wù)的細(xì)節(jié)。COM對象可以完全獨立于訪問它的客戶，只要接口本身保持不變即可。如果需要更新接口，則可以重新定義一個新的接口，對于使用老接口的客戶來說，代碼得到了最大程度的保護(hù)。Delphi通過向?qū)Э梢苑浅Ｑ杆俸头奖愕闹苯咏崿F(xiàn)COM對象的代碼，但是整個COM實現(xiàn)的過程被完全的封裝，甚至沒有VCL那么結(jié)構(gòu)清晰可見。一個沒有C+下COM開發(fā)經(jīng)驗甚至沒有接觸過COM開發(fā)的Delphi程序員，也能夠很容易的按照教程設(shè)計一個接口，但是，恐怕深入一想，連生成的代碼代表何種意義，哪些能夠定制都不清楚。前幾期

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

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

7、升級，COM+是向后兼容的，但在某些程度上具有和COM不同的特性，比如無狀態(tài)的、事務(wù)控制、安全控制等等。以前的OLE是用來描述建立在COM體系結(jié)構(gòu)基礎(chǔ)上的一整套技術(shù)，現(xiàn)在OLE僅僅是指與對象連接及嵌入有關(guān)的技術(shù)；ActiveX則用來描述建立在COM基礎(chǔ)上的非COM技術(shù)，它的重要內(nèi)容是自動化（Automation），自動化允許一個應(yīng)用程序（稱為自動化控制器）操縱另一個應(yīng)用程序或庫（稱為自動化服務(wù)器）的對象，或者把應(yīng)用程序元素暴露出來。由此可見COM與以上的幾種技術(shù)的關(guān)系，并且它們都是為了讓對象能夠跨開發(fā)工具跨平臺甚至跨網(wǎng)絡(luò)的被使用。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編程技術(shù)”一文，可以明白IInterface中的定義，即接口查詢及引用記數(shù)，這也是訪問和調(diào)用一個接口所必須的。Querylnterface可以得到接口句柄而AddRef與Release則負(fù)責(zé)登記調(diào)用次數(shù)。COM和接口的關(guān)系又是什么呢？COM通過接口進(jìn)行組件、應(yīng)用程序、客戶和服務(wù)器之間的通信。COM對象需要注冊，而一個GUID則是作為識別接口的唯一名字。假如你創(chuàng)建了一個COM對象，它的聲明類似Txxxx=class(TComObject,Ixxxx),前面是COM對象的基類，后面這個接口的聲明則是：Ixxxx=interface(

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

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

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

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

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

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

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

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

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

21、，已經(jīng)可以通過涉及的父類的作用大致猜測到TSample是如何創(chuàng)建并注冊為一個標(biāo)準(zhǔn)的COM對象的了。那么接口ISample又是怎么來的呢？pCOM_TLB單元是系統(tǒng)自動建立的,其名稱加上了_TLB它里面包含了ISample=interface（IUnknown）的接口定義。前面提到過，所有COM接口都是從lUnknow繼承的。在這個單元里我們還可以看三種ID（類型庫ID、IID及COM注冊所必須的CLSID）的定義：LIBID_pCOM，IID_ISample和CLASS_Sample。關(guān)鍵是這時接口本身僅僅只有定義代碼而沒有任何的實現(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的向?qū)Ш皖愋途庉嬈鲙椭傻慕涌诙x代碼，都會綁定一個Co+類名的類，它實現(xiàn)了創(chuàng)建接口實例的代碼。CreateComObject和CreateRemoteComObject函數(shù)在ComObj單元定義它們就是使用CLSID創(chuàng)建COM/DCOM對象的函數(shù)！初始化：注冊COM對象的類工廠類工廠負(fù)責(zé)接口類的統(tǒng)一管理一實際上是由支持ICIassFactory接口的對象來管理的。類工廠類的繼承關(guān)系如下：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í)行?；仡櫱懊娴膬?nèi)容并觀察一下TTypedComObje

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

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

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

28、UnloadNow判斷DLL是否可從內(nèi)存卸載；DllRegisterServer和DIIUnregisterServer負(fù)責(zé)DLL的注冊和解除注冊，其具體的功能由ComServer實現(xiàn)。接口類的具體實現(xiàn)好了，現(xiàn)在自動生成代碼的來龍去脈已經(jīng)解釋清楚了，下一步就是由我們來添加接口方法的實現(xiàn)代碼。在functionTSampIe.GetCOMInfo的部分添加如下代碼。我寫的例子很簡單，僅僅是根據(jù)傳遞的參數(shù)組織一條字符串并返回。以此證明接口正確調(diào)用并執(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對象及調(diào)用接口隨便建立一個Application用于測試上面的COM。必要的代碼很少，創(chuàng)建一個接口的實例然后執(zhí)行它的方法。當(dāng)然我們得先行注冊COM，否則調(diào)用根據(jù)CLSI

30、D找不接口的話，將報告無法向注冊表寫入項。如果接口定義不一致，貝U會報告Interfacenotsupported編譯上面的這個COM工程，然后選擇菜單Run-RegisterActiveXServer,或者通過Windows下system/system32目錄中的regsvr32.exe程序注冊編譯好的DLL文件。regsvr32的具體參數(shù)可以通過regsvr32/?來獲得。對于進(jìn)程外(EXE型)的COM對象，執(zhí)行一次應(yīng)用程序就注冊了。提示DLL注冊成功后，就應(yīng)該可以正確執(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;最終值是從當(dāng)前程序外的一個接口返回的，我們甚至可以不知道這個接口的實現(xiàn)！第一次接觸COM的人，成功執(zhí)行此程序并彈出對話框后，也許會體會到一種技術(shù)如斯奇妙的感覺，

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

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

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

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

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

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

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

39、UID=xxxxxxxx-xxxxx-xxxxx-xxxxx-xxxxxxxx;在Delphi的編輯界面按Ctrl+Shift+G鍵可以自動生成等號后的數(shù)據(jù)串。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方法。當(dāng)客戶端創(chuàng)建接口后，將首先執(zhí)行里面的代碼，與Create的作用一樣。一個COM對象的生存周期內(nèi)，難免需要初始化類成員或者設(shè)置變量的初值，所以經(jīng)常需要重載這個過程。相對應(yīng)的，destructorDestroy則和類的標(biāo)準(zhǔn)析構(gòu)過程一樣，作用也相同。類工廠注冊在代碼的最后部分，假如使用TComObjectFact

44、ory來注冊，就和前面所講的完全一樣了。我在這里刻意用類TMySvrFactory繼承了一次，并且重載了UpdateRegistry方法，以便向注冊表中寫入額外的內(nèi)容。這是種小技巧，希望大家根據(jù)本文的思路，摸清COM/DCOM對象的Delphi實現(xiàn)結(jié)構(gòu)后，可以舉一反三。畢竟隨心所欲的控制COM對象，能提供的功能遠(yuǎn)不如此。Delphi編寫COM+簡介(轉(zhuǎn))學(xué)習(xí)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標(biāo)簽下的TransactionalObject2:然后填寫:CoClssName:類的名字,比如:ComPlusThreadingModal:線程模式:Apartment選項：Supportstransactions3:然后在View-Library的對話框中增加方法注意:如果參數(shù)為輸出的話，則類型要是指針型，比如:Long*，然后修改后面的參數(shù)in:out,ret4:最后完善增加的方法就ok了2:客戶端調(diào)用的編寫: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服務(wù)器的哪個組件包中，installto

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

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

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

50、COM+的權(quán)限依賴于Windows的權(quán)限配置，在服務(wù)器需要有客戶機(jī)的用戶名和密碼。如果還不行，就在服務(wù)器上重新安裝com+,重新導(dǎo)出.2:建立工程時,com+不能包含在工程組中(我的實踐)3:COM+不支持Oracle嗎？在用事務(wù)的時候出錯:UsingOraclewithMicrosoftTransactionServerandCOM+7:在Com+中添加遠(yuǎn)程數(shù)據(jù)模塊1:FileNewOtherMultitier標(biāo)簽下的TransactionalDataModule2:然后在View-Library的對話框中增加方法.8:Com+中傳遞數(shù)組先定義數(shù)組: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的數(shù)據(jù)作為一個Variant類型的變量進(jìn)行傳

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

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

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

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

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

58、dateasetpy_code=py_codewherepy_codelikeB%這時這個COM將會死鎖等待，雖然改動的不是一個數(shù)據(jù)也會死鎖用CommitRead或UnCommitRead不會建議：所以被多個子系統(tǒng)更新或讀的表要在最后打開和更新，不要早。另外可以強(qiáng)制改變ADOCONNECTION的隔離級6:Com+中如何進(jìn)行事務(wù)處理？在COM+中，如何使用SetComplete和SetAbort進(jìn)行事務(wù)管理?老兄，SetComplete和SetAbort怎么能在客戶端調(diào)用呢？這樣肯定是不行的。要保證事務(wù)，就在服務(wù)器端聲明一個專門保存的接口方法，例如：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:,在組件管理器中的事務(wù)列表里也看不到事務(wù)（應(yīng)該有事務(wù)的時候

60、）,怎么看?8:Com+的兩大研究:事務(wù)和pooling9:做一個提交用的COM+對象和一個協(xié)調(diào)用的COM+對象？D通過向?qū)Э梢苑浅Ｑ杆俸头奖愕闹苯咏崿F(xiàn)對象的代碼，但是整個實現(xiàn)的過程被完全的封裝，甚至沒有那么結(jié)構(gòu)清晰可見。一個沒有下開發(fā)經(jīng)驗甚至沒有接觸過開發(fā)的D程序員，也能夠很容易的按照教程設(shè)計一個接口，但是，恐怕深入一想，連生成的代碼代表何種意義，哪些能夠定制都不清楚。前幾期“DELPHI下的編程技術(shù)”一文已經(jīng)初步介紹了的一些基本概念，我則想談一些個人的理解，希望能給對D下編程有疑惑的朋友帶來幫助。組件對象模型是一個很龐大的體系。簡單來說，定義了一組PI與一個二進(jìn)制的標(biāo)準(zhǔn)，讓來自不同平臺