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

最新推荐文章于 2025-09-23 15:57:30 发布

原创最新推荐文章于 2025-09-23 15:57:30 发布 · 416 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ios #Android

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

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

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;