delphi MTS组件——从理论到实践|笨鱼技术网

简述
   ·MTS是一种中间层COM组件宿主环境
   ·中间层组件应当是无状态的
   ·依靠无状态模式，MTS可以缓冲资源，在客户端之间共享组件
   ·COM和MTS组合起来，进化成为COM+
   ·利用类和向导，Delphi简化了MTS组件的创建
   ·从ActiveX类库入手--MTS组件必须是进程内组件
   ·创建MTS对象，选择线程模型和交易控制
   ·在类型库编辑器中定义对象接口
   ·调用SetComplete和SetAbort，告知MTS何时结束方法
   ·使用ObjectContext.CreateInstance在同一个事务中创建其它MTS组件
   ·使用OnActivate和OnDeactivate初始化和清除对象
   ·把组件安装到MTS包，并在正式使用之前测试
   ·最后，配置安全设置

　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　
　　介绍
　　　　　　　　　　　　　　　　　
　　本文将说明如何创建NT4的MTS组件和Windows2000的COM+组件。首先我想解释MTS是什么，还有一些关于它的理论。然后描述如何建立MTS组件，包括关于如何减少错误发生率的窍门。要提及的问题包括错误处理、调试、安全配置和安装等。
　　　　　　　　　　　　　　　　　
　　我将用Delphi来实现一个简单的COM数据库组件--用ADO连结ACCESS数据库。
　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　
　　什么是MTS
　　　　　　　　　　　　　　　　　
　　MTS--Microsoft Transaction Server（微软事务服务器）远不止于一个事务服务器那么简单。它是一个COM组件的宿主环境：·管理系统资源（比如：进程、线程、连接等等）；·管理服务器对象的创建、执行和删除；·自动初始化和控制事务·进行安全管理，防止未经授权用户存取应用程序；·提供工具，用于配置、管理、发布应用程序的组件
　　　　　　　　　　　　　　　　　
　　关键的方便之处在于，开发者可以不去考虑中间层程序的多个方面，让他们集中于业务逻辑的实现。
　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　
　　原理
　　　　　　　　　　　　　　　　　
　　MTS是如何运作的呢？
　　　　　　　　　　　　　　　　　
　　它为分布式系统构建一个中间层，包容COM组件。在一个典型的系统中（图一），它将：

图一一个MTS应用程序

·从数据库取得数据；·传送到（瘦）客户端应用程序；·从客户端接收反馈数据；·实现业务逻辑操作；·保存到数据库。
　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　
　　考察客户端应用程序操作。大多数时候它们在等待用户输入。所以，如果每个客户端程序都在中间层拥有一个单独的组件和数据库连接，多数时候这些资源被浪费了。
　　　　　　　　　　　　　　　　　
　　MTS要做的，就是通过共享资源来彻底减少组件数量和数据库连接。在小系统中这无足轻重，但是在大系统（微软建议超过100个客户端）中，就大大不同了。
　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　
　　什么是组件
　　　　　　　　　　　　　　　　　
　　上文提到组件。什么是组件？这里所说的组件，不是在面向对象分析意义上的组件。
　　　　　　　　　　　　　　　　　
　　一个典型的对象拥有方法和属性。试考察一个安装到中间层的对象，如果我们想通过它获取客户姓名、地址和电话号码，那么，就要调用某个方法、传递客户信息参数、获取姓名属性，然后是地址，最后才轮到电话号码。每个请求都需要一个网络周期，一共四个周期--非常缓慢、缺乏效率。
　　　　　　　　　　　　　　　　　
　　实践上，一般只调用一个方法，返回所有需要的数据。尽管有些查询结果是多余的，但是性能却提高了。
　　　　　　　　　　　　　　　　　
　　使用单个方法调用还有另外一个好处，也就是MTS所利用的好处。在通常使用的"对象模型"中，对象总是要保存数据以供查询。这就意味着只能为一个客户端服务。假如一次性返回所有数据，对象就无需保存任何信息--进入无状态模式。这时，对象就能为其它客户端服务。这就是MTS的核心了。
　　　　　　　　　　　　　　　　　
　　这样，业务对象变成了代码库，美其名曰--组件。
　　　　　　　　　　　　　　　　　

MTS组件——从理论到实践（二）
grhunter 摘　要：描述了MTS和COM+组件的原理，演示如何创建、安装、分关键字：MTS COM COM+ 类　别：COM & ActiveX

