在 Delphi 中检测互联网访问

Question

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

如何测试我的 Delphi 应用程序是否可以访问互联网以进行网络共享？

Answer 1

以下代码应该适用于所有平台：

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 连接的库