delphi xe datasnap rest 相關

DBXDBReaders.TDBXDataSetReader.CopyReaderToClientDataSet

class
 procedure
 CopyReaderToClientDataSet(
Reader:
 TDBXReader;
  Dataset:
 TClientDataSet)
;
 static;


TDBXReader --> 
TClientDataSet

var ja: TJSONArray;
    va: TJSONValue;
    i: integer;
begin
  ja := TJSONArray.Create;
  ja.AddElement(TJSONString.Create('Delphi XE程式設計系列 1-主從架構, 多層到JSON和REST'));
  ja.AddElement(TJSONString.Create('從原生API到REST API – 使用C++Builder XE開發REST應用程式'));
  ja.AddElement(TJSONString.Create('Delphi XE程式設計系列 2-DataSnap/REST伺服器'));


  for i :=0 to ja.Size - 1 do
  begin
    va := ja.Get(i);
    ShowMessage(va.Value);
  end;
  ShowMessage(ja.ToString);

 

 

TDBXJSONTools.TableToJSON()

table --> json

 

 

http://localhost:8080/datasnap/rest/TServerMethods1/ReverseString/hello/