J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
各位富翁。我匯出的Com+組件安裝程序不能在其它電腦上安裝﹐請為誰知道這是什么原因?
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
H
hzjone
Unregistered / Unconfirmed
GUEST, unregistred user!
给你一篇文章。
MTS组件——从理论到实践（一）
grhunter
摘 要：描述了MTS和COM+组件的原理，演示如何创建、安装、分
关键字：MTS COM COM+
类 别：COM &
ActiveX
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
简述
·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中，利用上下文菜单，可以进行规则的创建、用户和组的指派以及组件规则的指定。
MTS组件——从理论到实践（一）
grhunter
摘 要：描述了MTS和COM+组件的原理，演示如何创建、安装、分
关键字：MTS COM COM+
类 别：COM &
ActiveX
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
简述
·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中，利用上下文菜单，可以进行规则的创建、用户和组的指派以及组件规则的指定。
S
smokingroom
Unregistered / Unconfirmed
GUEST, unregistred user!
看完樓上的轉貼先,如果還不能解決問題,請按以下的提示試試看.
1.安裝客戶端(Application proxy):
(1)先要確認當前登錄用戶有安裝程序的權限;
(2)是否已經安裝該客戶端的舊版本,若有,先刪除.
2.安裝服務器端(Server application):
(1)是否已經安裝該服務器端的舊版本,若有,先刪除.
(2)若該COM+組件中存在訪問數據庫的模塊,確認該電腦是否有訪問數據庫服務器的權限.
1.安裝客戶端(Application proxy):
(1)先要確認當前登錄用戶有安裝程序的權限;
(2)是否已經安裝該客戶端的舊版本,若有,先刪除.
2.安裝服務器端(Server application):
(1)是否已經安裝該服務器端的舊版本,若有,先刪除.
(2)若該COM+組件中存在訪問數據庫的模塊,確認該電腦是否有訪問數據庫服務器的權限.
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
hzjone;你好﹐
現在是我的COM+程序已經寫好﹐并且在我的開發環境中測試一切正賞.我導出組件到產品機上安裝時總是提示錯誤﹐
現在是我的COM+程序已經寫好﹐并且在我的開發環境中測試一切正賞.我導出組件到產品機上安裝時總是提示錯誤﹐
Y
ysai
Unregistered / Unconfirmed
GUEST, unregistred user!
可不可以打开组件服务中的COM+应用程序?如果不行的话,要重装MSDTC.如行的话,试试手工增加组件.
2K在system32下有个MSDTC的安装包,XP下要添加/删除windows组件,先删除再安装
另外,导出的组件与WINDOWS版本有关
http://www.delphibbs.com/keylife/iblog_show.asp?xid=6144
2K在system32下有个MSDTC的安装包,XP下要添加/删除windows组件,先删除再安装
另外,导出的组件与WINDOWS版本有关
http://www.delphibbs.com/keylife/iblog_show.asp?xid=6144
X
xujh
Unregistered / Unconfirmed
GUEST, unregistred user!
TO:ysai 摘抄了我的笔记，哈哈。楼主记住也给我加分啊
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
各位富翁,我將COM+程序服務器端匯出后在同一台電腦上安裝都不行。它說'注冊COM+應用程序錯誤'﹐ 這到底是為什么?請幫幫我.
我是這樣匯出COM服務器端的。
我的開發環境是2K,在Component Server中找到相應的COM+程序﹐右鍵點擊選匯出﹐再選擇服務器。不知道是我匯出時有錯還是COM+程序有問題。特急。。。。。。
我是這樣匯出COM服務器端的。
我的開發環境是2K,在Component Server中找到相應的COM+程序﹐右鍵點擊選匯出﹐再選擇服務器。不知道是我匯出時有錯還是COM+程序有問題。特急。。。。。。
0
0738
Unregistered / Unconfirmed
GUEST, unregistred user!
你试着按下面的方式检查一下看可不可以
1、安装的机器是2k的服务器版还是专业版，在专业版上COM+只能是支持事务
2、你开发组件时是否用到了一些需要注册的dll,例如midas.dll，安装时目标机器上也需要
注册这些dll
1、安装的机器是2k的服务器版还是专业版，在专业版上COM+只能是支持事务
2、你开发组件时是否用到了一些需要注册的dll,例如midas.dll，安装时目标机器上也需要
注册这些dll
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
0738:你好;
現在我就想把它安裝到同一台電腦上都不行(就我開發COM+程序的那台)。這到底是為什么?
現在我就想把它安裝到同一台電腦上都不行(就我開發COM+程序的那台)。這到底是為什么?
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
各位富翁﹐這樣做是不是那里錯了。我的開發環境是Win2K+D6+Sql,我在D6下先創建Active Libary﹐然后創建Transtional Data Module.為何做出的Com服務器端匯出后不能在其它電腦上安裝.(我的產品機操作系統版本跟我的開發環境一樣﹐連Service Packe都一樣的﹐),我在服務器端手動增加服務器時﹐提示不能注冊類型庫。特急......
X
xujh
Unregistered / Unconfirmed
GUEST, unregistred user!
我在Win2k3上开发的组件不能在Win2K上安装，后来发现要在导出时选择COM+1.0的选项，仅此参考
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
xujh:你好﹗
我得怎么沒有發現在匯出時有選項選擇。能具體講解一下你是怎樣匯出的嗎?這個問題我搞了兩天了。非常急。TKS
我得怎么沒有發現在匯出時有選項選擇。能具體講解一下你是怎樣匯出的嗎?這個問題我搞了兩天了。非常急。TKS
X
xujh
Unregistered / Unconfirmed
GUEST, unregistred user!
我是在Win2003下面开发的COM+，导出时会有COM+ 1.0的选项。这个选项在Win2000下没有
X
xujh
Unregistered / Unconfirmed
GUEST, unregistred user!
将你的XXXXXXXXXXXXX_TLB.pas文件发来看看
S
slyr
Unregistered / Unconfirmed
GUEST, unregistred user!
这个问题遇到过，没有解决，建议你看一下“轻舞肥羊”的富翁笔记，里面
有一个编程安装的示例，我就用它，不过我没有扩展，你要是增加了功能后
别忘了发一个给我
有一个编程安装的示例，我就用它，不过我没有扩展，你要是增加了功能后
别忘了发一个给我
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
其中一個是這樣的。
unit PComShowBil_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 03/02/2004 上午 11:40:03 from Type Library described below.
// ************************************************************************ //
// Type Lib: D:/QCC/MtsServer/PComShowBil.tlb (1)
// LIBID: {F6089D6E-176F-41B2-91CD-448F3FBACF58}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
PComShowBilMajorVersion = 1;
PComShowBilMinorVersion = 0;
LIBID_PComShowBil: TGUID = '{F6089D6E-176F-41B2-91CD-448F3FBACF58}';
IID_IComShowBilObj: TGUID = '{33C495A8-A96A-4DEB-94BB-5505D8B73013}';
CLASS_ComShowBilObj: TGUID = '{D74F5238-DF8F-4834-8AFB-F8AAB8F858D8}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IComShowBilObj = interface;
IComShowBilObjDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
ComShowBilObj = IComShowBilObj;
// *********************************************************************//
// Interface: IComShowBilObj
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {33C495A8-A96A-4DEB-94BB-5505D8B73013}
// *********************************************************************//
IComShowBilObj = interface(IAppServer)
['{33C495A8-A96A-4DEB-94BB-5505D8B73013}']
procedure fgetempbil(vempid: OleVariant;
var vDatas: OleVariant;
iShow: Integer);
safecall;
end;
// *********************************************************************//
// DispIntf: IComShowBilObjDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {33C495A8-A96A-4DEB-94BB-5505D8B73013}
// *********************************************************************//
IComShowBilObjDisp = dispinterface
['{33C495A8-A96A-4DEB-94BB-5505D8B73013}']
procedure fgetempbil(vempid: OleVariant;
var vDatas: OleVariant;
iShow: Integer);
dispid 1;
function AS_ApplyUpdates(const ProviderName: WideString;
Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000000;
function AS_GetRecords(const ProviderName: WideString;
Count: Integer;
out RecsOut: Integer;
Options: Integer;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant): OleVariant;
dispid 20000001;
function AS_DataRequest(const ProviderName: WideString;
Data: OleVariant): OleVariant;
dispid 20000002;
function AS_GetProviderNames: OleVariant;
dispid 20000003;
function AS_GetParams(const ProviderName: WideString;
var OwnerData: OleVariant): OleVariant;
dispid 20000004;
function AS_RowRequest(const ProviderName: WideString;
Row: OleVariant;
RequestType: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000005;
procedure AS_Execute(const ProviderName: WideString;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant);
dispid 20000006;
end;
// *********************************************************************//
// The Class CoComShowBilObj provides a Create and CreateRemote method to
// create instances of the default interface IComShowBilObj exposed by
// the CoClass ComShowBilObj. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoComShowBilObj = class
class function Create: IComShowBilObj;
class function CreateRemote(const MachineName: string): IComShowBilObj;
end;
implementation
uses ComObj;
class function CoComShowBilObj.Create: IComShowBilObj;
begin
Result := CreateComObject(CLASS_ComShowBilObj) as IComShowBilObj;
end;
class function CoComShowBilObj.CreateRemote(const MachineName: string): IComShowBilObj;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ComShowBilObj) as IComShowBilObj;
end;
end.
unit PUpDateBil_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 03/02/2004 上午 11:40:26 from Type Library described below.
// ************************************************************************ //
// Type Lib: D:/QCC/MtsServer/PUpDateBil.tlb (1)
// LIBID: {5A3AE2BB-9E82-4857-BBE7-081C32E4091C}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
PUpDateBilMajorVersion = 1;
PUpDateBilMinorVersion = 0;
LIBID_PUpDateBil: TGUID = '{5A3AE2BB-9E82-4857-BBE7-081C32E4091C}';
IID_IComUpdateBil: TGUID = '{7526560A-2C07-470F-BFC5-D2E468BD7F5F}';
CLASS_ComUpdateBil: TGUID = '{4FD915D9-B826-416C-98B6-79F07287620E}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IComUpdateBil = interface;
IComUpdateBilDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
ComUpdateBil = IComUpdateBil;
// *********************************************************************//
// Interface: IComUpdateBil
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7526560A-2C07-470F-BFC5-D2E468BD7F5F}
// *********************************************************************//
IComUpdateBil = interface(IAppServer)
['{7526560A-2C07-470F-BFC5-D2E468BD7F5F}']
procedure UpdateBil(vInDatas: OleVariant;
maxError: Integer;
var errorCount: Integer;
var vOutDatas: OleVariant;
Sql: OleVariant;
icount: Integer);
safecall;
end;
// *********************************************************************//
// DispIntf: IComUpdateBilDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7526560A-2C07-470F-BFC5-D2E468BD7F5F}
// *********************************************************************//
IComUpdateBilDisp = dispinterface
['{7526560A-2C07-470F-BFC5-D2E468BD7F5F}']
procedure UpdateBil(vInDatas: OleVariant;
maxError: Integer;
var errorCount: Integer;
var vOutDatas: OleVariant;
Sql: OleVariant;
icount: Integer);
dispid 1;
function AS_ApplyUpdates(const ProviderName: WideString;
Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000000;
function AS_GetRecords(const ProviderName: WideString;
Count: Integer;
out RecsOut: Integer;
Options: Integer;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant): OleVariant;
dispid 20000001;
function AS_DataRequest(const ProviderName: WideString;
Data: OleVariant): OleVariant;
dispid 20000002;
function AS_GetProviderNames: OleVariant;
dispid 20000003;
function AS_GetParams(const ProviderName: WideString;
var OwnerData: OleVariant): OleVariant;
dispid 20000004;
function AS_RowRequest(const ProviderName: WideString;
Row: OleVariant;
RequestType: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000005;
procedure AS_Execute(const ProviderName: WideString;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant);
dispid 20000006;
end;
// *********************************************************************//
// The Class CoComUpdateBil provides a Create and CreateRemote method to
// create instances of the default interface IComUpdateBil exposed by
// the CoClass ComUpdateBil. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoComUpdateBil = class
class function Create: IComUpdateBil;
class function CreateRemote(const MachineName: string): IComUpdateBil;
end;
implementation
uses ComObj;
class function CoComUpdateBil.Create: IComUpdateBil;
begin
Result := CreateComObject(CLASS_ComUpdateBil) as IComUpdateBil;
end;
class function CoComUpdateBil.CreateRemote(const MachineName: string): IComUpdateBil;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ComUpdateBil) as IComUpdateBil;
end;
end.
unit PComShowBil_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 03/02/2004 上午 11:40:03 from Type Library described below.
// ************************************************************************ //
// Type Lib: D:/QCC/MtsServer/PComShowBil.tlb (1)
// LIBID: {F6089D6E-176F-41B2-91CD-448F3FBACF58}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
PComShowBilMajorVersion = 1;
PComShowBilMinorVersion = 0;
LIBID_PComShowBil: TGUID = '{F6089D6E-176F-41B2-91CD-448F3FBACF58}';
IID_IComShowBilObj: TGUID = '{33C495A8-A96A-4DEB-94BB-5505D8B73013}';
CLASS_ComShowBilObj: TGUID = '{D74F5238-DF8F-4834-8AFB-F8AAB8F858D8}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IComShowBilObj = interface;
IComShowBilObjDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
ComShowBilObj = IComShowBilObj;
// *********************************************************************//
// Interface: IComShowBilObj
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {33C495A8-A96A-4DEB-94BB-5505D8B73013}
// *********************************************************************//
IComShowBilObj = interface(IAppServer)
['{33C495A8-A96A-4DEB-94BB-5505D8B73013}']
procedure fgetempbil(vempid: OleVariant;
var vDatas: OleVariant;
iShow: Integer);
safecall;
end;
// *********************************************************************//
// DispIntf: IComShowBilObjDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {33C495A8-A96A-4DEB-94BB-5505D8B73013}
// *********************************************************************//
IComShowBilObjDisp = dispinterface
['{33C495A8-A96A-4DEB-94BB-5505D8B73013}']
procedure fgetempbil(vempid: OleVariant;
var vDatas: OleVariant;
iShow: Integer);
dispid 1;
function AS_ApplyUpdates(const ProviderName: WideString;
Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000000;
function AS_GetRecords(const ProviderName: WideString;
Count: Integer;
out RecsOut: Integer;
Options: Integer;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant): OleVariant;
dispid 20000001;
function AS_DataRequest(const ProviderName: WideString;
Data: OleVariant): OleVariant;
dispid 20000002;
function AS_GetProviderNames: OleVariant;
dispid 20000003;
function AS_GetParams(const ProviderName: WideString;
var OwnerData: OleVariant): OleVariant;
dispid 20000004;
function AS_RowRequest(const ProviderName: WideString;
Row: OleVariant;
RequestType: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000005;
procedure AS_Execute(const ProviderName: WideString;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant);
dispid 20000006;
end;
// *********************************************************************//
// The Class CoComShowBilObj provides a Create and CreateRemote method to
// create instances of the default interface IComShowBilObj exposed by
// the CoClass ComShowBilObj. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoComShowBilObj = class
class function Create: IComShowBilObj;
class function CreateRemote(const MachineName: string): IComShowBilObj;
end;
implementation
uses ComObj;
class function CoComShowBilObj.Create: IComShowBilObj;
begin
Result := CreateComObject(CLASS_ComShowBilObj) as IComShowBilObj;
end;
class function CoComShowBilObj.CreateRemote(const MachineName: string): IComShowBilObj;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ComShowBilObj) as IComShowBilObj;
end;
end.
unit PUpDateBil_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 03/02/2004 上午 11:40:26 from Type Library described below.
// ************************************************************************ //
// Type Lib: D:/QCC/MtsServer/PUpDateBil.tlb (1)
// LIBID: {5A3AE2BB-9E82-4857-BBE7-081C32E4091C}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
PUpDateBilMajorVersion = 1;
PUpDateBilMinorVersion = 0;
LIBID_PUpDateBil: TGUID = '{5A3AE2BB-9E82-4857-BBE7-081C32E4091C}';
IID_IComUpdateBil: TGUID = '{7526560A-2C07-470F-BFC5-D2E468BD7F5F}';
CLASS_ComUpdateBil: TGUID = '{4FD915D9-B826-416C-98B6-79F07287620E}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IComUpdateBil = interface;
IComUpdateBilDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
ComUpdateBil = IComUpdateBil;
// *********************************************************************//
// Interface: IComUpdateBil
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7526560A-2C07-470F-BFC5-D2E468BD7F5F}
// *********************************************************************//
IComUpdateBil = interface(IAppServer)
['{7526560A-2C07-470F-BFC5-D2E468BD7F5F}']
procedure UpdateBil(vInDatas: OleVariant;
maxError: Integer;
var errorCount: Integer;
var vOutDatas: OleVariant;
Sql: OleVariant;
icount: Integer);
safecall;
end;
// *********************************************************************//
// DispIntf: IComUpdateBilDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7526560A-2C07-470F-BFC5-D2E468BD7F5F}
// *********************************************************************//
IComUpdateBilDisp = dispinterface
['{7526560A-2C07-470F-BFC5-D2E468BD7F5F}']
procedure UpdateBil(vInDatas: OleVariant;
maxError: Integer;
var errorCount: Integer;
var vOutDatas: OleVariant;
Sql: OleVariant;
icount: Integer);
dispid 1;
function AS_ApplyUpdates(const ProviderName: WideString;
Delta: OleVariant;
MaxErrors: Integer;
out ErrorCount: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000000;
function AS_GetRecords(const ProviderName: WideString;
Count: Integer;
out RecsOut: Integer;
Options: Integer;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant): OleVariant;
dispid 20000001;
function AS_DataRequest(const ProviderName: WideString;
Data: OleVariant): OleVariant;
dispid 20000002;
function AS_GetProviderNames: OleVariant;
dispid 20000003;
function AS_GetParams(const ProviderName: WideString;
var OwnerData: OleVariant): OleVariant;
dispid 20000004;
function AS_RowRequest(const ProviderName: WideString;
Row: OleVariant;
RequestType: Integer;
var OwnerData: OleVariant): OleVariant;
dispid 20000005;
procedure AS_Execute(const ProviderName: WideString;
const CommandText: WideString;
var Params: OleVariant;
var OwnerData: OleVariant);
dispid 20000006;
end;
// *********************************************************************//
// The Class CoComUpdateBil provides a Create and CreateRemote method to
// create instances of the default interface IComUpdateBil exposed by
// the CoClass ComUpdateBil. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoComUpdateBil = class
class function Create: IComUpdateBil;
class function CreateRemote(const MachineName: string): IComUpdateBil;
end;
implementation
uses ComObj;
class function CoComUpdateBil.Create: IComUpdateBil;
begin
Result := CreateComObject(CLASS_ComUpdateBil) as IComUpdateBil;
end;
class function CoComUpdateBil.CreateRemote(const MachineName: string): IComUpdateBil;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ComUpdateBil) as IComUpdateBil;
end;
end.
X
xujh
Unregistered / Unconfirmed
GUEST, unregistred user!
这几个文件客户端有没有？
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
// (1) v1.0 Midas, (C:/WINNT/system32/MIDAS.DLL)
// (2) v2.0 stdole, (C:/WINNT/system32/STDOLE2.TLB)
// (3) v4.0 StdVCL, (C:/WINNT/System32/stdvcl40.dll)
S
Sachow
Unregistered / Unconfirmed
GUEST, unregistred user!
把MIDAS.DLL复制到客户机的WINNT/System32目录下即可，另外两个不需要（对于D5和CB5以后的版本来说）。
J
jxgangzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。