Проверяем соединение с интернетом.

Опубиковано: 09.06.2008 г., автор: , просмотров: 322548

Уроки програмирования на языке Delphi. исходники

Много статей было написано, много слов было сказано, о том как узнать подключен ли компьютер к интернету или нет. На мой взгляд, самый простой способ это узнать, проверить ip адрес. Если он локальный т.е 127.0.0.1, то соединения с интернетом нет, но если ip адрес отличается от 127.0.0.1 то мы подключены к интернету. Так давайте займемся технической реализации данного метода. Открываем Delphi, создаем новый проект. На форму кидаем компонент TcpClient с закладки Internet (в принципе можно воспользоваться и TcpServer), кнопку (button) с закладки Standart и в обработчике событий OnClick кнопки пишем следующий код:

if tcpClient1.LocalHostAddr <>'127.0.0.1'
then
showmessage('Мы в Интернете!!!')
else showmessage('Соединение с интернетом отсутствует!!!');

Полный листинг процедуры:

procedure TForm1.Button1Click(Sender: TObject);
begin
if tcpClient1.LocalHostAddr <>'127.0.0.1'
then showmessage('Мы в Интернете!!!')
else showmessage('Соединение с интернетом отсутствует!!!');
end;

До встречи www.delphiexpert.ru



Похожие материалы

Последние из рубрики

SERPAZ 22 Фев 2017 в 10:33 #
Marcus,рекомендую воспользоваться Application.MessageBox(phar('string'),pchar('string'),0)
игорь 22 Май 2015 в 10:12 #
А если у вас лажа с DHCP и айпишник раздался от APIPA ( 169.254.XXX.XXX ). Сети нет, но и не 127.ххх ?
Тапки от Гузэ 15 Окт 2011 в 00:00 #
Дак как пропинговать та??? Все только языком чешут.
JasonX 21 Июн 2011 в 00:00 #
это лажа ! если у вас есть сеть, то айпишник итак не будет 127.0.0.1 !
Иван 22 Апр 2011 в 00:00 #
Вот что точно работает: помещаем компонент на форму TcpClient1 из вкладки Internet. У него в свойствах прописываем IP адрес (RemoteHost) какого нить сайта (можно и урл) ставим порт (RemotePort) 80. Я брал свой работающий сайт. Далее в обработчике событий пишем (в данном случае я просто повесил событие на кнопку

form3.TcpClient1.Active:=true;
if form3.TcpClient1.Connected=true then showmessage(′ЕСТЬ ИНЕТ′) else showmessage(′НЕТ ИНЕТА′);
form3.TcpClient1.Active:=false;

ОтменитьДобавить комментарий