idHttp get -> Programm freezed

[TheKleini666]

Hey,
Ich hab mal wieder eine Frage an euch.

Ich habe gestern ein kleines simples Programm gemacht. Einen Downloader.

Delphi-Quellcode:

var Download: TfileStream;
begin
if combobox1.ItemIndex = 0 then
Download:= TfileStream.Create(Edit1.Text, fmCreate);
idhttp1.Get('http://appldnld.apple.com/iPhone4/041-0662.20110414.byQ84/iPhone3,1_4.3.2_8H7_Restore.ipsw', Download);
Download.free;

Hier freezed es jedes mal, andere files gehen perfekt zum downloaden.
Ich habe es auch schon mit:
idhttp.HandleRedirects
und
Idhttp.RedirectMaximum := 100

probiert, doch gleicher Fehler.
Auch MSXML2 freezed mit diesem Link.
Warum?
Wass kan ich anders machen?

Mfg,
TheKleini666

[Thom]

Diese Datei ist laut meinem Downloadmanager 666 MB groß. Das könnte eine Weile dauern...

[Bummi]

In einen Thread auslagern ?

[WladiD]

Wenn man es sich ganz leicht machen möchte, so klatscht man einfach die TIdAntiFreeze auf die Form und es wird nicht mehr "freezen". Intern wird dort jedoch Application.ProcessMessages verwendet, daher würde ich davon abraten!

Die saubere Lösung wäre: In einen Thread auslagern.

[TheKleini666]

Danke
Mit TidAntiFreeze funktioniert es, aber ich werde es trotzdem mit einem Thread ausprobieren

/edit: gibt es auch eine möglichkeit den Stats des Downloads anzuziegen? also Wie viel MB schon geladen wurden, oder wie lange es noch dauert, und u.U. die Downloadgeschwindigkeit?

/edit2: hab schon gefunden http://www.delphipraxis.net/48000-da...ownloaden.html

[Thom]

Eventuell über Download.Size. Geschwindigkeit ausrechnen über die seit Downloadbeginn verstrichene Zeit.

[Luckie]

Guck dir doch mal die Ereignisse von TIdHTTP an.

[blauweiss]

Zitat von TheKleini666:

Delphi-Quellcode:

var Download: TfileStream;
begin
if combobox1.ItemIndex = 0 then
Download:= TfileStream.Create(Edit1.Text, fmCreate);
idhttp1.Get('http://appldnld.apple.com/iPhone4/041-0662.20110414.byQ84/iPhone3,1_4.3.2_8H7_Restore.ipsw', Download);
Download.free;

und was passiert, falls combobox1.ItemIndex ungleich 0 ......?

Gruß,
blauweiss

[DeddyH]

Aber begin try finally end end macht doch den Code so unübersichtlich

[TheKleini666]

Zitat von blauweiss:

Zitat von TheKleini666:

Delphi-Quellcode:

var Download: TfileStream;
begin
if combobox1.ItemIndex = 0 then
Download:= TfileStream.Create(Edit1.Text, fmCreate);
idhttp1.Get('http://appldnld.apple.com/iPhone4/041-0662.20110414.byQ84/iPhone3,1_4.3.2_8H7_Restore.ipsw', Download);
Download.free;

und was passiert, falls combobox1.ItemIndex ungleich 0 ......?

Gruß,
blauweiss

ich habe mehrere items, ich hab jetzt nur mal einess gezeigt