Ich habe es tatsächlich über eine TFDMemTable gelöst. Ich habe mir seitens des Servers die
Query in einen TStream gespeichert:
Delphi-Quellcode:
Query.Open;
if Assigned(AStream)
then begin
Query.SaveToStream(AStream, sfJSON);
end;
Den habe ich an den Client gegeben und im Client dann in die TFDMemTable geladen:
Delphi-Quellcode:
procedure TDB_Unit.Get_Propteries;
var LClient: TxDataClient;
LService: IDBService;
LStream: TMemoryStream;
begin
LClient := TXDataClient.Create;
LStream := TMemoryStream.Create;
Try
LClient.Uri:= xData_Conect.URL;
LService:= LClient.Service<IDBService>;
LStream:=LService.Properties_Select as TMemoryStream;
LStream.Position:=0;
MTable_Properties.LoadFromStream(LStream, sfJSON);
Finally
LClient.Free;
LStream.Free;
end;
end;
Zu Test-Zwecken ein DataSource an die TFDMemTable gehängt und das Ergbenis in einem DBGrid angezeigt. Scheint zu funktionieren.
Jetzt muss ich mal gucken, was ich mit einer TFDMemTable im Gegensatz zu einer DataSet machen kann, denn damit habe ich noch nie gearbeitet.
Vielen Dank für die Unterstützung.
@Neumann Es ist keine Web-App, sondern eine
VCL-App
Patrick