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