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)