Как проверить соединение с интернетом (Delphi)
Здесь я расскажу вам самый легкий способ проверить соеднинение с интернетом.
Для начала киньте на форму компонент TcpClient с вкладки Internet и обычную кнопку.
Далее прописываете свойства TcpClient1:
в свойстве RemoteHost значение google.ru (можно любой другой стабильный адрес в интернете),
в свойстве RemotePort значение 80.
В событии OnConnect прописываем:
1 | showmessage('Связь с интернетом есть'); //можно любую другую реакцию на успешное соединение |
В событии OnError:
1 | showmessage('Нет связи с интернетом!'); |
При нажатии на кнопку вызываем:
1 | TcpClient1.Active:=true; |
Мы настроили наш компонент TcpClient1 на связь с google.ru. После чего активировали его нажатием на кнопку. Если выдастся ошибка — значит соединения нет, если вызвано OnConnect значит соединение с интернетом есть.
Понравилась статья? Жми: | Поделиться в соц. сетях |
Спасибо за урок, но есть один баг: только при первом нажатии на кнопку генерируется сообщенин. а при повторном игнор