![| Embarcadero RAD Studio Delphi C++Builder Blogs the future of starts demands massive productivity](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2020/08/delphi_circuit.jpg?resize=1140%2C628&ssl=1)
I’ve run into this a few times, where a REST Service returns results in pages, so you have to make multiple passes to get all the data. One thing I love about the RAD REST Client Library is the ability to store all the data in the FDMemTable where you can work on it. Unfortunately when you can only get part of the results that limits the functionality. Here is a simple solution to get all the pages in a single FDMemTable.
What you need is a second FDMemTable. My first one is called MembersTempTable, and it is attached to the Response Adapter. The second one is called MembersMemTable and it will hold the complete set of data.
/ Drop any existing data MembersMemTable.Close; // Get the first page MembersRequest.Params.ParameterByName('limit').Value := '50'; MembersRequest.Params.ParameterByName('offset').Value := '0'; MembersRequest.Execute; // This clones the FDMemTable MembersMemTable.CopyDataSet(MembersTempTable, [coStructure, coRestart, coAppend]); // Now we add the other tables MembersMemTable.BeginBatch(); try // Repeat until we don't get a full page while MembersTempTable.RecordCount = 50 do begin // Start with the next page MembersRequest.Params.ParameterByName('offset').Value := (MembersMemTable.RecordCount - 1).ToString; MembersRequest.Execute; // Append those records into our FDMemTable MembersMemTable.CopyDataSet(MembersTempTable, [coAppend]); end; MembersMemTable.IndexFieldNames := 'id'; finally MembersMemTable.EndBatch; end;
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition