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;
运行服务器,并打开服务。
运行客户端,点按钮,就可以显示出服务端的数据了。
呵呵,基本上就是零代码了。