Проверка наличия подключения к интернету

[Ёжик в тумане]

Доброго времени суток! Дайте пожалуйста [код] для проверки соединения с интернетом, если есть соединение с интернетом - программа работает, а если нет наличия соединения с интернетом то программа закрывается.
___________________________________ _____
Дайте пример такой программы плиз...

[Человек_Борща]

кода давать не буду.
Все очень просто. Поропингуйте сайт, тот же гугл.

Гугл вам поможет. Даможно и без него. Можно воспользоваться поиском по форуму. Информаци уйма.

[TEHb]

если форма есть то кинь на неё TcpClient1

RemoteHost:="google.ru";
RemotePort:=80;

в нужный момент Active ставь в true
и жди события onConnect или onError если не приконнектится.

А если у тебя нет формы создай TcpClient так:

Var
MyTCP  :  TTcpClient;
begin
MyTCP := TTcpClient.Create(nil);    

...

[TEHb]

Сообщение от Человек_Борща

Поропингуйте сайт, тот же гугл.

пинг дело хорошее но меленький код мне что-то не встречался.

[Человек_Борща]

смысл пнга то преверка ответа от какого-нибудь IP или DNS. Выше приведённый код это демонстрирует.

но меленький код мне что-то не встречался.

А кому сейчас легко?

[GunSmoker]

Ещё можно глянуть: http://www.webdelphi.ru/2011/04/prov...api-windows-7/

[mss]

Если активен хотя бы один физический сетевой интерфейс, "соединение с Интернет" есть, иначе его нет.

Все остальные рассуждения про "пинги", "DNSы", ТСР-коннекты/дисконнекты - чушь полная, ибо НЕ существует понятия "соединение с Интернет". Его придумали для полных невежд.

[Пепел Феникса]

Если активен хотя бы один физический сетевой интерфейс, "соединение с Интернет" есть, иначе его нет.

всмысле есть сеть?
локальная сеть отнюдь не интернет.(да и у меня дома 4 сетевых интерфейсов, 2 активны всегда, и что проверяем тогда?)

все остальные рассуждения про "пинги", "DNSы", ТСР-коннекты/дисконнекты - чушь полная

предыдущая моя цитата Вас, чушь точно.
если вам не понятно что имеется в виду под доступом в интернет, то это "доступ к ресурсам вне локальной сети".
понятное дело что нельзя проверить доступ ко всем ресурсам.
но проверить доступ к какому то ресурсу, и на основании этого сделать вывод, вполне можно.

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

если программе нужен вполне определенный ресурс, то его проверять и стоит.

[Человек_Борща]

Если активен хотя бы один физический сетевой интерфейс, "соединение с Интернет" есть, иначе его нет.

и каким сбособом это проверяется?

Вариант 1:
У меня интернет через локальную сеть. И что? Интернета нет, а сеть работает. Программа считает что интернет есть, следствие - ошибки в программе.

Вариант 2:
2 сетевых интерфейса, 1 интернет 2 Локальная сеть. Как определить "кто есть кто"? (Следствие - программа в панике)

Его придумали для полных невежд.

Импровизация отнюдь не быдлокодинг, а поиск выхода из "безвыходной ситуации" своими силами и фантазией.

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

[Smitt&Wesson]

API функция:
if(InetConnect())// Проверим подключение
Правда, срабатывает и на сетевое подключение (инет тоже видит).