Dateidownload mit IdHTTP - Anwendung freezed :|

[Lenny-k]

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;

[Die Muhkuh]

Hi,

mach noch ne idAntiFreeze Komponente auf die Form

[phXql]

Zitat von Spider:

Hi,

mach noch ne idAntiFreeze Komponente auf die Form

hat er doch schon

[Die Muhkuh]

Argh,

hab ich übersehen

Vielleicht hat er bei Active noch false stehen.

[SirThornberry]

wenn du den status mit dem gauge darstellst könntet du an der stelle noch ein Application.ProcessMessages machen. Oder du lagerst das ganze gleich in einen Thread aus.

[Lenny-k]

juhuuuuu!! Danke *g* daran hab ich echt ewig rumgedacht und mit Application.ProcessMessages; gings!!!

[tester008]

was ist den eine Application.ProcessMessages

[Luckie]

Die Methode Processmessages sorgt dafür, dass die Nachrichtenschleife des Fensters aufgerufen wird und alle anstehenden Nachrichten abgearbeitet werden. Damit reagiert das Fenster zum Beispiel wieder auf Eingaben bei längeren Schleifen. Es ist allerdings mit Vorsicht zu genießen, da es eventuell zu ungewollten Nebeneffekten kommen kann, wenn eine Schaltfläche noch mal gedrückt wird oder ähnliches.