Indy FTP fileTransfer via Stream

[J Kadison]

Hallo!

Ich habe mal eine Frage zu der FTP-IndyKomponente.

Und zwar:

Ich möchte eine Datei auf meinem Server in eine TStringlist einlesen und umgekehrt von TStringlist auf den Server als Datei uploaden und zwar ohne Temporäre Dateien auf dem System.
Da dachte ich mir, die funktionen

Delphi-Quellcode:

procedure TIdFTP.Put(const ASource: TStream; const ADestFile: string = '';
 const AAppend: boolean = false);
procedure TIdFTP.Get(const ASourceFile: string; ADest: TStream; AResume: Boolean = false);

wären hier ganz hilfreich.

Aber wenn ich versuche das ganze herunter zu laden, dann bekomme ich einfach NICHTS zurück geliefert

Hier die Funktion:

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;

Wenn ich einen normalen TStream nehme, bekomme ich unschöne fehler: 'Meldung Abstrakter Fehler';
wie kann ich das denn machen, damit ich auch den inhalt der Textdatei auslesen kann?

[Klaus01]

Delphi-Quellcode:

var
    stream : TStream;
begin

    Result := TStringList.Create;

    try
        stream := TMemoryStream.Create;
        Server.Get(serverpath, stream);
        stream.position := 0;  // könnte helfen.
        Result.LoadFromStream(stream);
        stream.Free;                     
    except
        Result.Text := 'ERROR';   
    end;

Grüße
Klaus

[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;

[J Kadison]

Hihi!

Das ist ja toll auf einmal gehts =)


DANKE für die schnellen antworten!