CoDelphi.com版权所有，未经允许，不得进行任何形式转载　　　　　　　　　　　　　　　　　　　资源管理　　　　　　　　　　　　　　　　　　　实际上，当组件完成一个方法调用时，MTS就毁掉它。听起来有些疯狂。组件每次都要重新创建，包括线程、数据库连接等等资源都是如此。特别是后者更加令人费解，因为数据库连接的创建成本高昂。为了节约成本，MTS缓存了很多资源。当一个新组建要求连接数据库，MTS就提供一个现存的连接。组件完成工作后，MTS把连接取回，而不是关闭它。运行组件的线程也用这样的方式被缓存。　　　　　　　　　　　　　　　　　　　所以，重复创建和毁坏组件的成本就这样减低了。如果客户端连接数量足够多，资源节省完全足以抵消成本。数据库负载也减轻了。　　　　　　　　　　　　　　　　　　　了解MTS创建和释放组件、以及缓存支持资源的方式，是创建高效MTS组件的关键。　　　　　　　　　　　　　　　　　　　注意：数据库连接能否被缓存，取决于数据库引擎是否支持。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　COM+ 　　　　　　　　　　　　　　　　　　　MTS在Microsoft NT4上运行。对于Windows 2000，微软把MTS整合进COM架构，构建了COM+.COM+包括MTS所有特性，还有额外的支持。MTS包在Windows 2000中变成了COM+应用程序。但是，要在MTS在Windows 2000上运行，无需做任何修改。本文将不做区分。　　　　　　　　　　　　　　　　　　　COM+的新特性之一是组件和数据库连接都可以被缓存。这将带来明显的性能提高。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　*上下文（Context）* 　　　　　　　　　　　　　　　　　　　理论讲得差不多了。在被请求的时候，MTS组件被动态创建和释放，这称作即时活动。组件需要的资源被缓存，并为所有组件共享。　　　　　　　　　　　　　　　　　　　在开始用Delphi创建MTS组件之前，必须理解一个关于MTS运作的细节。　　　　　　　　　　　　　　　　　　　当客户端创建COM对象，它会收到一个指向被创建对象的接口。对象被释放后，这个接口不再合法，对它的方法调用就会失败。MTS要做点什么来避免发生这种情况。同时，它还要保存一些客户端状态信息，像安全配置和事务信息等等。　　　　　　　　　　　　　　　　　　　于是就引入了context（上下文）对象。我觉得可以不是那么准确地把它看作是MTS组件的替身，使得客户端接口始终保持合法性。如图二所示。　　　　　　　　　　　　　　　　　　　图二MTS Context对象　　　　　　　　　　　　　　　　　　　客户端初次创建MTS组件的时候，同时也创建了context对象。在客户端保留组件接口的时候，这个context组件一直存在。当客户端发出调用方法请求时，context对象就创建组件、运行方法、然后释放组件。Context对象的实际运作相当复杂，不过原理就是如此。　　　　　　　　　　　　　　　　　　　看起来好像为每个客户端保留一个context对象违背了即时活动减低资源消耗的初衷。其实，context对象非常小，给MTS服务器带来的负荷，远比真正的MTS组件来得小。

MTS组件——从理论到实践（三）
grhunter 摘　要：描述了MTS和COM+组件的原理，演示如何创建、安装、分关键字：MTS COM COM+ 类　别：COM & ActiveX

