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?