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