三层架构之DCOM

DCOM配置三层架构应用程序的连接其实很简单.

 

Server 端:

1. 创建一个 Project ,命名为 DCOMServer. 默认会有一个 MainForm窗体. 不用去设置任何代码;

2. 添加一个 Remote Data Moudle, 命名为 RDMServer; 将 DataSnap控件页面中的 TSimpleObjectBroker 放置其中. 无需其它设置.

OK, 这就是服务器端.

 

Client 端:

1. 创建一个 Project, 命名为 DCOMClient. 默认也会有一个MainForm窗体.

2. 在Client 窗体中放置 2个 TButton : btn1, btn2;

3. 在Client 窗体中放置 1个DataSnap控件页面中的 TDCOMConnection , 名称为 con1, 设置属性 ComputerName 为服务器名称;属性 ServerName为 Server 端Remote Data Moudle 名称, 即为: DCOMServer.RDMServer;

4. 在Client 窗体中放置 1个DataAcess 控件页面中的 TDataSetProvider;

5. 代码也很简单, 就是2个 TButton 的click事件:

procedure TFrmClientMain.btn1Click(Sender: TObject);
begin
  con1.Connected := True;
end;

 

procedure TFrmClientMain.btn2Click(Sender: TObject);
begin
  con1.Connected := False;
end;

 

Ok, 已经完成.

本机测试 , 对 Server 和 Client 端的 Project 都进行编译.先运行一下 Server 应用程序, 打开后即关闭, 就是将DCOM服务注册一下即可.

然后直接运行 Client 端,   Click Btn1 , 连接Server , 若 Server 应用程序被打开, 则表明连接成功. 如下图:

 

再 Click Btn2 断开连接, Server 应用程序关闭.

 

这是一个最简单的 DCOM连接 ,没有加入数据连接组件.