用Delphi创建COM+ 应用服务器(一)

用Ｄ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;