Da
Indy benutzt wird, ist auch der TIdIcmpClient vorhanden. Damit kann man ein Ping absetzen. Beim Programmstart oder an geeigneter Stelle:
Delphi-Quellcode:
IdIcmpClient.Host := '
www.delphipraxis.net';
// Oder der Host, bei dem per Get Daten geholt werden sollen.
Try
IdIcmpClient.Ping;
Except
on e :
Exception do begin
MessageDlg(e.
Message,mtError,mbOk,0);
// Oder dafür sorgen, dass der Thread irgendwie erfährt:
// Die Internetverbindung funktioniert nicht so recht.
end;
end;
// und die Ereignisroutine zum IdIcmpClient:
procedure TForm1.IdIcmpClientReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
// Hier den Thread starten ...
end;