Delphi – 如何创建通用REST调用

1)获取所有数据
对于大多数应用程序来说,内存中没有30-40,000行.即使你需要进行多次休息调用来获取数据,你也可以预先做到.如果您总是要遍历所有数据,那么如果您在循环中或在循环内部获取它,时间将是相同的：

repeat
    PartialData := genericREST_Get(baseURL,suffix);
    // CopyDataSet is actually a FireDac method that I don't see on ClientDataSet
    // Basically just .Append and copy all fields with matching names.
    FullDataMemTable.CopyDataSet(PartialData);
  until PartialData.IsEmpty;

2)如果你想在内存中一次只有一组数据,你可以将DataSet包装在另一个复制某些调用的对象中(Eof,FieldByName,Next等)当“Next”命中时,你会尝试获得更多数据.这里的示例是一个独立的类,但您也可以在DataModule上创建这些公共方法.然后你可以调用dm1.Next而不是像dm1.ds_Generic.DataSet.Next这样的东西.

constructor TDataFetcher.Create(BaseUrl,Resource,Suffix: string);
begin
  FBaseUrl := BaseUrl;
  FResource := Resource;
  FSuffix := Suffix;
end;

procedure TDataFetcher.Open;
begin
  FData := genericREST_Get(FBaseURL,FResource,FSuffix);
end;

procedure TDataFetcher.GetNextData;
begin
  FData := genericREST_Get(FBaseURL,FSuffix);
end;

function TDataFetcher.Eof: boolean;
begin
  result := FData.Eof;
end;

function TDataFetcher.FieldByName(FieldName: string): TField;
begin
  result := FData.FieldByName(FieldName);
end;

procedure TDataFetcher.Next;
begin
  FData.Next;
  if FData.Eof then
  begin
    GetNextData;
  end;
end;

其他选择：
a)从TClientDataSet继承
您还可以通过从TClientDataSet派生新类并重写MoveBy来实现此目的：

function MoveBy(Distance: Integer): Integer; virtual;

如果Inherited MoveBy设置EOF,则可以加载下一组数据.但是,如果您尝试此操作,请确保考虑所有用例.例如,如果调用者使用.Last,您希望发生什么？这是包装类具有的一个优点.除了您公开的内容之外,调用者不能执行任何操作.

function TMyDataSet.MoveBy(Distance: Integer): Integer; override;  
begin
  inherited MoveBy
  if self.Eof then
  begin
    FetchMoreData;
  end;
end;

b)FetchOnDemand
ClientDataSet内置了对FetchOnDemand的支持.我不知道它将如何与RestDataAdapter交互.我敢肯定,如果有足够的工作,你可以获得一个返回总记录数的提供者,然后让ClientDataSet根据需要请求更多的记录.