Как обойти ошибки функции `InternetGetConnectedState` в WinInet: обеспечение корректной проверки подключения к интернету

Delphi , Интернет и Сети , Компоненты и Интернет

Введение

Перед написанием статьи важно отметить, что тема статьи связана с программированием на языке Object Pascal в среде Delphi, и затрагивает вопросы использования функций WinInet для проверки подключения к интернету. В контексте предоставленной информации, пользователь столкнулся с проблемой, когда функция InternetGetConnectedState всегда возвращала True, даже при отсутствии интернет-соединения. В ходе обсуждения было выявлено, что функция InternetGetConnectedState не подходит для проверки подключения к интернету, так как она не гарантирует возможность подключения к конкретному хосту, а только указывает на наличие локальной сети или установленного dial-up подключения. В качестве альтернативного решения было предложено использовать компонент TIdHTTP из библиотеки Indy для попытки доступа к интернет-ресурсу.

Статья

Проблема с функцией InternetGetConnectedState

При использовании функции InternetGetConnectedState из библиотеки WinInet для проверки подключения к интернету, разработчики могут столкнуться с неожиданным поведением. Даже при отсутствии интернет-соединения, функция может возвращать True, что делает её непригодной для использования в качестве надёжного индикатора подключения. Это связано с тем, что функция проверяет наличие локальной сети или установленного dial-up подключения, но не гарантирует доступность интернета.

uses
    WinInet;

function CheckInternetConnection() : Boolean;
var
    dwConnectionTypes: Integer;
begin
    dwConnectionTypes := INTERNET_CONNECTION_MODEM +
                          INTERNET_CONNECTION_LAN +
                          INTERNET_CONNECTION_PROXY;
    if (InternetGetConnectedState(@dwConnectionTypes, 0)) then
        Result := True
    else
        Result := False;
end;

Альтернативный метод проверки

В качестве решения проблемы можно использовать компонент TIdHTTP из библиотеки Indy для выполнения HTTP-запроса к известному интернет-ресурсу. Если запрос выполнен успешно, это будет свидетельствовать о наличии интернет-соединения.

uses
    IdHTTP;

function HasInternet: Boolean;
begin
    Result := False;
    with TIdHTTP.Create(nil) do
    try
        try
            HandleRedirects := True;
            Result := (Get('http://www.Google.com/') <> '');
        except
            // Обработка исключений, например, связанных с ошибками соединения
        end;
    finally
        Free;
    end;
end;

Обработка ошибок и исключений

При использовании TIdHTTP важно обрабатывать возможные исключения, такие как EIdHTTPProtocolException, которые могут возникать при попытке доступа к заблокированным ресурсам.

try
    // Попытка доступа к интернет-ресурсу
except
    on E: EIdHTTPProtocolException do
        // Обработка ошибки HTTP, например, кода 403 (Forbidden)
        // Это не всегда означает отсутствие интернет-соединения
end;

Заключение

Для корректной проверки подключения к интернету следует использовать более надёжные методы, такие как HTTP-запрос к известному интернет-ресурсу с помощью компонентов Indy. Функция InternetGetConnectedState не подходит для этой цели из-за своей неопределённости и возможных ложных срабатываний.

Статья предназначена для разработчиков, работающих с Object Pascal и Delphi, и предоставляет информацию о проблемах, связанных с использованием функции InternetGetConnectedState, а также предлагает альтернативные способы проверки подключения к интернету.

Создано по материалам из источника по ссылке.

Объясняется проблема использования функции `InternetGetConnectedState` для проверки интернет-соединения в Delphi и предлагается альтернативный метод с использованием компонента `TIdHTTP` из библиотеки Indy.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты и Интернет ::