Обнаружение активации интернет-соединения в Delphi: использование API Win32

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

Когда пользователь использует устройство с 3G-картой, активация интернет-соединения может запускать обновление антивирусной программы. Это происходит из-за того, что антивирус проверяет наличие подключения к сети. Вопрос состоит в том, какие функции Win32 API можно использовать для получения уведомления или проверки события активации интернет-соединения, и доступен ли набор заголовков, портированных для использования в Delphi.

Использование InternetGetConnectedState в WinINet

Для проверки подключения к интернету можно использовать функцию InternetGetConnectedState, которая является частью библиотеки WinINet. Эта функция возвращает информацию о том, доступно ли интернет-соединение в данный момент. Пример использования функции в Delphi представлен ниже:

uses WinInet;

function IsConnected: boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM +
                        INTERNET_CONNECTION_LAN +
                        INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Использование уведомлений реестра для отслеживания изменений в сетевых адаптерах

Другой способ отслеживания активации интернет-соединения заключается в использовании уведомлений реестра. Можно установить уведомление на изменение ключа HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces, которое обновляется каждый раз, когда Windows получает новый IP-адрес или изменяет информацию о соединении адаптера.

Для этого можно использовать следующий код:

function GetIfTable(...): Longint; external 'IPHLPAPI.DLL';
...
// Прочие определения и реализация функции GetIfTable, аналогично приведенному выше в 'Подтвержденный ответ'
...

Проект для запуска скрипта пользователя при подключении к VPN

В рамках одного проекта была разработана помощь для запуска скрипта пользователя при подключении к VPN. Для этого была написана вспомогательная единица uAdapterInfo, которая извлекает информацию об адаптерах и сравнивает её с ранее сохраненными данными для определения изменений.

// Описание структур и функций, используемых для взаимодействия с данными о сетевых адаптерах
...
// Прочие реализации функций, аналогично приведенному выше в 'Подтвержденный ответ'
...

Таким образом, разработчик использовал уведомления реестра для отслеживания изменений в сетевых адаптерах и запускал определенные действия при обнаружении новых изменений в статусе адаптера.

Заключение

Для обнаружения активации интернет-соединения в Delphi можно использовать функции API Win32, такие как InternetGetConnectedState или установить уведомления на изменение ключей реестра, связанных с сетевыми адаптерами. Примеры кода, представленные в данной статье, демонстрируют, как можно реализовать эти подходы в среде разработки Delphi.

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

Использование API Win32 для обнаружения активации интернет-соединения в приложениях на Delphi, включая функции для проверки соединения и отслеживания изменений в сетевых адаптерах.

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

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

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