Delphi Android检查互联网连接-木庄网络博客

本文整理自网络，侵删。
 Delphi Android检查互联网连接
很少有Android应用程序不需要连接到网络。

而且我已经看到，很少有程序员会忘记进行超出必要权限的Internet检查。

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

在网络中，有数千种算法可以检查Internet连接，但是我使用的算法一直对我有用。

如何从Delphi检查Android上的互联网连接
要执行此检查，我们不能简单地查看是否存在连接，我们必须尝试通过网络出去进行验证，为此，没有什么比我们一直知道但始终活跃的网站更好。

因此，我们将使用此功能来检查是否可以通过TIdTCPClient组件访问google.com。

我们必须附加到使用中的单位是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 := 'google.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。
Delphi Android检查互联网连接

相关推荐

评论
