Icmp [Résolu]

Signaler
Messages postés
103
Date d'inscription
jeudi 24 juin 2004
Statut
Membre
Dernière intervention
9 février 2006
-
Messages postés
103
Date d'inscription
jeudi 24 juin 2004
Statut
Membre
Dernière intervention
9 février 2006
-
bonjour,
j'ai une question concernant le composant IdIcmpClient...
j'ai le code suivant;

procedure TfrmPrinc.SpeedButton2Click(Sender: TObject);
begin
IdIcmp.Host := 'xxx.xxx.xxx.xxx';
IdIcmp.Ping;
end;

procedure TfrmPrinc.IdIcmpReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
var
ResultIcmpReply : boolean;
begin
ResultIcmpReply := true;
ShowMessage('ResultIcmpReply := true');
end;

j'essai avec un host qui se trouve sur le réseau, pas de problème.
j'essai avec un host qui n'est pas sur le réseau et pas référencé dans le serveur dhcp du réseau, pas de problème.
mais si j'essai un host qui n'est actuellement pas connecté au réseau, mais qui est toujours référencé dans le dhcp, j'ai une réponse de IdIcmpReply...

c'est le bordel ou j'ai oublié de préciser certaines choses???
merci pour vos réponses

1 réponse

Messages postés
103
Date d'inscription
jeudi 24 juin 2004
Statut
Membre
Dernière intervention
9 février 2006

c'est bon j'ai trouvé une source similaire qui m'a aider à résoudre mon prob...
il faut tester ce que te retourne l'idcmp;

procedure TfrmPrinc.IdIcmpReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.FromIpAddress <> '0.0.0.0' then
ResultIcmpReply := true;
ShowMessage('ResultIcmpReply := true');
end;