Question

我有一个DataSnap / REST服务器和客户端应用程序。

服务器有一种方法可以返回一个或多个具有一定数量记录的数据集，但是当这个记录数大于50时，客户端应用程序不会收到前50个记录。

我调试了服务器应用程序并且SQL语句是正确的（我已经从IBExpert执行它并返回正确数量的记录）。

我使用过XE7，FireDAC和Firebird。

在服务器应用程序中，我使用此方法返回数据集

procedure TSvrMethodsMdl.AddTable(SQL, TabName: string; JSON: TFDJSONDataSets);
var
  Q: TFDQuery;
begin
  Q := TFDQuery.Create(nil);
  try
    Q.Connection := conTPV;
    Q.Transaction := conTPV.Transaction;
    Q.SQL.Text := SQL;
    TFDJSONDataSetsWriter.ListAdd(JSON, TabName, Q);
  finally
    //    FreeAndNil(Q);
  end;
end;

进入客户端应用程序，为了接收记录，我有这个代码

var
  LDataSetList: TFDJSONDataSets;
  LDataSet: TFDDataSet;
  tTemp: TFDMemTable;
begin
....
  // get remote data
  LDataSetList := CliConnectMdl.SvrMethodsMdlClient.GetDataChanged(Shop, ResError);
  // process data
  LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSetList, MyTabName);
  tTemp.AppendData(LDataSet);

我认为这是一些配置，但我找不到。

有什么想法吗？感谢

在datasnap REST客户端中丢失记录

0 个答案: