DATASNAPがFIREDACをサポートするために追加したリモートメソッドのデータ型TFDJSONTDataSets

1020 ワード

前のブログでは、COMの代わりにFIREDACを使用することについて言及しています.DATAPROVIDER、OLEVARIANT、CLIENTDATASET、DBEEXPRESSです.の
DATASNAPのリモートメソッドは、FIREDACデータセットの直接シーケンスのパラメータタイプを増やす必要があることは明らかである.
XE 5のUPDATE 2から新しいユニットファイル:Dataを追加します.FireDACJSONReflect
TFDJSOnDataSetsは、単一テーブルまたはプライマリ・スレーブ・テーブル・データにかかわらず、名前の通り1つ以上のデータセット・オブジェクトを返すデータセット・リスト・オブジェクトです.
サービス・エンドのデモ・コード:
function TServerMethods1.GetJSONData: TFDJSONDataSets;
begin
  Result := TFDJSONDataSets.Create;
  if not FDMemTable1.Active then
    FDMemTable1.LoadFromFile('../../customer.fds')
  else
    FDMemTable1.Active := False;
  TFDJSONDataSetsWriter.ListAdd(Result, FDMemTable1);
end;

var
  DSList: TFDJSONDataSets;
begin
  FDMemTable1.Close;
  DSList := ClientModule1.ServerMethods1Client.GetJSONData;
  FDMemTable1.AppendData(
      TFDJSONDataSetsReader.GetListValue(DSList, 0));
  FDMemTable1.Open;
end;