Я здесь впервые, может быть такая тема уже есть, если да, то извините
Мне интересно, как можно определить, есть ли соединение с Интернет. В частности, как пользоваться функцией InetIsOffLine, импортированной из URL.dll
У меня она постоянно выдает, что соединение установлено, хотя это далеко не так
У меня WinXP SP2, модем и никакой локалки.
Или эта функция используется для чего-то другого?

http://forum.vingrad.ru/index.php?showtopi...ение+с+Интернет

Пример:

Код

if internetgetconnectedstate(nil, 0) then //если подключен, то...

Это сообщение отредактировал(а) SoWa - 21.7.2005, 08:38

ОК, спасибо, а как пользоваться функцией 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!');

Пример взят из DRKB, но не работает

что тебе эта InetIsOffline дался ( еще и непонятно откуда взятая )?
используй internetgetconnectedstate

Цитата(_hunter @ 21.7.2005, 17:57)

что тебе эта InetIsOffline дался ( еще и непонятно откуда взятая )?

Как проверить, есть ли соединение с Интернет
Введение * *
Проблема проверки наличия связи с Интернет известна давно, но красивого решения
данной проблемы я не встречал. Отсутствие решения связано с тем, что невозможно
дать точное определение, что же такое "соединение с Интернет". Приведу реальный
пример - в момент написания данного совета у меня установлено модемное
соединение с большой ЛВС предприятия. При этом из ЛВС есть несколько входов в
Интернет, организованных через нескольких провайдеров. Пакет от моего ПК до
сервера в Интернет идет через десяток шлюзов/firewall/маршрутизаторов в нашей
ЛВС, проходит через прокси-сервер, NAT транслятор и т.п. - где гарантия
исправности всей цепочки и того, мой пакет будет пропущен до пункта назначения
(и где гарантия того, что будет пропущен ответ). Но при этом у меня активно
модемное соединение, моему ПК присвоен IP адрес и все описанные далее функции
бодро рапортуют о наличие связи.
Или еще пример - установлена связь с провайдером Интернет и повис модем -
функции проверки покажут, что соединение есть ....
Следовательно, я хочу сформулировать вывод: Бессмысленно анализировать факт
наличия некоего абстрактного "соединение с Интернет" - нужно пробовать выполнить
заданную операцию и анализировать успешность ее выполнения. Или, перефразируя
вышесказанное, наличие связи нужно рассматиривать в контексте каждого конретного
сервера Интернет для каждой конкретной операции. Инача возможна ситуация, когда,
к примеру, сервер отвечает на ping, но доступ к нему по порту 80 закрыт - в
данном случае даже ping не является показателем наличия связи и доступности
сервера

Метод на основе InetIsOffline * *
Функция InetIsOffline не декларирована в Delphi и это неоходимо сделать вручную:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL'
Функция возращает true, если существует соединение с Internet и false при
остутствии соединения.

Метод на основе InternetGetConnectedState * *
Функция InternetGetConnectedState библиотеки wininet.dll прозволяет проверить
наличие соединения с Интернет
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;

function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';
....
function IsInternetConnected: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM or
INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Метод на основе GetHostByName * *
В совете "Определение IP адреса и имени хоста" описана методика, позволяющая
определить IP адрес хоста. Так вот, при отсутстии соединения компьютера с
Интернет (вернее поправка - при отсутствии связи с ЛВС) возвращаемый адрес =
'127.0.0.1', при наличии - адрес, присвоенный провайдером. Естественно, метод
столь-же некорректен и ненадежен, что и остальные ...
Метод на основе GetSystemMetrics * *
Проверить соединение с Интернет можно при помощи функции API GetSystemMetrics:
function IsInternetConnected: Boolean;
begin
Result := GetSystemMetrics(SM_NETWORK) and 1 > 0;
end;
Примечание: как и говорилось во введении данного раздела, эта функция проверяет
дословно "наличие сети" - вот выдержка из Help: " ....The least significant bit
is set if a network is present; ..."


© Зайцев Олег, "Программирование на Delphi - обмен опытом" 1999-2004.

Ситуация такая - есть программа для подсчета времени, проведенного в Интернет, которую я выложил на своем сайте. Судя по откликам пользователей, у тех, у кого подключение через кабель, возникают проблемы с определением соединения. Я опробовал несколько методов:

1. GetHostByName - определение IP-адреса сервера ya.ru (сервер, в принципе, можно выбрать любой) - программа показывает наличие соединения постоянно;
2. InternetGetConnectedState - подключение к Инету определяется корректно, но вот отключение отлавливается по разному - у кого-то через минуту-другую, а у кого-то прога вообще не замечает факта отключения;
3. Ping - не подходит по определению, т.к. увеличивает траффик. Даже если пинговать 5 раз в секунду с отправкой пинга из 128 байт это отзначает 30 kb в минуту и 1800 kb в час исходящего траффика и не менее 1 Mb входящего; кроме того, при сильной загруженности линии пинг может приходить с большим запаздыванием, что тоже не есть хорошо;
4. InetIsOffline - у меня на модеме постоянно показывает, что соединение установлено, даже когда я вообще модем отключаю (код приведен на пару постов выше); на локалке я его не проверял;

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

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

PS: А существуют ли способы определения отключения от Инета.

Цитата(v258 @ 21.7.2005, 19:14)

А существуют ли способы определения отключения от Инета.

Вообще способов определения подключения/отключения к/от интернету нет. Винда вроде никакого сообщения не посылает. Существуют функции определения наличия соединения. Они выше. Эти же функции можно использовать и для определения отсутствия подключения.
А вообще, если ты пишешь такую прогу, то посмотри вот этот исходник. Много че полезного там найдешь.

ОК, спасибо, буду посмотреть

По моему самый простой способ - это пинговать яндекс или ещё чего

Цитата(v258 @ 21.7.2005, 20:52)

ОК, спасибо, буду посмотреть

Посмотри еще тут:
http://vingrad.ru/DELPHI-DLP-001377

Цитата

Посмотри еще тут: http://vingrad.ru/DELPHI-DLP-001377

Это есть в DRKB. По поводу InternetGetConnectedState и InetIsOffLine я писал выше, а вот в коде последнего примера мне кое-что не до конца понятно. В частности, функция RasConnectionCount будет ли работать на выделенке или же только на диалапе? Сам проверить не могу

Цитата(v258 @ 23.7.2005, 11:28)

В частности, функция RasConnectionCount будет ли работать на выделенке или же только на диалапе? Сам проверить не могу

Проверил у себя на выделенке. Все работает.
RasConnectionCount вернула 1
ConnectedToInternet вернула ctDialup (что меня удивило)

Цитата

ConnectedToInternet вернула ctDialup (что меня удивило)

Да уж, действительно смешно Однако, спасибо!!!

Цитата

Да уж, действительно смешно

А если разобраться, то и странного ничего нет - там всего три варианта - ctNone, ctProxy и ctDialup