DATASNAPがFIREDACをサポートするために追加したリモートメソッドのデータ型TFDJSONTDataSets
1020 ワード
前のブログでは、COMの代わりにFIREDACを使用することについて言及しています.DATAPROVIDER、OLEVARIANT、CLIENTDATASET、DBEEXPRESSです.の
DATASNAPのリモートメソッドは、FIREDACデータセットの直接シーケンスのパラメータタイプを増やす必要があることは明らかである.
XE 5のUPDATE 2から新しいユニットファイル:Dataを追加します.FireDACJSONReflect
TFDJSOnDataSetsは、単一テーブルまたはプライマリ・スレーブ・テーブル・データにかかわらず、名前の通り1つ以上のデータセット・オブジェクトを返すデータセット・リスト・オブジェクトです.
サービス・エンドのデモ・コード:
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;