Server anpingen

[supermuckl]

ICMP komponente von indy clients
hilfe von indy ambesten zu rate ziehen

mein icmp kompo dings auf dem form hab ich "ping" benannt.
port: 0 und protocol: 1
timeout: 6000

beispielcode:

Delphi-Quellcode:

procedure TForm1.pingReply(ASender: TComponent; // wird ausgelöst wenn reply kommt
  const AReplyStatus: TReplyStatus);
begin
Label1.Caption := 'online';
end;

procedure TForm1.Timer1Timer(Sender: TObject); // ping!
begin
 try
ping.Ping
 except
 on Exception do Exit;
end;
end;