Pingen funktioniert nicht

[Sharky]

Hai fr0g,

ich habe mal schnell diesen Code getippt und kann ohne Probleme "pingen".

Delphi-Quellcode:

procedure TDemo_Form.Button1Click(Sender: TObject);
begin
  ping.Host := '192.168.11.1';
  ping.ping;
end;

procedure TDemo_Form.pingReply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  showmessage(AReplyStatus.fromipaddress);
end;

Ein "0.0.0.0" bekomme ich nur zurück wenn ich keine Antwort erhalte.
Kannst Du die Rechner denn "ganz normal" anpingen? Nicht das dort die XP-Firewall aktiv ist und darum keine Antwort auf deinen Ping kommt.

BTW: Ich würde nicht mit einem Ping getesten. Dies sagt dir ja nur ob der andere Rechner eingeschaltet ist und seine Netzwerkverbindung funktioniert.

Besser wäre es doch wenn dein Programm das ganze auswertet.

BTW: Ich muss doch kein Administrator sein um einen Rechner anpingen zu können.