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.

zusammenfalten · markieren

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;

zusammenfalten · markieren

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

Thread blockiert Hauptprogramm

Thread blockiert Hauptprogramm

Forumregeln