[Datasnap] Filedownload über TDSRestConnection führt zu out of memory

[Darlo]

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

[jboettinger]

Hi, hast du dazu schon eine Lösung habe das gleiche Problem.
Grüße Jens

[wjjw]

Gleiches Problem.. :|

[Moombas]

Wird bei

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;

Wird nicht logischerweise immer bei jedem Aufruf der Prozedur restClient erstellt aber nie wieder frei gegeben oder bin ich grad blöd?