使用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;

 運行服務器，並打開服務。

運行客戶端，點按鈕，就可以顯示出服務端的數據了。

呵呵，基本上就是零代碼了。