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

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

Уроки програмирования на языке 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



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

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

Hass 21 Feb 2020 в 06:29 #
Иван Respect! Красава!
SERPAZ 22 Feb 2017 в 10:33 #
Marcus,рекомендую воспользоваться Application.MessageBox(phar('string'),pchar('string'),0)
игорь 22 May 2015 в 10:12 #
А если у вас лажа с DHCP и айпишник раздался от APIPA ( 169.254.XXX.XXX ). Сети нет, но и не 127.ххх ?
Тапки от Гузэ 15 Oct 2011 в 00:00 #
Дак как пропинговать та??? Все только языком чешут.
JasonX 21 Jun 2011 в 00:00 #
это лажа ! если у вас есть сеть, то айпишник итак не будет 127.0.0.1 !

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