CodeNet / Языки программирования / Delphi & Kylix / Интернет и сеть
CodeNet / Приложения / Интернет. Сеть
CodeNet / Приложения / Интернет. Сеть
Как проверить соединение с интернетом.
Автор: Vitaly Zayko
Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.
Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
а затем поместить в программу простой вызов функции для проверки статуса соединения:
if InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!') else ShowMessage(You are connected to Internet!');
Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.
Замечание:
параметр Flag игнорируется, соответственно используем ноль.
Эта DLL обычно проинсталлирована на большинстве компьютеров. Она также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..
Оставить комментарий
Комментарии
1.
+1 / -0
22 декабря 2012, 06:39:23
Шлак. Находясь в локалке без инета(а у 90% населения VPN) функция покажет соединение с инетом.
2.
+0 / -1
2 августа 2005, 22:16:22
Это для тех у кого Linux(вроде *.ДЛЛ это файл Винды), да? Еслм нет,тогда зачем это надо
3.
+1 / -0
7 сентября 2004, 16:52:17
все гениальное просто ;)
4.
+1 / -1
11 июня 2004, 18:37:25
Прикольно! Работает!
Где бы найти побольше таких инф, да в одном месте.
Где бы найти побольше таких инф, да в одном месте.