Ahh da kam mir jetzt die Idee, ich versuche es mal folgendermaßen:
Delphi-Quellcode:
procedure TForm6.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
Progress.Position := AWorkCount;
application.ProcessMessages;
end;
procedure TForm6.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
Progress.Max:=IdHTTP1.Response.ContentStream.Size;
end;
Da hätte ich auch direkt drauf kommn können.