使用COM+参数化对象结构编程技术
2006-02-04 13:31:33 来源:WEB开发网核心提示:一、引言COM+ 服?占夹g的一??核心理念就是系?y本身提供完成?S多面向企?I??用?_?l者的通用基本模?M(如??程、物件?Y源池管理、事?辗??展芾怼⑹录?服?展芾淼龋?,??系?y?O??人?T把精力集中在企?I??用本身的?I??????上,使用COM+参数化对象结构编程技术,COM+提供了?S多新的服?
一、引言
COM+ 服?占夹g的一??核心理念就是系?y本身提供完成?S多面向企?I??用?_?l者的通用基本模?M(如??程
、物件?Y源池管理、事?辗??展芾怼⑹录?服?展芾淼龋?,??系?y?O??人?T把精力集中在企?I??用本身的?I??
????上。
COM+提供了?S多新的服?蘸鸵恢碌墓芾磉行?h境,它??支援申明性??程模型(declarative PRogramming
model),也就是?f,?_?l人?T可以按?M可能通用的方式?_?l元件程式,把一些????留到配置?r刻再?_定。例
如,在?_?l一??COM+元件,它支援事?仗?理特性,但是我??在?_?l元件的?r候,?K不?_定它是否使用事?仗?
理特性,而把是否支援事?仗?理特性留待配置?r刻再作?Q定。有的??用可能??需要事?仗?理特性,而有的??
用可能?K不需要,我??可以通?^COM+管理程式配置元件的?傩????Q定元件是否支援事?仗?理特性。MTS安全模
型???H上是一??典型的申明性??程技?g,它把元件的安全角色?Y??留到配置?r刻再?o出?_切的定?x,而非??
程?r刻。COM+?^承了MTS的安全模型。
利用COM+的服?蘸凸芾砉ぞ撸??_?l一??COM+元件要比?_?l一??COM元件容易得多,因??COM+元件???H上是
建立在COM+系?y服?栈??A上的??用程式,我??可以避免底?臃爆?的??????理,如多??程的?K?l??理。通?^
COM+系?y服?眨?在?@得可靠性的同?r,也使的元件和??用程式更??於???驶?,在更?V泛的?????润w?F元件或
者??用的多?B性。
COM+ 的推出终于有机的统一了 COM/DCOM/MTS 的编程模式,使得我们不需要区分我们编写的是什么类型
的COM 对象,所编写的对象既是 COM 对象也是 COM+对象;在 COM+ 中物件?h境和截取(intercept) 技?g都
被合?愕????实? COM代理/存根中,所以可以通?^???实? CoCreateInstance 方法????建物件,?K且通?^
CreateInstance方法??建的MTS 元件同?涌梢栽?COM+ 正常?行和完全相容。
二、参数化 COM+ 对象结构
在COM+ 中引入了许多新的服务何功能,参数化对象结构就是其中一项功能。本功能是用来实现为COM+对
象创建提供一个字串参数,组件对象通过IObjectConstruct接口来查询管理员配置的字串参数。参数化对象
结构的一个典型用途就是可以应用到程序中作为 ADO 的连接字串参数。
IObjectConstruct 让的方法或对象通过参数来控制相关对象处理功能,我们必须使用接口对象来实现此
接口,当管理员将组件对象的对象结构配置参数设置有效后,COM+ 将调用 IObjectConstruct.Construct 通
过IObjectConstructString来获取参数化 COM+ 对象结构中的字串参数。
IObjectConstructString 接口用来存取建立者字符串。本对象是一个Automation COM 对象,但无须通
过接口对象来实现他,COM+ 支持在调用 IObjectConstruct.Construct 时暴露此对象。
如何为元件输入对象结构字串。
1、在组件管理器中选取相应的组件,右键弹出快捷菜单,然后点击属性
2、在组件属性对话框,点击激活属性页。
3、使能对象结构,输入建立者字符串(例如一个 ADO 连接字串)。
三、程序实现
实现COMPlusServer
1、Import Type library->COM+ Services Type Library->Create Unit
2、建立一个新的 ActiveX Library Project
3、创建一个新的 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、到组件对象实现单元中实现以下代码:
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;
COM+ 服?占夹g的一??核心理念就是系?y本身提供完成?S多面向企?I??用?_?l者的通用基本模?M(如??程
、物件?Y源池管理、事?辗??展芾怼⑹录?服?展芾淼龋?,??系?y?O??人?T把精力集中在企?I??用本身的?I??
????上。
COM+提供了?S多新的服?蘸鸵恢碌墓芾磉行?h境,它??支援申明性??程模型(declarative PRogramming
model),也就是?f,?_?l人?T可以按?M可能通用的方式?_?l元件程式,把一些????留到配置?r刻再?_定。例
如,在?_?l一??COM+元件,它支援事?仗?理特性,但是我??在?_?l元件的?r候,?K不?_定它是否使用事?仗?
理特性,而把是否支援事?仗?理特性留待配置?r刻再作?Q定。有的??用可能??需要事?仗?理特性,而有的??
用可能?K不需要,我??可以通?^COM+管理程式配置元件的?傩????Q定元件是否支援事?仗?理特性。MTS安全模
型???H上是一??典型的申明性??程技?g,它把元件的安全角色?Y??留到配置?r刻再?o出?_切的定?x,而非??
程?r刻。COM+?^承了MTS的安全模型。
利用COM+的服?蘸凸芾砉ぞ撸??_?l一??COM+元件要比?_?l一??COM元件容易得多,因??COM+元件???H上是
建立在COM+系?y服?栈??A上的??用程式,我??可以避免底?臃爆?的??????理,如多??程的?K?l??理。通?^
COM+系?y服?眨?在?@得可靠性的同?r,也使的元件和??用程式更??於???驶?,在更?V泛的?????润w?F元件或
者??用的多?B性。
COM+ 的推出终于有机的统一了 COM/DCOM/MTS 的编程模式,使得我们不需要区分我们编写的是什么类型
的COM 对象,所编写的对象既是 COM 对象也是 COM+对象;在 COM+ 中物件?h境和截取(intercept) 技?g都
被合?愕????实? COM代理/存根中,所以可以通?^???实? CoCreateInstance 方法????建物件,?K且通?^
CreateInstance方法??建的MTS 元件同?涌梢栽?COM+ 正常?行和完全相容。
二、参数化 COM+ 对象结构
在COM+ 中引入了许多新的服务何功能,参数化对象结构就是其中一项功能。本功能是用来实现为COM+对
象创建提供一个字串参数,组件对象通过IObjectConstruct接口来查询管理员配置的字串参数。参数化对象
结构的一个典型用途就是可以应用到程序中作为 ADO 的连接字串参数。
IObjectConstruct 让的方法或对象通过参数来控制相关对象处理功能,我们必须使用接口对象来实现此
接口,当管理员将组件对象的对象结构配置参数设置有效后,COM+ 将调用 IObjectConstruct.Construct 通
过IObjectConstructString来获取参数化 COM+ 对象结构中的字串参数。
IObjectConstructString 接口用来存取建立者字符串。本对象是一个Automation COM 对象,但无须通
过接口对象来实现他,COM+ 支持在调用 IObjectConstruct.Construct 时暴露此对象。
如何为元件输入对象结构字串。
1、在组件管理器中选取相应的组件,右键弹出快捷菜单,然后点击属性
2、在组件属性对话框,点击激活属性页。
3、使能对象结构,输入建立者字符串(例如一个 ADO 连接字串)。
三、程序实现
实现COMPlusServer
1、Import Type library->COM+ Services Type Library->Create Unit
2、建立一个新的 ActiveX Library Project
3、创建一个新的 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、到组件对象实现单元中实现以下代码:
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;
赞助商链接