Хотите прямо сейчас получить бесплатный видеокурс по программированию для начинающих?

Как проверить соединение с интернетом (Delphi)

Июль 11, 2013

758a3389efb46e106c29158d84a48457_XLЗдесь я расскажу вам самый легкий способ проверить соеднинение с интернетом.

Для начала киньте на форму компонент TcpClient с вкладки Internet и обычную кнопку.

Далее прописываете свойства TcpClient1:
в свойстве RemoteHost значение google.ru (можно любой другой стабильный адрес в интернете),
в свойстве RemotePort значение 80.

В событии OnConnect прописываем:

1
showmessage('Связь с интернетом есть'); //можно любую другую реакцию на успешное соединение

В событии OnError:

1
showmessage('Нет связи с интернетом!');

При нажатии на кнопку вызываем:

1
TcpClient1.Active:=true;

Мы настроили наш компонент TcpClient1 на связь с google.ru. После чего активировали его нажатием на кнопку. Если выдастся ошибка — значит соединения нет, если вызвано OnConnect значит соединение с интернетом есть.



Один комментарий к записи Как проверить соединение с интернетом (Delphi)

  1. Назарий on 22.07.2013 at 00:47

    Спасибо за урок, но есть один баг: только при первом нажатии на кнопку генерируется сообщенин. а при повторном игнор

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Поддержите проект

Хит продаж:

Случайный анекдот

Моя вторая книга

Что это???

Программирование для Android:

Мы вконтакте

Помощь сайту

Понравился сайт? Он сильно нуждается в раскрутке.

Чтобы помочь в раскрутке - опубликуйте ссылку на сайт (или любую его страницу) на любом другом сайте в интернете. Тогда сайт станет чуточку популярнее.

Или просто нажмите на кнопки социальных сетей которые стоят в конце каждой статьи

Вместе мы сможем сделать программирование более популярным и более понятным для всех!

Заранее спасибо!
Артём Кашеваров.