線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1641
推到 Plurk!
推到 Facebook!

Delphi DataSnap 初步入门使用总结

 
pcplayer99
尊榮會員


發表:142
回覆:740
積分:591
註冊:2003-01-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-07-20 01:21:06 IP:183.15.xxx.xxx 訂閱
概念:
Delphi 最新的 DataSnap 支持的多层架构,其代码架构和以前的不一样。

之前,无论是 DCOM 还是 WebService,服务器端公开给客户端调用的方法,都是采用 interface 的方式。客户端调用 interface 里面的方法,服务器端实现 interface 里面的方法。

DataSnap 则是在客户端产一个对应服务器端的类,这个类里面包含服务器端 public 里面的相同的方法。客户端要调用服务器端的方法,就是自己在客户端创建这个类的对象,然后调用这个对象的方法。对象的 Create 的参数,则是客户端的 SQLConnection。因此可以知道客户端调用这个对象的方法,最终是通过 SQLConnection 去调用了服务器端的方法。

另外,DataSnap 的服务器端是工作在 TCP 211 Port 上面。客户端是通过 TCP 连接服务器端的 211 Port。因此,这是一个长连接。和 WebService 的每次 HTTP 访问完以后就断开连接的无状态模式不一样。当然,保持一个长连接的好处是服务器端可以主动回掉客户端。坏处是服务器端能够同时服务的客户端的数量就会比无状态模式少很多。

具体操作:

1. 建立一个 DataSnap 的服务器:直接到 New -- Other 里面,选择左边的 DataSnap Server 选项,然后在右边有:DataSnap REST Application; DataSnap Server; DataSnap WebBroker Application. 2. 选择 DataSnap Server,然后跟着提示走,就能创建一个普通的 DataSnap Server 程序。这里面,默认的是TCP服务器运行在 211 端口。也可以加选 HTTP。原则上如果是一个普通的 HTTP 服务器,应该选择 REST Application。
3. 假设服务器是 TCP 服务器,运行在211端口。它会自动创建一个 TServerMethods1 = class(TDSServerModule) 这是一个 DataModule。可以在里面放数据库控件,放上 DataSetProvider。这个类的 public 里面也可以写一些方法给客户端调用。架构上 DataSnap 和 WebService 不同的是,服务器端公开的方法不是接口模式。
4. 创建 DataSnap 客户端:开一个新的程序工程,然后,在 New -- Other 里面,选择左边的 DataSnap Server 选项,右边会出来:DataSnap ClientModule,选择这个,Delphi自动创建一个 DataModule,里面有一个 DBExpress 的 SQLConnection,并且这个 SQLCOnnection 的驱动被自动设置为 DataSnap。
4.1. 在这里,放一个 TDSProviderConnection,设置它的属性:SQLConnection 为这里的 SQLConnection1;ServerClassName 属性,必须手动填写字符串,也就是前面服务器端的 TServerMethods1 。
4.2. 拖一个 ClientDataSet 过来,它的 RemoteServer 属性设置为上述的 DSProviderConnection1:TDSProviderConnection,在服务器运行的情况下,下拉 ProviderName 属性,就可以看到服务器端的 DataSetProvider 了。
4.3. 这里的构造是:ClientDataSet 的 RemoteServer 是 DSProviderConnection1;DSProviderConnection1.SQLConnection 是 SQLConnection1,并且要设置其 ServerClassName;SQLConnection1 负责连接服务器端,其驱动设置为 DataSnap 模式。
5. 客户端调用服务器端的公开的方法,是因为客户端有一个自动创建的单元:ClientClassesUnit1,里面有一个客户端对应于服务器端的模块:TServerMethods1Client. 这个模块作服务器端的方法在客户端的代理,拥有和服务器端相同的方法。
5.1. 如果服务器端的 TServerMethods1 里面,增加了一些给客户端调用的方法,则客户端的 TServerMethods1Client 需要更新。Delphi 有一个自动更新它的方法,就是在客户端的 SQLConnection,鼠标右键,下拉菜单里面选择 Generate DataSnap Client Classes. Delphi 就会重新创建新的客户端代码。
5.2. 客户端要调用服务器端的方法,代码如下:
procedure TForm1.Button3Click(Sender: TObject);
var
O: TServerMethods1Client; //这个是客户端生成的服务器端的方法代理类。
begin
O := TServerMethods1Client.Create(ClientModule1.SQLConnection1.DBXConnection); //创建这个类,创建的参数是这个客户端的 SQLConnection1.DBXConnection。
try
Label1.Caption := O.ReverseString('abcdefg'); //调用客户端的这个代理对象的方法,也就是调用了服务器端的方法。
finally
O.Free; //调用完毕,将客户端的代理对象释放。
end;
end;
GrandRURU
站務副站長


