Indy FTP fileTransfer via Stream

[GHorn]

Delphi-Quellcode:

var 
    stream : TStream; 
begin 

    Result := TStringList.Create; 

    try 
        stream := TMemoryStream.Create; 
        Server.Get(serverpath, stream); 
        Result.LoadFromStream(stream); 
        stream.Free;                      
    except 
        Result.Text := 'ERROR';    
    end;

Das würde ich so ändern:

Delphi-Quellcode:

var 
    stream : TMemoryStream;                       // TMemoryStream
begin 

    Result := TStringList.Create; 

    try 
        stream := TMemoryStream.Create; 
        Server.Get(serverpath, stream, False);    // False als Parameter
        stream.Seek(0, soFromBeginning);          // an den Anfang setzen 
        Result.LoadFromStream(stream); 
        stream.Free;                      
    except 
        Result.Text := 'ERROR';    
    end;