DATASNAP为支持FIREDAC而增加的远程方法的数据类型TFDJSONDataSets

前面的博客提到用FIREDAC全面替代COM那一套东西:DATAPROVIDER,OLEVARIANT,CLIENTDATASET,DBEXPRESS。。。

显然,DATASNAP的远程方法必须增加对FIREDAC数据集直接序列的参数类型。

从XE5的UPDATE2开始增加一个新的单元文件:Data.FireDACJSONReflect

TFDJSONDataSets是一个数据集列表对象,顾名思义可以返回一个或多个数据集对象,不论是单表或者主从表数据都可传递。

服务端演示代码:

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;

posted @ 2014-10-06 01:02  delphi中间件  阅读(6563)  评论(2编辑  收藏  举报