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

     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;

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

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

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

 

 

 

你可能感兴趣的:(Delphi)