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/