IdFTP1-von memo1 auf ftp server in textdatei leiten ?????

[marabu]

Hallo,

wenn du deine FTP-Komponente schon konfiguriert hast (Host, Username, Password), dann geht es so:

Delphi-Quellcode:

procedure Upload(ftp: TIdFTP; url: string; s: TStream);
begin
  s.Position := 0;
  ftp.Connect(true, -1);
  try
    ftp.Put(s, url);
  finally
    ftp.Disconnect;
  end;
end;

procedure TWebForm.UploadButtonClick(Sender: TObject);
var
  s: TStream;
begin
  s := TMemoryStream.Create;
  Memo.Lines.SaveToStream(s);
  UpLoad(ftp, '/memo.txt', s);
  s.Free;
end;

Grüße vom marabu