频道分类

Delphi Android检查互联网连接

作者:admin 来源: 日期:2020/11/12 9:58:18 人气: 标签:

 
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 Record,两种声明方式下一篇:没有资料