В целом, тема, заявленная в посте далеко не нова - ответ на вопрос "Как в Delphi узнать, что компьютер подключен к Интернет?" на страничках из прошлого XX века. Но время оно не стоит на месте и программисты различного уровня подготовки предлагают самые различные способы проверки подключения компьютера к Интернет - от небольших листингов в 5-6 строчек кода, до умопомрачительных алгоритмов проверки.
И эти способы, вроде бы работают до сих пор и в Win 7 и в более старых версиях Windows. Расписывать все эти способы. думаю, смысла никого нет. Те кому они нужны - Google в помощь, или сразу вот такая ссылка с результатами запроса к Google.
Я же сегодня покажу ещё один из способов проверки подключения к Интернет, доступный пользователям Win Vista - 7.
Способ этот использует возможности Get Connected Wizard API - API настройки подключения. С помощью него можно, например, вызвать мастера настроек VPN, локальной сетки или, как в нашем случае - проверить подключение к Интернет.
Прежде, чем начнем знакомиться с API, ещё раз подчеркну - работа с API доступна под Windows Vista и выше . В более ранних версиях ОС работа невозможна.
Все экспортируемые функции содержаться в connect.dll .
Начнем с самой простенькой функции - IsInternetConnected
IsInternetConnected
Функция не содержит никаких параметров и, в случае успешного выполнения возвращает S_OK, если пользователь подключен к Интернет и S_FALSE в обратном случае.
Следует отметить, что эта функция только "угадывает" подключение к Интернет для пользователя, используя в работе NCSI и NLM. Хоть результат и носит некоторые вероятностный характер, проверка работы функции на моем компьютере показала удовлетворительный результат - функция не ошиблась ни разу при проверке соединений.
Примечание: очень похожая функция есть и в URL.dll, которая называется IsInetOffline - проводит проверку на "отключенность" от Интернет, но IsInetOffline возвращает false не только, когда комп подключен к Интернету, но и когда ещё не было попыток соединения, что делает использование этой функции очень ненадежным для проверки подключения.
Пример использования функции IsInternetConnected в Delphi:
const
connect = 'connect.dll';
function IsInternetConnected: HRESULT; external connect name 'IsInternetConnected';stdcall;
....
begin
if IsInternetConnected=S_OK then
ShowMessage('Подключен к Интернет')
end; |
Следующие функции используются для вызова мастеров создания различных подключений и т.к. все они имеют одни и те же параметры, то я ограничусь описанием параметров только у первой функции. Итак
CreateVPNConnection
Функция вызывает мастера для создания нового VPN-подключения.
Описание функции в Delphi:
function CreateVPNConnection(hwndParent, dwWizardType, dwContextFlags, dwUserFlags, hUserContext: cardinal; pszCommandLine: PWideChar): HRESULT; stdcall; external connect name 'CreateVPNConnection'; |
Параметры функции:
hwndParent - дескриптор родительского окна;
dwWizardType - определяет стиль мастера подключения. Этот параметр необязательный и может принимать по умолчанию значение 0. Это же значение является и единственным, судя по документации в MSDN.
dwContextFlags - контекстные флаги, определяющие поведение мастера. Значение по умолчанию - 0. Может принимать одно из следующих значений:
0 - мастер возвращает результаты синхронно
1 - мастер возвращает результаты асинхронно, используя для этого события Windows.
dwUserFlags - пользовательские флаги, определенные в приложении. Можно устанавливать значение по умолчанию - 0;
hUserContext - дескриптор потока вызывающего приложения. Можно выставить значение по умолчанию - 0.
pszCommandLine - пользовательские параметры командной строки. Параметр может принимать значение nil или одно из следующих:
-HideFinishPage - скрывает страницу завершения работы мастера;
-SkipInternetDetection - скрыть страницу мастера, показывающую определено ли у пользователя подобное соединение или нет.
-SkipExistingConnections - скрыть страницу мастера, показывающую список, существующих соединения. Этот параметр обычно используется при создании дополнительных подключений.
Пример вызова функции:
if CreateVPNConnected(0,0,0,0,0,nil)=S_Ok then
ShowMessage('Мастер вызван успешно'); |
Результат вызова функции:
GetInternetConnected
Функция запускает мастер подключения к Интернет. Список параметров тот же. что и у предыдущей функции. Результат вызова:
GetNetworkConnected
функция вызывает мастер подключения к локальной сети. Параметры те же. что и у CreateVPNConnection. Результат вызова:
GetVPNConnected
Вызывает мастер создания VPN-подключения. Результат вызова:
Вот пять функций, которые можно использовать для проверки и настройки с Интернет-соединения, создания VPN-подключения и подключения к локальной сети.