delphi 多网段TIdicmp ping 的错误

最新推荐文章于 2022-02-24 16:32:37 发布

linkyang

最新推荐文章于 2022-02-24 16:32:37 发布

阅读量1.2k

点赞数

文章标签： delphi 路由器测试 function url string

本文链接：https://blog.csdn.net/linkyang/article/details/3914254

版权

下面的代码在一个网段执行ping 函数问题，但在多网段，执行ping的时候，无论是否连通，返回的结果，返回的数据报里包含网管的IP地址，都是通的。：

function   ping( url:   string):boolean;
var
      aIdICMPClient:   TIdICMPClient;
begin
      aIdICMPClient:=   TIdICMPClient.Create(nil);
      aIdIcmpclient.ReceiveTimeout:=500;
      aIdICMPClient.Host:=   url;
      try
          aIdICMPClient.Ping();
      except
          Result:= False;
      end;
      if   (aidicmpclient.ReplyStatus.fromipaddress<>'0.0.0.0')
            and   (aidicmpclient.ReplyStatus.fromipaddress<>'') then
          result:=true
      else
          result:=false;
      aIdICMPClient.Free;
end;