在 Delphi 中检测互联网访问

Detect internet access in 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

找到用于检查移动设备上互联网连接的库