Delphi World - Как проверить соединение с Интернетом
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как проверить соединение с Интернетом


Сидят два инетчика. Один читает вслух объявление в газете: - Красивая девушка. 90х60х90. Выполнит все твои желания. Плата - 1000р. за ночь! Второй, заглядывая в газету: - А со скольки у нее ночь?

Для работы Вам необходимо импортировать функцию 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!');

но ещё нужно учитывать, что функция эта выдает false не только, когда комп подключен к Интернету, но и когда ЕЩЕ НЕ БЫЛО ПОПЫТОК подключения (or if no attempt has yet been made to connect to the Internet), как сказано в официальной документации Microsoft по MSDN...

Да, умом Microsoft не понять!

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования