Hallo zusammen, ich hoffe ihr könnt mir helfen.
Ich möchte ein Bild auf einen
FTP-Server hochladen und
dabei beim Upload-Start bzw beim Ende eine Message anzeigen lassen,
Delphi-Quellcode:
procedure TForm2.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ShowMessage('Bildupload startet!');
end;
procedure TForm2.FTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ShowMessage('Bildupload abgeschlossen!');
end;
allerdings führt das Programm beide Prozeduren direkt hintereinander aus und lädt dann die Datei hoch.
Edit: Ich benutze Delphi 5