1

我有一个 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);

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

任何想法？谢谢

4

0 回答 0