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