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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18