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