CoDelphi.com版权所有，未经允许，不得进行任何形式转载 *在Delphi中创建MTS组件* 为了保证上述操作的正确性，所有创建的MTS组件都要通过context对象与MTS联系。而它本身也是一个通过接口存取的COM对象。 Delphi中有一系列的类和向导，可以让我们不必考虑这些问题。我们可以从Delphi中继承的基类（TmtsAutoObject和TmtsDataModule）已经封装了和context对象的协调工作，而我们只需要调用继承的方法就万事大吉。这两个类也实现了IobjectControl接口，MTS用这个接口来控制组件。第一步，要决定COM组件是进程内还是进程外服务器。如果是MTS则没得选--必须是进程内服务器。所以，首先要创建一个ActiveX Library。这样做：从File\|New对话框的ActiveX页选取ActiveX Library。图三选取ActiveX Library 然后创建一个MTS组件。有两种选择：要么是MTS Object，要么是MTS Data Module，它们都在Multitier页。由于MTS Data Module主要用来创建MTS MIDAS应用程序，所以我们用MTS Object。图四选取MTS Object，进入MTS Object向导图五 MTS Object向导我们需要定义COM对象的CoClass名称和线程模型。MTS中，一般用Apartment线程模型。在COM+里，也可以用Apartment，但是不支持组件pooling（缓存）。我们可以用Both来达到这个目的。Both线程模型将创建多线程（Multi Threaded）Apartment COM对象，同时也支持单线程（Single Threaded）Apartment。STA和MTA之间的区别，超出了本文讨论范围，按下不表。在这里可以指定事务模型，或者在组件安装到MTS中再改变也可以。事务模型确定MTS是否在每次方法调用时为组件创建一个事务控制。稍后我们再讨论这个问题。通常来说，如果组件需要更新数据库，那就选择"Requires a transaction（需要事务处理）"，否则选择"Supports transactions（支持事务处理）"，这样可以提高性能，因为MTS使用分布式事务处理、可以在事务中更新多个数据库。不幸的是，这样做成本负荷太高。最好是把所有的更新方法放到单独的组件中，事务只在需要的时候被创建。 Event support（事件支持）对于MTS组件一般不需要。向导完成后，可以在类型库编辑器中创建方法。组件是无状态的，所以一般不用属性。在本例中我将创建一个方法，称作GetData。这个方法返回一个Variant值，但实质上是一个ADO Recordset。可以在类型库编辑器的Uses页包括ADO类型库，指定返回值为Recordset。但是variant类型在本例中更简单实用。图六类型库编辑器--定义GetData方法注意：如果返回类型不是数据集，Delphi 4将会引起一个异常，导致组件崩溃。最好不要用D4开发MTS组件。 *编写方法* 定义好方法之后，开始写代码。最重要的是要告诉MTS组件工作已经完成，让MTS释放组件或放到缓存。同样也需要告诉MTS事务是否应该提交或者回滚。如果我们省略这一步骤，MTS就会把组件看作是有状态的，资源节省就无从谈起了。 TmtsAutoObject提供了七种可调用的方法，用来和context对象打交道。 ·DisableCommit 状态组件使用，超出本文范围 ·EnableCommit 状态组件使用，超出本文范围 ·IsCallerInRole 组件内安全检查 ·IsInTransaction 检查MTS是否创建事务 ·IsSecurityEnabled 检查安全查看是否活动 ·SetAbort 告诉MTS组件完成工作，放弃事务 ·SetComplete 告诉MTS组件完成工作，提交事务后两个就是我们要用的了。下面提供一种通用的MTS组件方法编码结构： function TMTSDemo1.GetData: OleVariant; begin try // 在这里进行操作 SetComplete; except SetAbort; Raise; end{try/except}; end; 如果出错，MTS马上就知道，同时引发一个异常，通知客户端。 SetAbort和SetComplete的作用，就像对事务处理的结果进行投票。一个事务可以为多个组件分享。如果其中一个组件调用了SetAbort，整个事务就被回滚。在这之后，所有数据库操作均不被允许进行。所以，只在必须时调用SetAbort。如果组件试图存取数据库，就会引发一个$8004E004异常。这是在MTX单元中定义的。因为必须确保SetAbort和SetComplete只被调用一次，而且一个方法有可能被组件内的其它方法调用，所以我通常把每个方法主要代码放在内部例程，而用一个外部例程来调用它。用一个下划线前缀表示内部例程，像这样： function TMTSDemo1.GetData: OleVariant; begin try Result := _GetData; SetComplete; except SetAbort; Raise; end{try/except}; end; 通过这个方法，我用ADO COM对象直接取得一个关闭的数据集，返回到客户端。这是一个典型的MTS组件方法。我们需要它从客户端存取编辑的数据集，并更新数据库。 function TMTSDemo1._GetData: OleVariant; var Data : Recordset; StrConnectionString : string; Begin {设置名为DelphiMTSDemo 的 ODBC DSN，连接到DemoData.mdb} strConnectionString := 'DSN=DelphiMTSDemo'; Data := CoRecordset.Create; try Data.CursorLocation := adUseClient; Data.Open ('SELECT * from CUSTOMERS', StrConnectionString, adOpenKeyset, adLockBatchOptimistic, adCmdText); // 断开数据库连接 Data.Set_ActiveConnection(nil); Result := Data; Finally // 释放接口 Data := nil; end{try/finally}; end; 因为MTS缓存了数据库连接，所以尽量不要太早打开数据库连接，而且尽早释放它，降低其它组件创建新连接的可能性。如果缓存池中没有可用连接，就会发生这种情况。

