delphi - 检测Delphi中的互联网访问

我的网络共享应用程序有时无法访问互联网。在这些情况下，Windows不会询问应用程序是否具有使用互联网的权限。我的应用程序不会产生任何错误，但是当然不会出现问题。

如何测试我的Delphi应用程序是否具有足够的网络来进行网络共享？

最佳答案

以下代码应在所有平台上均适用：

uses IdTCPClient;

function CheckInternet : Boolean;

var TCPClient : TIdTCPClient;

begin
  TCPClient := TIdTCPClient.Create (NIL);

  try
    try
      TCPClient.ReadTimeout := 2000;
      TCPClient.ConnectTimeout := 2000;
      TCPClient.Port := 80;
      TCPClient.Host := 'google.com';
      TCPClient.Connect;
      TCPClient.Disconnect;
      Result := true;

      except
        Result := false;
      end; { try / except }

    finally
      TCPClient.Free;
    end; { try / finally }
end;

资料来源：www.fmxexpress.com

可以在www.delphiworlds.com上找到用于检查移动设备上的Internet连接的库。