Einzelnen Beitrag anzeigen

Drako

Registriert seit: 25. Okt 2006
1 Beiträge
 
#1

Indy 9 - FTP - WorkBegin - WorkEnd

  Alt 25. Okt 2006, 10:20
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
  Mit Zitat antworten Zitat