Обнаружить доступ в интернет в Delphi

Question

Мое привязываемое приложение иногда не получает доступ к Интернету.В этих случаях Windows не будет спрашивать, имеет ли приложение разрешение на использование Интернета.Мое приложение не генерирует ошибок, но, конечно, не будет привязано.

Как я могу проверить, имеет ли мое приложение 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