|
Много статей было написано, много слов было сказано, о том как узнать
подключен ли компьютер к интернету или нет. На мой взгляд, самый простой способ
это узнать, проверить ip адрес. Если он локальный т.е 127.0.0.1, то соединения с
интернетом нет, но если ip адрес отличается от 127.0.0.1 то мы подключены к
интернету. Так давайте займемся технической реализации данного метода. Открываем
Delphi, создаем новый проект. На форму кидаем компонент TcpClient
 c
закладки 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;
| 