發表:234
回覆:1654
積分:1752
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-07-20 08:36:54 IP:59.120.xxx.xxx 訂閱
拜讀過 pcplayer99 的部落格文章
發覺您對於 DataSnap 技術了解真的很透徹,讚!

===================引 用 pcplayer99 文 章===================
概念:
Delphi 最新的 DataSnap 支持的多层架构,其代码架构和以前的不一样。

之前,无论是 DCOM 还是 WebService,服务器端公开给客户端调用的方法,都是采用 interface 的方式。客户端调用 interface 里面的方法,服务器端实现 interface 里面的方法。

DataSnap 则是在客户端产一个对应服务器端的类,这个类里面包含服务器端 public 里面的相同的方法。客户端要调用服务器端的方法,就是自己在客户端创建这个类的对象,然后调用这个对象的方法。对象的 Create 的参数,则是客户端的 SQLConnection。因此可以知道客户端调用这个对象的方法,最终是通过 SQLConnection 去调用了服务器端的方法。

另外,DataSnap 的服务器端是工作在 TCP 211 Port 上面。客户端是通过 TCP 连接服务器端的 211 Port。因此,这是一个长连接。和 WebService 的每次 HTTP 访问完以后就断开连接的无状态模式不一样。当然,保持一个长连接的好处是服务器端可以主动回掉客户端。坏处是服务器端能够同时服务的客户端的数量就会比无状态模式少很多。

...43...
pcplayer99
尊榮會員


發表:142
回覆:740
積分:591
註冊:2003-01-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2015-07-20 12:55:52 IP:120.236.xxx.xxx 訂閱
我更喜欢 WebService 基于 Interface 的架构。 基于 Interface 的架构更简单、优雅。也更容易修改和扩展。

之前我曾经将 WebService 改造为基于 UDP 通讯的 RIO,架构搞好之后,客户端调用服务器端的代码,和 WebService 的写法完全一样,就是获取到 Interface 然后调用这个 Interface 的方法。服务器端的实现方法也一样,就是实现 Interface 里面定义的方法。
pcplayer99
尊榮會員


發表:142
回覆:740
積分:591
註冊:2003-01-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2016-06-24 15:09:07 IP:120.237.xxx.xxx 訂閱
前文说到:

procedure TForm1.Button3Click(Sender: TObject);
O: TServerMethods1Client; //这个是客户端生成的服务器端的方法代理类。
O := TServerMethods1Client.Create(ClientModule1.SQLConnection1.DBXConnection); //创建这个类,创建的参数是这个客户端的 SQLConnection1.DBXConnection。
Label1.Caption := O.ReverseString('abcdefg'); //调用客户端的这个代理对象的方法,也就是调用了服务器端的方法。
O.Free; //调用完毕,将客户端的代理对象释放。
end;

这里的 TServerMethods1Client 是在设计期,启动服务器端后,在 IDE 里面创建的一个在客户端对应服务器的一个 class。

也可以不用在设计期创建这个 class,而是直接用 Delphi 带来的一个 Component,在运行期动态调用服务器端的方法:

拖一个
SqlServerMethod1 到客户端,设置它的 property (这里说的是 Object Inspector 里面的操作):
1. SQLConnection 设置为当前连接 DataSnap Server 的 SQLConnection1;
2. 在 DataSnap server 运行的情况下,下拉 ServerMethodName,选择你要调用的服务器端的方法名。
3. 点选 Params 你就能看到这个服务器端方法的所有 param。

然后,调用这个客户端方法的代码就是:
SqlServerMethod1.Params.ParamByName('Hi').AsString := Edit1.Text; 给方法的输入参数赋值
SqlServerMethod1.ExecuteMethod; 执行这个方法
Label1.Caption := SqlServerMethod1.ParamByName('ReturnParameter').AsString; 从方法的输出参数取值。

这样就完成一次远程方法调用。也算是一种 RPC 吧?
系統時間:2017-11-18 19:46:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!