Tipp für Prozessanzeige bei IdHTTP Komponente

[defede]

Delphi-Quellcode:

procedure TForm_Main.IdHTTP_DownloadWork(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  if(self.ProgressBar1.Max <> self.IdHTTP_Download.Response.ContentStream.Size)then begin
    self.ProgressBar1.Max    := self.IdHTTP_Download.Response.ContentStream.Size;
  end;
  if(self.ProgressBar1.Position <> self.IdHTTP_Download.Response.ContentStream.Position)then begin
    self.ProgressBar1.Position := self.IdHTTP_Download.Response.ContentStream.Position;
  end;
  self.ProgressBar1.Refresh;
end;

Für alle die nach etwas einfachem Gesucht haben

[SirThornberry]

Der sinn bleibt mir noch etwas verborgen. Wenn ich wissen will wie lange es noch dauert ist es doch egal ob es instesamt 10 Schritte sind wo jeweils um 1 gesprungen wird oder ob es 100 Schritte sind wo jeweils um 10 gesprungen wird. Die Bewegung des Balkens ist ein beiden Fällen gleich. Das Hauptproblem für einige ist die geringe Aktuallisierungsrate.