Upload einer Datei über POST mit Forschrittsanzeige?

[Z4ppy]

Das Uploaden einer Datei über POST (wie bei einer <form> mit <input type="file">-Tag) geht ja über einen TIdMultipartFormDataStream.
Nun möchte ich meinem User aber gerne anzeigen, wie viel der Datei schon hochgeladen wurde (mit ner gewöhnlichen ProgressBar).
Wie kann ich das machen?

MfG Z4ppy

[Z4ppy]

Mit diesem Code (natürlich entsprechend für meine Umstände angepasst bzgl. Namen der Kompos usw.) hab ich das nun mal probiert:

Delphi-Quellcode:

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  Application.ProcessMessages;
end;

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

Allerdings ist da die ProgressBar bereits nach ca. einer Sekunde ganz rechts - bei meinen 60 kB/s Upload und einer 1,5 MB-Datei eher unrealistisch ^^
Wie ich am Rest meines Programmes erkennen kann, geht der Upload auch weiter...

Wieso stimmt das nicht und wie kann ich es so hinkriegen, dass es stimmt?

MfG Z4ppy

[Z4ppy]

geskill hat mir den Tipp gegeben, dass das mit der Firewall zusammenhängt und ich konnte das nun überprüfen und bestätigen:
Auf meinem PC (mit Kaspersky IS) wird der Fortschritt falsch angezeigt.
Auf der VM (XP ohne Schutz) wird der Fortschritt korrekt angezeigt.

Bleibt nur noch die Frage, wie man das dann löst, dass auch bei Firewall der Fortschritt richtig angezeigt wird. Kann ja nich sein, dass das nur ohne Firewall geht -.-

MfG Z4ppy