Pingen funktioniert nicht

[fr0g]

Hallo User

Ich habe ein Programm in Delphi programmiert womit man Nachrichten hin und her schicken kann (über Netzwerk). Dazu habe ich die Indy10 Komponenten idTcpServer und Client genommen. Mit den Nachrichten hin und her schicken funktioniert einwandfrei.

Die Programm besteht teilweise aus Client und Server!

Jetzt möchte ich, um den Online-Status abzufragen die anderen Programme (IPs) anpingen. Bei mir zu Hause läuft ein Teil des Programms auf der IP 192.168.0.1. Wenn ich jetzt von einer anderen IP diese IP anpinge kommt als Rück meldung immer nur 0.0.0.0 zurück. Zum Pingen wollte ich den IdicmpClient benutzen.

Delphi-Quellcode:

procedure TFicyou.Button1Click(Sender: TObject);
begin
ping.Host:='192.168.0.1';
ping.ping;
showmessage(ping.replystatus.fromipaddress);
end;

Hab glaub ich hab jetzt schon das Gnaze DP Forum durch ^^. Hat jemand eine Idee warum das ganze nicht klappt? bzw. was ich ändern muss?

mfg fr0g