作者： 陳一蛟

一、引言

COM+ 服務(wù)技術(shù)的一個核心理念就是系統(tǒng)本身提供完成許多面向企業(yè)應(yīng)用開發(fā)者的通用基本模組（如線程、物件資源池管理、事務(wù)服務(wù)管理、事件服務(wù)管理等），讓系統(tǒng)設(shè)計人員把精力集中在企業(yè)應(yīng)用本身的業(yè)務(wù)邏輯上。

COM+提供了許多新的服務(wù)和一致的管理運行環(huán)境，它還支援申明性編程模型(declarative programming model)，也就是說，開發(fā)人員可以按盡可能通用的方式開發(fā)元件程式，把一些細(xì)節(jié)留到配置時刻再確定。例如，在開發(fā)一個COM+元件，它支援事務(wù)處理特性，但是我們在開發(fā)元件的時候，並不確定它是否使用事務(wù)處理特性，而把是否支援事務(wù)處理特性留待配置時刻再作決定。有的應(yīng)用可能會需要事務(wù)處理特性，而有的應(yīng)用可能並不需要，我們可以通過COM+管理程式配置元件的屬性來決定元件是否支援事務(wù)處理特性。MTS安全模型實際上是一個典型的申明性編程技術(shù)，它把元件的安全角色資訊留到配置時刻再給出確切的定義，而非編程時刻。COM+繼承了MTS的安全模型。

利用COM+的服務(wù)和管理工具，開發(fā)一個COM+元件要比開發(fā)一個COM元件容易得多，因爲(wèi)COM+元件實際上是建立在COM+系統(tǒng)服務(wù)基礎(chǔ)上的應(yīng)用程式，我們可以避免底層繁瑣的細(xì)節(jié)處理，如多線程的並發(fā)處理。通過COM+系統(tǒng)服務(wù)，在獲得可靠性的同時，也使的元件和應(yīng)用程式更趨於標(biāo)準(zhǔn)化，在更廣泛的範(fàn)圍內(nèi)體現(xiàn)元件或者應(yīng)用的多態(tài)性。

COM+ 的推出終于有機的統(tǒng)一了 COM/DCOM/MTS 的編程模式，使得我們不需要區(qū)分我們編寫的是什么類型的COM 對象，所編寫的對象既是 COM 對象也是 COM+對象；在 COM+ 中物件環(huán)境和截取(intercept) 技術(shù)都被合併到標(biāo)準(zhǔn)的 COM代理/存根中，所以可以通過標(biāo)準(zhǔn)得 CoCreateInstance 方法來創(chuàng)建物件，並且通過CreateInstance方法創(chuàng)建的MTS 元件同樣可以在COM+ 正常運行和完全相容。

二、參數(shù)化 COM+ 對象結(jié)構(gòu)

在COM+ 中引入了許多新的服務(wù)何功能，參數(shù)化對象結(jié)構(gòu)就是其中一項功能。本功能是用來實現(xiàn)為COM+對象創(chuàng)建提供一個字串參數(shù)，組件對象通過IObjectConstruct接口來查詢管理員配置的字串參數(shù)。參數(shù)化對象結(jié)構(gòu)的一個典型用途就是可以應(yīng)用到程序中作為 ADO 的連接字串參數(shù)。

IObjectConstruct 讓的方法或?qū)ο笸ㄟ^參數(shù)來控制相關(guān)對象處理功能，我們必須使用接口對象來實現(xiàn)此接口，當(dāng)管理員將組件對象的對象結(jié)構(gòu)配置參數(shù)設(shè)置有效后，COM+ 將調(diào)用 IObjectConstruct.Construct 通過IObjectConstructString來獲取參數(shù)化 COM+ 對象結(jié)構(gòu)中的字串參數(shù)。

IObjectConstructString 接口用來存取建立者字符串。本對象是一個Automation COM 對象，但無須通過接口對象來實現(xiàn)他，COM+ 支持在調(diào)用 IObjectConstruct.Construct 時暴露此對象。

如何為元件輸入對象結(jié)構(gòu)字串。

1、在組件管理器中選取相應(yīng)的組件，右鍵彈出快捷菜單，然后點擊屬性

2、在組件屬性對話框，點擊激活屬性頁。

3、使能對象結(jié)構(gòu)，輸入建立者字符串（例如一個 ADO 連接字串）。

三、程序?qū)崿F(xiàn)

實現(xiàn)COMPlusServer

1、Import Type library->COM+ Services Type Library->Create Unit

2、建立一個新的 ActiveX Library Project

3、創(chuàng)建一個新的 MTS Data Module

4、到 Type Library 中選取 Project->Uses->點擊右鍵選擇 Show All Type Library->選擇COM+

Services Type Library

5、選擇 COM 的接口對象->Implements->點擊右鍵選擇 Insert Interface ->IObjectConstruct

6、在接口中定義一個新的的方法-> GetConString

7、到組件對象實現(xiàn)單元中實現(xiàn)以下代碼：

private

{ Private declarations }

objSonStr: IObjectConstructString;

StrDemo: WideString;

function TXXXServer.Construct(const pCtorObj: IDispatch): HResult;

begin

pCtorObj.QueryInterface(IID_IObjectConstructString, objSonStr);

StrDemo := objSonStr.Get_ConstructString;

end;

procedure TXXXServer.GetConString;

begin

if trim(StrDemo) = '' then

ShowMessage('沒有字串')

else

ShowMessage(StrDemo);

end;

客戶端程序

客戶端程序是最一般化的 Delphi 代碼：

procedure TForm1.Button1Click(Sender: TObject);

begin

DCOMConnection1.AppServer.GetConString;

end;