MTS组件——从理论到实践（四）
grhunter 摘　要：描述了MTS和COM+组件的原理，演示如何创建、安装、分关键字：COM COM+ MTS 类　别：COM & ActiveX

CoDelphi.com版权所有，未经允许，不得进行任何形式转载 *调用其它MTS组件* 　　MTS应用程序的设计目的之一是集中多个简单组件，创建比较复杂的系统。这种模式便于开发，可重用性也较高。那么，在组件中调用其它MTS组件要注意些什么呢？　　　　　　　　　　　　　　　　　　　如果是在MTS环境中，如果第二个组件和第一个组件分享一个事务，就必须通过context对象告诉MTS.很不幸，Borland没有把它作为context对象的一个方面封装进TmtsAutoObject类。　　　　　　　　　　　　　　　　　　　对象上下文接口（object context interface）有一个叫做CreateInstance的方法，用这个方法，我们可以要求创建其它MTS对象。如果事务模型是“Requires a Transaction"或者“Support Transactions"，新创建的对象将被列入同一个事务中。如果事务模型是“Requires a New Transaction（要求新事务）"，就会有一个新事务被创建。　　　　　　　　　　　　　　　　　　　TmtsAutoObject有一个保护的属性——ObjectContext，利用它，就能够得到context对象接口。要创建MTSDemo1组件的一个实例，用下面的代码：　　　　　　　　　　　　　　　　　　　ObjectContext.CreateInstance（CLASS_MTSDemo1， IMTSDemo1， obj）　　　　　　　　　　　　　　　　　　　CreateInstance得到要创建的类的GUID，返回的接口和接口变量作为它的参数。因为是直接的COM调用，所以要用OLECheck函数来包装它，在出错的时候引起一个Delphi异常。　　　　　　　　　　　　　　　　　　　下面我们创建第二个MTS对象（MTSDemo2）。这个对象也有一个GetData方法，调用MTSDemo1的GetData方法：　　　　　　　　　　　　　　　　　　　function TMTSDemo2._GetData： OleVariant；var obj ： IMTSDemo1；begin OLECheck （ObjectContext.CreateInstance（CLASS_MTSDemo1， IMTSDemo1， obj））；try Result ：= obj.GetData；finally obj ：= nil；end{try/finally}；end；　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　*初始化* 　　　　　　　　　　　　　　　　　　　如果需要运行某些代码来初始化MTS组件，不要把这些代码放在Delphi constructor（构造器）或者COM Initialize方法中，而应该放在MTS组件的OnActivate方法里面。这是TmtsAutoObject的一个保护方法，我们要在组件中重载它。组件创建后，MTS将调用这个方法，在真正的方法调用之前做好准备。它总是在方法调用之前被调用，即使组件是从对象缓存池（COM+）中取回的。　　　　　　　　　　　　　　　　　　　这样做的原因是对象缓存。对于一个被缓存的对象，无论它刚被创建、或是从缓存池中取回，都应该有同样的表现。所以，以同样的方式初始化对象，是非常重要的。　　　　　　　　　　　　　　　　　　　要做最后的清理工作，在OnDeactivate方法里面操作。　　　　　　　　　　　　　　　　　　　在上述两个方法中，最好不要出现异常。MTS认为初始化过程不应该失败，所以没有很好地处理这个事件。客户端只会看见一个灾难性失败：没有任何其它可用信息。　　　　　　　　　　　　　　　　　　　所以，一定要用try/except块封装代码。而且，在OnActivate方法中，如果处理了错误，就应该把相关信息记录到组件中，方法本身应该检查这些信息，如果需要，引发一个异常。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　*对象缓存* 　　　　　　　　　　　　　　　　　　　假如是为COM+环境开发组件，想利用对象缓存（Object Pooling）的话，请依照下列步骤操作：　　　　　　　　　　　　　　　　　　　第一，用Both线程模型。　　　　　　　　　　　　　　　　　　　第二，重载TmtsAutoObject.CanBePooled方法，返回True.缺省值是False，关闭缓存功能。　　　　　　　　　　　　　　　　　　　第三，无论对象是刚被创建还是从缓存池中取回，它都应该初始化为同样状态。　　　　　　　　　　　　　　　　　　　最后，可能是最困难的，确保对象是线程安全的，这已经超出本文讨论范围。

