准備使用DELPHI開發移動設備開發的朋友對DATASNAP REST中間件不可不了解。
DATASNAP REST新型WEBSERVICES中間件使用的通信協議和數據封裝格式：
使用HTTP通信協議，HTTP協議哪個平台都支持；使用JSON作為數據的封裝格式，幾乎所有的開發語言都可以解析JSON數據。
REST的目的就是通過簡單的URL來完成對中間層遠程方法的調用並返回JSON格式的數據，調用方解析JSON數據然后將數據秀出來。
正是基於以上原因，DATASNAP REST中間件才可以為蘋果和安卓的移動的NATIVE APP提供數據服務；也可以為WINDOWS、LINUX、MAC等
桌面型NATIVE APP提供數據服務。
下面筆者將對跨平台作出演示：
1.根據DELPHI的向導生成DATASNAP REST中間件（略過）。
2.在中間件遠程方法里面增加一個方法：
function TServerMethods1.GetData(sql: string): tdataset;
begin
q.close;
q.sql.clear;
q.sql.text := sql;
q.Open;
Result:= q;
end;
3.客戶端調用，因為演示跨平台的原因，此處只介紹通過URL調用中間件的方法。
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
jo: ISuperObject;
ja, jb, jc: TSuperArray;
i, h: Integer;
FieldList: TStringList;
arr: array of array of string;
begin
Memo1.Clear;
FieldList:= TStringList.Create;
try
s := idhttp1.Get('http://localhost:8080/datasnap/rest/TServerMethods1/GetData/select * from t1 where iid=''2''');
Memo1.Lines.add(s);
jo := so(s);
ja := jo['result'].AsArray;
// 獲取字段列表
jb := ja[0]['table'].AsArray;
for i := 0 to jb.Length-1 do begin
jc := jb[i].AsArray;
FieldList.Add(jc[0].AsString)
end;
// 數據集創建字段
cds.close;
cds.FieldDefs.Clear;
for i := 0 to fieldList.Count -1 do begin
CDS.FieldDefs.Add(fieldList[i],ftString,100, False);
end;
CDS.CreateDataSet;
// 設置表格的列寬
for i := 0 to dbgrid1.Columns.Count-1 do begin
DBGrid1.Columns[i].width := 80;
end;
// 數據集填充數據
SetLength(arr, ja[0][FieldList[0]].AsArray.Length, FieldList.Count);
for i := 0 to fieldlist.count-1 do begin // col
jb := ja[0][FieldList[i]].AsArray;
for h := 0 to jb.Length-1 do begin // row
arr[h, i] := jb[h].AsString;
end;
end;
cds.DisableControls; try
for i := 0 to jb.Length-1 do begin // row
cds.Append;
for h := 0 to fieldlist.count-1 do begin // col
cds.Fields[h].Value := arr[i, h];
end;
cds.Post;
end;
finally
cds.EnableControls;
end;
finally
FieldList.Free;
end;
end;
幾乎所有的開發語言都支持通過HTTP GET，然后解析中間件返回的JSON數據。具體代碼由各開發語言的程序員編寫，此處
只介紹DELPHI如何URL調用的代碼。
4.返回的JSON數據樣例
{"result":[{"table":[["iid",26,0,0,50,102,102,0,false,false,0,false,false],["name",26,1,0,50,102,102,0,false,false,0,false,false]],"iid":["1","2"],"name":["\u6D4B\u8BD5\u4E00","\u6D4B\u8BD5\u4E8C"]}]}
各開發語言解析JSON數據然后呈現。
后記：
delphi xe5新增加了RESTCLIENT組件，用它替代indy的http控件調用REST WEBSERVICE，再也不用人工去解析返回的JSON格式去生成CLIENTDATASET數據了，設置幾個屬性即可，幾乎是零編碼。
unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IPPeerClient, Data.DB, Datasnap.DBClient, REST.Response.Adapter, REST.Client, Data.Bind.Components, Data.Bind.ObjectScope, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, superobject;
type TForm1 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; DataSource1: TDataSource; ClientDataSet1: TClientDataSet; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure rest_exec(cds: TClientDataSet; url: string); var jo: ISuperObject; ja, jb, jc: TSuperArray; i, h: Integer; FieldList: TStringList; arr: array of array of string; http: TIdHTTP; begin FieldList := TStringList.Create; http := TIdHTTP.Create(nil); try jo := so(http.Get(url)); ja := jo['result'].AsArray; // 獲取字段列表 jb := ja[0]['table'].AsArray; for i := 0 to jb.Length - 1 do begin jc := jb[i].AsArray; FieldList.add(jc[0].AsString) end; // 數據集創建字段 cds.close; cds.FieldDefs.Clear; for i := 0 to FieldList.Count - 1 do begin cds.FieldDefs.add(FieldList[i], Data.DB.ftString, 100, False); end; cds.CreateDataSet; // 數據集填充數據 SetLength(arr, ja[0][FieldList[0]].AsArray.Length, FieldList.Count); for i := 0 to FieldList.Count - 1 do begin // col jb := ja[0][FieldList[i]].AsArray; for h := 0 to jb.Length - 1 do begin // row arr[h, i] := jb[h].AsString; end; end; cds.DisableControls; try for i := 0 to jb.Length - 1 do begin // row cds.Append; for h := 0 to FieldList.Count - 1 do begin // col cds.Fields[h].Value := arr[i, h]; end; cds.Post; end; finally cds.EnableControls; end;
finally FieldList.Free; http.Free; end; end;
procedure TForm1.Button1Click(Sender: TObject); var url: string; begin url := 'http://localhost:18888/cxg/middle/TSysMethods/rest_GetData/select * from pos_master/0'; rest_exec(ClientDataSet1, url); end;
end.