! Memo1.Text in Textdatei auf ftp server schreiben !

[marabu]

Hallo.

Als erstes kannst du den Inhalt deines Memos in einen Stream schreiben, danach ist der Versand ganz leicht:

Delphi-Quellcode:

procedure TWebForm.Button2Click(Sender: TObject);
var
  s: TStream;
  fn: TFileName;
begin
  s := TMemoryStream.Create;
  try
    Memo.Lines.SaveToStream(s);
    fn := '/Text/' + Memo.Name + '.txt';
    UpLoad(ftp, fn, s);
  except
    s.Free;
  end;
end;

Die Prozedur Upload() geht bei mir davon aus, dass die FTP-Komponente nicht ständig verbunden ist.

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;

Grüße vom marabu