当前位置：首页 -> 技术开发 -> 程序开发 -> 使用 COM+ 参数化对象结构编程技术

使用 COM+ 参数化对象结构编程技术

时间： 2021-07-31 作者：daque

作家：陈一蛟一、弁言com+ 服務技術的一個中心观念即是系統自己供给实行許多面向企業應用開發者的通用基础模組（如線程、物件資源池处置、事務服務处置、事变服務处置等），讓系統設計人員把精神会合在企業應用自己的業務邏輯上。com+供给了許多新的服務和普遍的处置運行環境，它還救济声明性編程模子(declarative programming model)，也即是說，開發人員不妨按盡大概通用的办法開發元件程式，把少许細節留到摆设時刻再確定。比方，在開發一個com+元件，它救济事務處理个性，然而我們在開發元件的時候，並不確定它能否运用事務處理个性，而把能否救济事務處理个性留待摆设時刻再作決定。有的應用大概會须要事務處理个性，而有的應用大概並不须要，我們不妨通過com+处置程式摆设元件的屬性來決定元件能否救济事務處理个性。mts安定模子實際上是一個典范的声明性編程技術，它把元件的安定脚色資訊留到摆设時刻再給出確切的定義，而非編程時刻。com+繼承了mts的安定模子。运用com+的服務和处置东西，開發一個com+元件要比開發一個com元件简单得多，因爲com+元件實際上是创造在com+系統服務基礎上的應用程式，我們不妨制止底層繁瑣的細節處理，如多線程的並發處理。通過com+系統服務，在獲得真实性的同時，也使的元件和應用程式更趨於標準化，在更廣泛的範圍內體現元件大概應用的多態性。com+ 的推出毕竟有机的一致了 com/dcom/mts 的编制程序形式，使得咱们不须要辨别咱们编写的是什么典型的com 东西，所编写的东西既是 com 东西也是 com+东西；在 com+ 中物件環境和截取(intercept) 技術都被合併到標準的 com代劳/存根中，以是不妨通過標準得 cocreateinstance 本领來創建物件，並且通過createinstance本领創建的mts 元件同樣不妨在com+ 平常運行和实足相容。二、参数化 com+ 东西构造在com+ 中引入了很多新的效劳何功效，参数化东西构造即是个中一项功效。本功效是用来实行为com+东西创造供给一个字串参数，组件东西经过iobjectconstruct接口来查问处置员摆设的字串参数。参数化东西构造的一个典范用处即是不妨运用到步调中动作 ado 的贯穿字串参数。iobjectconstruct 让的本领或东西经过参数来遏制关系东西处置功效，咱们必需运用接口东西来实行此接口，当处置员将组件东西的东西构造摆设参数树立灵验后，com+ 将挪用 iobjectconstruct.construct 经过iobjectconstructstring来获得参数化 com+ 东西构造中的字串参数。iobjectconstructstring 接口用来存取创造者字符串。本东西是一个automation com 东西，但不必经过接口东西来实行他，com+ 扶助在挪用 iobjectconstruct.construct 时表露此东西。怎样为元件输出东西构造字串。1、在组件处置器中采用相映的组件，右键弹出赶快菜单，而后点击属性2、在组件属性对话框，点击激活属性页。3、使能东西构造，输出创造者字符串（比方一个 ado 贯穿字串）。三、步调实行实行complusserver1、import type library->com+ services type library->create unit2、创造一个新的 activex library project3、创造一个新的 mts data module4、到 type library 中采用 project->uses->点击右键采用 show all type library->采用com+services type library5、采用 com 的接口东西->implements->点击右键采用 insert interface ->iobjectconstruct6、在接口中设置一个新的的本领-> getconstring7、到组件东西实行单位中实行以次代码：private{ private declarations }objsonstr: iobjectconstructstring;strdemo: widestring;function txxxserver.construct(const pctorobj: idispatch): hresult;beginpctorobj.queryinterface(iid_iobjectconstructstring, objsonstr);strdemo := objsonstr.get_constructstring;end;procedure txxxserver.getconstring;beginif trim(strdemo) = '' thenshowmessage('没有字串')elseshowmessage(strdemo);end;存户端步调存户端步调是最普遍化的 delphi 代码：procedure tform1.button1click(sender: tobject);begindcomconnection1.appserver.getconstring;end;

使用 COM+ 参数化对象结构编程技术

相关推荐

推荐下载

热门阅览

最新排行