Indy FTP Dateien speichern/bearbeiten

[marabu]

Hi,

um eine Datei vom FTP-Server zu laden kannst du so vorgehen:

Delphi-Quellcode:

// Die Verbindungsdaten sind schon mit dem 
// Object Inspector eingetragen worden
procedure TMainForm.FormCreate(Sender: TObject);
begin
  FTP.Connect;
  LocalRoot := 'C:\daten\test\';  // private var von MainForm
  Memo.Clear;
end;

// Verbindung wieder abbauen
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  FTP.Disconnect;
end;

// so kannst du eine Datei vom Server in einem Stream entgegennehmen
procedure TMainForm.cmdOpenExecute(Sender: TObject);
var
  url: string;
  s: TStream;
begin
  url := '';
  if not InputQuery('Öffnen', 'URL', url) or (url = '') then
    Exit;
  s := TMemoryStream.Create;
  FTP.Get(url, s);
  s.Position := 0;
  Memo.Lines.LoadFromStream(s);
  s.Free;
end;

// so kannst du die Datei vom Server direkt im Dateisystem speichern
procedure TMainForm.cmdDownloadExecute(Sender: TObject);
var
  path, url, fileName: string;
begin
  url := '';
  if not InputQuery('Download', 'URL', url) or (url = '') then
    Exit;
  fileName := LocalRoot + url;
  Translate(fileName, '/', '\');  // geht auch mit StringReplace()
  path := ExtractFilePath(fileName);
  ForceDirectories(path);
  FTP.Get(url, fileName);
  Memo.Lines.LoadFromFile(fileName);
end;

Eine Liste der FTP Kommandos findest du im RFC, den ich dir schon genannt habe. Du wirst dich aber eher für die Methoden der Komponente FTP interessieren - die stehen in der Indy Online Hilfe, die nach der Installation in die von Delphi integriert sein sollte. Einfach mit F1 bei ausgewählter FTP-Komponente probieren.

Deine Frage zur Verarbeitung von Textdateien solltest du in einem eigenen thread stellen.

Freundliche Grüße vom marabu