Moin Stanlay,
eine Möglichkeit des Pings:
Du nimmst einen TidIcmpClient auf's Formular, trägst den Host ein, der angpingt werden soll (Name oder
IP Adresse), und schaust im OnReply Event nach ob der Rechner geantwortet hat:
Delphi-Quellcode:
procedure TfrmMAIN.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.ReplyStatusType = rsEcho
then ShowMessage(AReplyStatus.FromIpAddress+'
hat geantwortet');
end;
procedure TfrmMAIN.Button1Click(Sender: TObject);
begin
idIcmpClient1.Host := '
localhost';
idIcmpClient1.Ping;
end;