利用Delphi里面的IdIcmpClient控制来检测网络是否正常连通

最新推荐文章于 2020-11-21 10:14:21 发布

pepsihn

最新推荐文章于 2020-11-21 10:14:21 发布

阅读量5k

点赞数

分类专栏： Delphi 文章标签： delphi IdIcmpClient 检测网络连通数据函数

本文链接：https://blog.csdn.net/pepsihn/article/details/21792901

版权

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

1、引用以下几个单元

IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient;

2、函数模块

-------------------------------------------------------------------------------------

功能：检查网络是否正常连通

参数：无

返回值：成功： True 失败： False

2014年3月22日编写

-------------------------------------------------------------------------------------

function CheckOnLine: Boolean;
const
  Url = 'www.sina.com'; //广东电信测速 0.08s
var
  aIdICMPClient: TIdICMPClient;
begin
  Result := False;
  aIdICMPClient := TIdIcmpClient.Create(nil);
  try 
    aIdICMPClient.ReceiveTimeout := 1000; //1500ms is timeout
    aIdICMPClient.Host := Url;
    try
      aIdICMPClient.Ping();
      if (aIdICMPClient.ReplyStatus.FromIpAddress <> '0.0.0.0') and
         (aIdICMPClient.ReplyStatus.FromIpAddress <> '') and
         (aIdICMPClient.ReplyStatus.BytesReceived > 0) then  //有收到数据
        Result := True;
    except
      Result := False;
    end;
  finally
    aIdICMPClient.Free;
  end;
end;