手机端判断是否连接internet网络

最新推荐文章于 2021-07-11 21:47:27 发布

winfredzhang

最新推荐文章于 2021-07-11 21:47:27 发布

阅读量406

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi rio 文章标签： ios Android

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/104166312

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

本文介绍了一种使用Delphi编写的网络连接检测方法，通过创建TCP客户端尝试连接到百度服务器，以此判断当前设备是否能正常访问互联网。代码中详细展示了如何设置超时时间、指定端口和主机，并在捕获异常情况下返回网络连接失败的状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses
 IdTCPClient;


function TForm1.checkinternet: Boolean;
var
  tmpidclient: TIdTCPClient;
begin
  Result := False;

  try
    try
      tmpidclient := TIdTCPClient.Create(nil);
      tmpidclient.ReadTimeout := 2000;
      tmpidclient.ConnectTimeout := 2000;
      tmpidclient.Port := 80;
      tmpidclient.Host := 'www.baidu.com';
      tmpidclient.Connect;
      tmpidclient.Disconnect;
      Result := true;
    except
      on e: Exception do
      begin
        Result := False;
      end;

    end;
  finally
    tmpidclient.DisposeOf;
    tmpidclient := nil;
  end;
end;