Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
Игорь Н.   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.045 c
1-1089358673
mochoni
2004-07-09 11:37
2004.07.25
текстовый файл


14-1089057114
DeadMeat
2004-07-05 23:51
2004.07.25
Расписание


14-1088690674
mvgfirst
2004-07-01 18:04
2004.07.25
Подскажите кто чем учитывает списки "What s new",


1-1089543562
ltexcimer
2004-07-11 14:59
2004.07.25
максимальный размер переменной и запись в файл


1-1089617818
_none_
2004-07-12 11:36
2004.07.25
Application.OnIdle





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский