Hallo,
ich lade per Tidhttp Komponente Dateien aus dem Internet,
den Fortschritt lass ich mir mit einer Progressbar anzeigen.
Bei ca. 20 MB springt die Prgressbar einfach auf 0 und fängt erst bei den letzten MB von vorne an.
Ich nutze die TAdvProgressBar und folgenden code:
Delphi-Quellcode:
procedure TForm6.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
Progress.Position := AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;
Vielleicht ist dieser fehler ja schon bekannt und mir kann einer weiterhelfen.