用Ｄelphi创建COM+ 应用服务器(一)
一、创建实体对象
步骤一：
Ｎew->Other->ActiveX->ActiveX Library
如图：
步骤二：
New->Other->Multitier->Transactional Data Module
如图：
步骤三：
选择Ok 以后会弹出如下对话框：
此时你需要做的是：
CoClass Name 项输入组件的名字，
Threading Model项为组件的线程模型,一般系统默认即可。
Transaction Model 项为组件的事务模型。在实体组件中一般选支持事务，即：Support Transactions。
例如：
步骤四：
接着在Transctional Data Module 里拖放一个DataSetProvider
如下：
DataSetProvider的作用是为客户端提供数据。而把客户端的数据传到应用服务器则用olevariant这个数据类型。
Adoconnection、Adoquery 等数据访问组件会由一个专门的数据访问类来管理。
步骤五：
需要在数据模块的几个事件里对DataSetProvider的DataSet属性做初始化：
OnActivate事件：
FExample.FAccess.FADOConnection.Open;
OnCreate事件：
FExample:=TExample.Create(self);
FExample.Faccess.SQL:='SELECT TOP 100 * FROM Country';
FExample.Faccess.Query;
Datasetprovider1.DataSet:=FQuote.Faccess.ADOQuery;
OnDeactivate 事件：
FExample.FAccess.FADOConnection.Close;
OnDestroy 事件：
FExample.Free;
本文地址：http://com.8s8s.com/it/it5325.htm