Thread blockiert Hauptprogramm

[Antigo]

Hi,
folgende Situation:
Ich hab einen Timer der einmal pro Sekunde einen Thread startet, der wiederrum mithilfe der Konsole Funktion aus folgendem Thread: http://www.delphipraxis.net/internal...t.php?t=140910
Das ping Programm von Windows aufruft.

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  str:=Konsole(Fcmd);
  if not terminated then Synchronize(Update)
end;

procedure TMyThread.Update;
begin
  Form1.SetPing(parseping(str));
end;

procedure TForm1.SetPing(Aping:TPing);
begin
  ping.time:=APing.time;
  ping.timeout:=APing.timeout;
  done:=true;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var text:string;
begin
    
   //...

    //Falls keine Antwort auf Ping
    if not done then
    begin
      TerminateThread(mythread.Handle,0);
      ping.timeout:=true;
    end;

    //Thread freigeben
    mythread.free;

    //...
    //Neuen Ping starten
    ping.datetime:=Now;  //Ping Startzeit
    mythread:=TMyThread.Create(false,command);

Das ganze funktioniert auch grundsätzlich, nur wenn der an ping übergebene Hostname nicht aufgelöst werden kann, hängt sich mein Hauptprogramm für ca. 2 Sekunden lang auf. Das versteh ich nicht, da die Konsolenanwendung ja im Thread und nicht im Hauptprogramm aufgerufen wird.
Ich muss aber auch sagen das ich den Code vom obigem Link nicht wirklich verstehe. Vielleicht liege es an der Art wie die Konsole afgerufen wird, aber normalerweise dürfte dann doch trotzdem nur der Thread hängen, was mir egal wär.


Hat jemand eine Idee was ich tun könnte?
Danke schonmal im Vorraus

[Luckie]

Is t ja auch kein Wunder:

Delphi-Quellcode:

procedure TMyThread.Execute; 
begin 
  str:=Konsole(Fcmd); 
  if not terminated then Synchronize(Update) 
end;

Dein Thread läuft ja auch im Kontext des Hauptthreads. Lies mal in der Hilfe nach, was Synchronize macht.

[Bernhard Geyer]

Wenn du per Synchronize alles in den hauptthread verlagerst wird zwangsweise dieser Blockiert (Synchronize(Update)).

Erzeuge deine nötigen Komponenten (Ping-Kompo) in der Thread-Klasse und greife nur auf diese zu.

[Antigo]

danke euch. sowas passiert, wenn man etwas benutzt ohne es wirklich zu verstehen.:D