MTS组件——从理论到实践（五）
grhunter 摘　要：描述了MTS和COM+组件的原理，演示如何创建、安装、分关键字：MTS COM COM+ 类　别：COM & ActiveX

CoDelphi.com版权所有，未经允许，不得进行任何形式转载 *把组件安装到MTS环境* 我们已经做好一个MTS组件，现在需要测试它了。首先要把它安装到MTS环境。如果在Delphi中，简单地选择"Run\|Install MTS Object"就可以了。"安装MTS对象（Install MTS Object）"向导将会询问容纳组件的MTS包（COM+应用程序）名称。图七 MTS组件安装向导--选择组件选定要安装的组件，在接着出现的对话框中，你可以选择一个已有的包，或者指定名称、创建一个新包。只需要输入名字即可，当然也可以输入关于包的描述。其它都交给向导完成。图八 MTS对象安装向导--指定容纳组件的包 *MTS包* 什么是包？（什么是Windows 2000中的COM+应用程序？） MTS组件是进程内DLL，所以需要一个应用程序进程来运行。对于MTS，这个程序就是mtx.exe；对于COM+，就是dllhost.exe。如果所有组件都在同一个进程空间运行，任何致命异常都会导致所有MTS应用程序失败。MTS把组件放到包里面，每个包都在独立的进程中运行，这样来尽可能地限制损坏发生。一个包可以包括来自多个dll的组件，一个dll中的组件可以分散到多个包。唯一的限制是一个组件只能在一个包中出现。在MTS环境中，除了提供进程隔离，包还可以用来定义安全分界。所有来自外部的调用都要经过检查，看是否有足够的权限。包内调用不被检查。在COM+中，安全检查在更适宜的层次进行，甚至可以细致到对每个方法进行安全设置。

MTS组件——从理论到实践（六）
grhunter 摘　要：描述了MTS和COM+组件的原理，演示如何创建、安装、分关键字：MTS COM COM+ 类　别：COM & ActiveX

CoDelphi.com版权所有，未经允许，不得进行任何形式转载调试现在组件已经安装到MTS中了，如何运行、调试它呢？我们需要一个调用组件方法的客户端程序。我总是为每个组件/组件组创建一个测试程序，这样便于调试和测试。对于MTSDemo1组件，我们要做一个简单的窗体，包括一个DBGrid，一个DataSource，一个ADODataset和一个按钮。按钮单击代码： procedure TForm1.Button1Click(Sender: TObject); var obj : variant; begin obj := CreateOleObject ('MTSDemo1Lib.MTSDemo1'); ADOTable1.Recordset := IUnknown(obj.GetData) as _Recordset; ; end; （把项目保存为MTSDemo1Lib）。为了调试MTS组件，需要指定组件的宿主程序和参数。MTS的宿主程序是mtx.exe，在system32目录中。对于COM+，宿主程序是dllhost.exe，也是在system32目录。二者的参数不同： MTS： /p:" ". COM+： /ProcessID:{}. 这样，就可以从Delphi中运行组件，用任意客户端来调用，调试组件。为了同时调试组件和测试程序，用"Project\|Build All Projects"菜单项进行编译。然后，运行组件和测试程序。发布完全测试好组件之后，准备发布组件。在MTS环境，用Transaction Server Explorer（事务服务器浏览）；在COM+环境，用Component Services（组件服务）。这两个工具具有类似资源管理器的界面，非常易于使用：图九组件服务在左边的树状视图中，右击一个包，选择"导出（export）"，就可以导出包。我们得到一个包文件和dll的拷贝，还有全部安全设置。同时，MTS也创建一个客户端安装程序，用来在客户端计算机注册COM组件。注意：客户端安装将注册导出包的服务器。一般我们从开发环境导出包，先安装到产品机，然后从产品机导出包，创建客户端安装程序。一旦把包安装到产品机，就要指定组件事务模型，进行安全设置。 MTS的安全模型规则适用于NT用户组和组用户。规则授权对组件（或COM+中的单独方法）的存取。如有需要，可以用TmtsAutoObject方法IsCallerInRole和IsSecurityEnabled来进行组件内的精确控制，不过一般不需要这样做。在Transaction Server Explorer中，利用上下文菜单，可以进行规则的创建、用户和组的指派以及组件规则的指定。