Delphi Android 检查互联网连接

Delphi Android 检查互联网连接

很少有 Android 应用程序不需要连接到网络。

我所看到的，有不少程序员忘记执行超出必要权限的互联网检查。

在 Delphi 中没有执行此检查的命令、过程或函数，因此我们必须弄清楚如何进行。

网络中有数千种算法来检查互联网连接，但我使用一种一直对我有用的算法。

如何从 Delphi 检查 Android 上的互联网连接

要执行此检查，我们不能简单地查看是否有连接，我们必须尝试通过网络出去验证它，为此，没有什么比我们知道始终但始终处于活动状态的网站更好的了，我们正在谈论谷歌。

所以我们要用这个函数做的是检查我们是否可以通过TIdTCPClient组件访问google.com。

我们必须附加到我们的Uses 的单位是IdBaseComponent、IdComponent、IdTCPConnection、IdTCPClient。

Uses

  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

function TForm1.CheckInternetConnection(): boolean;

var

  vIdTCPClient: TIdTCPClient;

begin

  result := False;

  vIdTCPClient := TIdTCPClient.Create(nil);

  try

    try

      With vIdTCPClient do

      begin

        ReadTimeout := 1000;

        ConnectTimeout := 1000;

        Port := 80;

        Host := 'www.delphiw.com';

        Connect;

        Disconnect;

      end;

      result := True;

    except

      result := False;

    end;

  finally

    FreeAndNil(vIdTCPClient);

  end;

end;

在CheckInternetConnection()函数中，我们做的是创建TIdTCPClient组件，我们给它一个ReadTimeout时间：=1000（1秒），我们分配80端口（它会解释为什么这个端口），我们尝试连接到google .COM。

如果组件连接，它将返回True，如果它产生错误，它将被捕获并返回False。