Hallo zusammen,
ich habe einen Datasnap-Rest-Server. Dieser soll an meinen Client Daten übertragen (im konkreten Fall handelt es sich um eine PDF-Datei).
Der Servercode lautet
Delphi-Quellcode:
function TDsServer.Download(Id:
String;
out size: Int64): TJsonObject;
var
stream: TMemoryStream;
strPfad:
String;
begin
strPfad := ExtractFileDir(ParamStr(0))+PathDelim+'
Files'+PathDelim+Id+PathDelim+'
reports'+PathDelim+Id+'
.pdf';
try
try
stream := TMemoryStream.Create;
stream.LoadFromFile(strPfad);
stream.Position := 0;
result := TJsonObject.Create;
result.AddPair(TJsonPair.Create('
data', EncodeBase64(stream.Memory, stream.Size)));
except on E:
Exception do
begin
memError.lines.add(E.
Message);
end;
end;
finally
begin
FreeAndNil(stream);
end;
end;
end;
Der Client ruft den Download wie folgt auf
Delphi-Quellcode:
procedure TfrmContent.download(id:String);
var
restClient: TDsServerClient_Rest;
size: Int64;
json: TJsonObject;
begin
restClient := TDsServerClient_Rest.Create(frmContentProgramm.DSRestConnection1);
//json := TJsonObject.Create;
json := restClient.GutachtenDownload(id,size);
end;
Beim Übertragen von einer Datei die ca. 60 MB groß ist, verdoppelt sich der benutzte Arbeitsspeicher des Clients solange bis es knallt.
Kennt jemand das Problem? Bzw. habe ich einen groben Fehler im Code?
Gruß
Philip