使用 COM+ 參數(shù)化對象結(jié)構(gòu)編程技術(shù)

關(guān)鍵詞： Delphi控件雜項

使用 COM+ 參數(shù)化對象結(jié)構(gòu)編程技術(shù)
一、引言
????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ā)元件程式，把一些細節(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)用程式，我們可以避免底層繁瑣的細節(jié)處理，如多線程的並發(fā)處理。通過

COM+系統(tǒng)服務(wù)，在獲得可靠性的同時，也使的元件和應(yīng)用程式更趨於標準化，在更廣泛的範圍內(nèi)體現(xiàn)元件或

者應(yīng)用的多態(tài)性。
????COM+ 的推出終于有機的統(tǒng)一了 COM/DCOM/MTS 的編程模式，使得我們不需要區(qū)分我們編寫的是什么類型

的COM 對象，所編寫的對象既是 COM 對象也是 COM+對象；在 COM+ 中物件環(huán)境和截取(intercept) 技術(shù)都

被合併到標準的 COM代理/存根中，所以可以通過標準得 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;

?

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3376