Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Как узнать есть ли сейчас соединение с интернетом?   Найти похожие ветки 

 
Игорь Н.   (2004-05-24 19:59) [0]

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


 
MasterA   (2004-05-24 20:38) [1]

Для работы Вам необходимо импортировать функцию 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 и т.д..
Более подробно можно прочитать в MSDN. Оригинал: http://msdn.microsoft.com/library/psdk/shellcc/shell/Functions/InetIsOffline.htm


 
Игорь Н.   (2004-05-24 20:58) [2]

Вообще-то этот способ весьма сомнителен. Если в InternetExplorer поставить галочку "Работать автономно", то всегда будет вылетать сообщение "This computer is not connected to Internet!" и наоборот - если убрать галочку то "You are connected to Internet!" А ведь при загрузке компьютера, гаолчка не устанавливается т.е. такой способ покажет, что соединение установлено :( и в моей программе возникнет ошибка.


 
Sur ©   (2004-05-24 21:30) [3]


> как проверить соеденен ли компьютер сейчас с интернетом?

Узнать IP, и если это не 127.0.0.1 значит не соеденен


 
Sur ©   (2004-05-24 21:33) [4]

соеденен


 
Rouse_ ©   (2004-05-25 00:22) [5]

Хм... вечные споры о вечном :)
А если умные мысли почитать?
http://www.delphimaster.ru/articles/connect-inet.html

> Эта функция возвращает TRUE если соединение с интернетов
> отсутствует
, или FALSE если соединение установлено.

Важное дополнение забыл - если соединение с интернетом отсутствует или не было еще установлено...


 
Rouse_ ©   (2004-05-25 00:27) [6]

> Узнать IP, и если это не 127.0.0.1 значит не соеденен
А что, тоже юмор :)
Видимо Loopback интерфейс от сетевой карты отличить уже можем :)


 
Игорь Н.   (2004-05-26 18:37) [7]


> Rouse_
Это я уже читал. Там правда написана, только вот перед тем, как проверить соединение во всех способах, описаных в разделе "А теперь правда", программа просит соединится. А это как-то неразумно - соединятся, чтобы проверить есть ли соединение :) А мне надо, чтобы пользователь не знал, что программа проверяет соединение.



Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.049 c
1-1089203408
dosik
2004-07-07 16:30
2004.07.25
Двумерные массивы в испекторе объектов


14-1088911799
Григорьев Антон
2004-07-04 07:29
2004.07.25
А кто за статьи на этом сайте отвечает?


4-1086741481
R
2004-06-09 04:38
2004.07.25
В модуле Masks есть функция MatchesMask(Name, Mask)


1-1089626589
Alexandr
2004-07-12 14:03
2004.07.25
Application.CreateForm


11-1077899962
ALeX.B.
2004-02-27 19:39
2004.07.25
ICSовский FTPSRV просит 2 отсутствующих файла WinProc и WinTypes.