Hallo.
Die Prozedur Upload packst du in die implementation section deiner Form. Der zweite Code ist unschwer als Code für das OnClick-Ereignis eines Buttons mit Namen UploadButton zu erkennen. Wenn du schon einen Button oder ein MenuItem für den Upload hast, dann erzeuge einen OnClick-Handler und übernehme den Code-Block durch Kopieren und Einfügen. Deine
FTP-Komponente wird im Objektinspektor schon auf Host = "www.poltergeistx.po.funpic.de" eingestellt sein. Statt "/Memo.txt" musst du dann den
URL "/Log.txt" an die Prozedur Upload() übergeben.
Delphi-Quellcode:
procedure TWebForm.UploadButtonClick(Sender: TObject);
var
s: TStream;
begin
s := TMemoryStream.Create;
Memo1.Lines.SaveToStream(s);
// hast du bestimmt schon gemacht, aber schadet hier auch nicht
idFTP1.Host := 'www.poltergeistx.po.funpic.de';
idFTP1.Username := 'username';
idFTP1.Password := 'password';
UpLoad(idFtp1, '/log.txt', s);
s.Free;
end;
Du schaffst das.
marabu