TThread.WaitFor verursacht einfrieren des Programmes

[MrKnogge]

Moin,

ich nutze die Unit UDownThread aus diesem Beitrag um eine Datei herunter zu laden, dies klappt auch super.

Ich möchte dies in einem thread tun, da mir das Programm ansonsten hin und wieder trotz Application.ProzessMessages und TidAntiFreeze für kurze Zeit einfriert, bzw. die Oberfläche nicht neu gezeichnet wird, nachdem sie durch andere Fenster (bsp. Explorer) verdeckt wurde.

Nun möchte ich mehrere Dateien nacheinander nicht parallel! herunterladen, und dachte mir, ich könnte mit WaitFor einfach warten, bis der vorherige Download abgeschlossen ist, aber nun friert mir das Programm bei WaitFor immer komplett ein. Die Datei (welche nur ein paar Kilobyte groß ist) wird nicht heruntergeladen und das Programm erwacht auch nicht mehr.

Delphi-Quellcode:

procedure TForm1.MyDownloadTest(DownFiles, FileNames: TStrings);
var
  i: integer;
  Down: TDownThread;
begin
  for i := 0 to DownFiles.Count-1 do
  begin
    Down := TDownThread.Create(true);
    with Down do
    begin
      FreeOnTerminate := true;
      OnWork := OnThreadWork;
      OnWorkBegin := OnThreadWorkBegin;
      URL := DownFiles[i];
      FileName := FileNames[i];
      WaitFor;
    end;
  end;
end;

Hab ich einen Denkfehler in meinem Code, oder muss ich um WaitFor benutzen zu können, etwas an der DownThread-Klasse ändern ?

Grüße
Christian

[sirius]

Warum machst du überhaupt waitfor? Dann kanst du doch den Thread auch gleich im Mainthread lassen. :gruebel:

[MrKnogge]

Habe ich doch geschrieben, wenn ich es im Mainthread laufen lasse, friert mir kurzzeitig immer wieder das Programm ein und die Oberfläche wird nicht neugezeichnet, nach dem sie überdeckt wurde.

[SirThornberry]

Naja, mit WaitFor wird ja gewartet bis der Thread fertig ist und somit werden keine Messages verarbeitet. Und warum nichts runterlädt sieht man wohl erst wenn man deinen Thread-Quelltext sieht.

[MrKnogge]

Der Thread Quelltext ist oben verlinkt, ohne Schleife und Waitfor funktioniert es wunderbar.

@SirThornberry
Heist das, ich müsste die Schleife in den Thread verlagern ?

[sirius]

Mach mal aus waifor --> resume!

[MrKnogge]

:wall: Ich hab resume vergessen, habs nun folgender Maßen geändert:

Delphi-Quellcode:

procedure TForm1.MyDownloadTest(DownFiles, FileNames: TStrings); 
var 
  i: integer; 
  Down: TDownThread; 
begin 
  for i := 0 to DownFiles.Count-1 do 
  begin 
    Down := TDownThread.Create(true); 
    with Down do 
    begin 
      FreeOnTerminate := true; 
      OnWork := OnThreadWork; 
      OnWorkBegin := OnThreadWorkBegin; 
      URL := DownFiles[i]; 
      FileName := FileNames[i];
      resume;
      WaitFor; 
    end; 
  end; 
end;

Nun läd er die erste Datei herunter, doch danach bricht das Programm mit der Fehlermeldung "Das Handle ist ungültig (6)." ab.

[Klaus01]

Könnte das eventuell daran liegen?

Delphi-Quellcode:

FreeOnTerminate := true;

Zitat:

Zitat von DelphiHilfe

Description

Set FreeOnTerminate to True if you don’t want to explicitly destroy threads after they finish executing. When FreeOnTerminate is False, the thread object must be explicitly destroyed in application code.

Warning: When FreeOnTerminate is True, the Execute method may run and then free the thread before your application can execute the next line of code. Thus, you should not call any methods of the thread object when FreeOnTerminate is True unless you create the thread in a suspended state.

Grüße
Klaus

[MrKnogge]

Tatsache,

Delphi-Quellcode:

procedure TForm1.MyDownloadTest(DownFiles, FileNames: TStrings); 
var 
  i: integer; 
  Down: TDownThread; 
begin 
  for i := 0 to DownFiles.Count-1 do 
  begin 
    Down := TDownThread.Create(true); 
    with Down do 
    begin 
      FreeOnTerminate := false; 
      OnWork := OnThreadWork; 
      OnWorkBegin := OnThreadWorkBegin; 
      URL := DownFiles[i]; 
      FileName := FileNames[i]; 
      resume; 
      WaitFor;
      Free;
    end; 
  end; 
end;

Funktioniert. Vielen Dank euch allen :thumb: