Главная страница
    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.032 c
1-1089753501
RedLord
2004-07-14 01:18
2004.07.25
сохранение объекта в файле


1-1089605923
leonidus
2004-07-12 08:18
2004.07.25
Для чего в IDE нужна вкладка Diagram?


1-1089638314
serg128
2004-07-12 17:18
2004.07.25
Как открыть окно в определенных коовдинатах раб. стола?


8-1084036343
Ilya
2004-05-08 21:12
2004.07.25
Windows.Beep() Не звучит


8-1083638047
тихий вовочка
2004-05-04 06:34
2004.07.25
Как избежать пропадания рисунка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский