icmpRésolu

Question

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&#233;seau, pas de probl&#232;me.
j'essai avec un host qui n'est pas sur le r&#233;seau et pas r&#233;f&#233;renc&#233; dans le serveur dhcp du r&#233;seau, pas de probl&#232;me.
mais si j'essai un host qui n'est actuellement pas connect&#233; au r&#233;seau, mais qui est toujours r&#233;f&#233;renc&#233; dans le dhcp, j'ai une r&#233;ponse de IdIcmpReply...

c'est le bordel ou j'ai oubli&#233; de pr&#233;ciser certaines choses???
merci pour vos r&#233;ponses

mathieu57100 · Accepted Answer

c'est bon j'ai trouv&#233; une source similaire qui m'a aider &#224; r&#233;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;

Icmp

1 réponse

Votre réponse

Discussions similaires