Problem mit Indy FTP - IdFTP1Work wird nicht aufgerufen

[JayBee]

Huhu!

Bin dabei ein Upload-Programm zu schreiben. Dieses überträgt mittels der Indy FTP-Komponente Dateien auf einen Server.
Nach einigem rumprobieren und suchen bin cih auf eine Lösung mit Fortschrittsanzeige gestoßen:

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  Application.ProcessMessages;
end;

Allerdings klappt das nicht - Die ProgressBar bleibt leer und das Programm friert für die Dauer des Uploads ein.

Nach bischen rumprobieren habe ich bemerkt, dass die Prozedur gar nicht erst aufgerufen wird.
Ich habe schon an der SendBufferSize rumgespielt da ich irgendwo gelesen habe dass IdFTP1Work nur nach abgeschlossenen Datenpacketen aufgerufen wird, aber ohne Erfolg.

Weiß vllt jemand wo der Fehler liegen könnte?

Vielen dank schon mal im Voraus

PS: Benutze Windows Vista mit Delphi 5 und Indy 9 (jaja, seltsame kombination, aber hat sich so ergeben)

[Luckie]

Hast du das Ereignis im Objektinspektor auch zugeordnet?

[ManuMF]

ich würde nicht mit Bytes (aWorkCount) arbeiten, sonndern mit Kilobytes (aWorkCount DIV 1024). Das hat bei mir geklappt. Setzt du eigentlich auch ProgressBar.Maximum bei onWorkBegin auf aWorkCountMax? (das müsste dann natürlich auch durch 1024 geteilt werden)