nunja,
TidICMPClient komponente aufs form packen.
und nun zum code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
idicmpclient1.Host := 'www.web.de'; //der server, den du anpingst
idicmpclient1.Ping('PING'); //der ping befehl
end;
und das in das OnReply-ereignis des idICMPClient:
Delphi-Quellcode:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
label1.Caption := inttostr(AReplyStatus.MsRoundTripTime);
end;
Aenogym