Ich hab einen HTTP download mit IdHTTP gemacht, und will den Status in einer TGauge und einem TPanel anzeigen!
Aber der Status wird nur in der TGauge angezeigt und die Anwendung ist frozen, während des Downloads... Obwohl ich ein Anti-Freeze auf dem Formular habe
Was mache ich falsch?
Delphi-Quellcode:
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
var gesamt,aktuell:integer;
begin
gesamt:=IdHTTP1.Response.ContentStream.Size;
aktuell:=AWorkCount;
if gesamt>0
then begin
Gauge1.Progress:=round(aktuell*100/gesamt);
Panel1.Caption:=IntToStr(aktuell)+'
Bytes von '+IntToStr(gesamt)+'
Bytes downgeloadet!';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.Get('
http://url-zu-download',TFileStream.Create('
z:\test.abc',fmOpenReadWrite));
end;