ping通各网站连接

最新推荐文章于 2019-09-20 15:42:14 发布

nextop88

最新推荐文章于 2019-09-20 15:42:14 发布

阅读量595

点赞数

分类专栏： DELPHI开发

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

{测试IP地址能否PING通}

function ping(url: string): Boolean;

var

  i: Integer;

  rst: Boolean;

  err: String;

  icmpClient: TIdICMPClient;

begin

  i:= 0;

  rst:= False;

  icmpClient:= TIdICMPClient.Create(nil);

  icmpClient.ReceiveTimeout:= 500;

  icmpClient.Host:= url;

  icmpClient.PacketSize:= 1024;

  //ABuffer := url+ StringOfChar(' ', 255);

  while (not rst) and (i<3) do

  begin

    inc(i);

    try

      icmpClient.Ping();

      Application.ProcessMessages;

      if (icmpClient.ReplyStatus.FromIpAddress = url) then

      begin

        rst:= True;

      end

      else

      begin

        rst:= false;

        sleep(10);

      end;

    except

      on e: Exception do

      begin

        err:= e.Message;

        //Socket Error # 10040 Message too long.是ping不通时的正常超时异常

        if pos('10040',err)=0 then

          Logger.Log(url+' Ping异常:'+ err);

        rst:= False;

        sleep(10);

      end;

    end;

  end;

  Result:= rst;

  icmpClient.Free;