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

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

• Учимся добавлять программу в автозапуск.
• Быстрый поиск исходников, Delphi статьи
• Распространение бесплатных программ delphi вместе с исходниками. Как способ делать деньги
• Узнать стандартные папки windows
• Сохранить исходник HTML из TWebBrowser

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

• Как заменить иконку в программе Delphi и иконку скомпилированного файла?
• Отлавливаем нажатие калавиш клавиатуры.
• Учимся добавлять программу в автозапуск.