[Gelöst] Freeze verhindern?

[All.4.ONE]

Hallo zusammen,

Ich hab vorhin ein kleines Tool geschrieben womit man Myvideo-Videos runterladen kann, aber das Programm Freezt beim download und nur noch der Statusbalken ist aktiv. Man kann das Fenster nicht verschieben etc. Der Download wird durch einen Buttonklick ausgelöst. Die Exe ist im anhang^^
Hoffe ihr könnt mir helfen.

[Namenloser]

Welche Methode benutzt du denn zum herunterladen? Bei den Indys gibt es eine TIdAntiFreeze-Komponente.

[All.4.ONE]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var FileStream:Tfilestream;
    URL:String;

begin
  if savedialog1.Execute then
  begin
    startdl := false;
    URL:= GetUrl;
    startdl := true;
    FileStream:=Tfilestream.Create(savedialog1.InitialDir+savedialog1.FileName+'.flv',fmCreate);
    IdHTTP1.Get(URL,FileStream);
    FileStream.Free;
    startdl := false;
  end;
end;

Hier der downloadcode

[Namenloser]

Dann reicht es, TIdAntiFreezee im Designer auf dein Formular zu ziehen. Eine andere Möglichkeit wäre, die Downloadprozedur in einen speparaten Thread auszulagern, aber das wird spätestens dann kompliziert, wenn man innerhalb der Downloadprozedur GUI-Controls verändern will (z.B. Fortschrittsbalken).

Und ein Herzliches Willkommen in der DP

[All.4.ONE]

So danke für die schnellen Antworten und die nette Begrüßung .

Habs mit Antifreeze probiert und es geht. Danke nochmal^^

[Cyf]

Zitat von NamenLozer:

Dann reicht es, TIdAntiFreezee im Designer auf dein Formular zu ziehen. Eine andere Möglichkeit wäre, die Downloadprozedur in einen speparaten Thread auszulagern, aber das wird spätestens dann kompliziert, wenn man innerhalb der Downloadprozedur GUI-Controls verändern will (z.B. Fortschrittsbalken).

Und ein Herzliches Willkommen in der DP

Naja, dafür kann man auch einfach eine Property veröffentlichen und im Hauptthread den Fortschritt überprüfen.

[All.4.ONE]

So hier für alle das fertige Programm^^