使用delphi 开发多层应用(二十一)使用XE5 RESTClient 直接访问kbmmw 数据库

  1. 云栖社区>
  2. 博客>
  3. 正文

使用delphi 开发多层应用(二十一)使用XE5 RESTClient 直接访问kbmmw 数据库

xalion 2013-10-15 16:21:00 浏览1233
展开阅读全文

     delphi XE5 出来了,增加了android 的开发支持,另外增加了一个RESTClient 来支持访问REST 服务器。

这个功能非常强大,可以直接使用非常多的REST 服务器。同时也可以支持访问kbmmw 的web 服务器,

并完美的通过JSON支持使用kbmmw 的JSON 数据格式。使我们非常方便的在win32,win64,mac os,ios 和android

上访问kbmmw 的数据库。

    首先我们建立一个可以返回JSON 的kbmmw web 服务器。这个可以参照我以前的博文,使用delphi 开发多层应用(十二)使用kbmMW webserver 返回JSON

。这里就不再重复。

  现在我们在XE5 里面做客户端,首先建立一个工程,并在form 上放置以下控件,如图:

各个控件的属性设置:

注意画箭头的地方。

剩下的就是写代码了

procedure TForm1.Button1Click(Sender: TObject);
begin
  restclient1.BaseURL:='http://127.0.0.1/getdata';
  restrequest1.Execute;
end;

procedure TForm1.RESTResponseDataSetAdapter1BeforeOpenDataSet(Sender: TObject);
begin
  if ClientDataSet1.FieldCount = 0 then
    ClientDataSet1.CreateDataSet;
end;

 运行服务器,并打开服务。

运行客户端,点按钮,就可以显示出服务端的数据了。

呵呵,基本上就是零代码了。

 

 

 

网友评论

登录后评论
0/500
评论
xalion
+ 关注