(Урок) Проверка подключение к Интернету Delphi

(Урок) Проверка подключение к Интернету Delphi

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 01.02.2015.

Загрузка...
Ответов: 0 Просмотров: 392 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Иногда в программе надо просто проверить соединение с Инетом. Например, для обновления программы, работой с запросами и т.д.
    Ну, начнем.
    Нам нужно:
    Форма, кнопка и компонент TCPClient (Internet).
    Теперь в событии кнопки OnClick пишем:

    if TcpClient1.LocalHostAddr = '127.0.0.1' then
    showmessage('Соединения с Интернетом нету.') else
    showmessage('Вы подключены к сети Интернет!');



    Ну вот и все.
    Удачи!
     
    01.02.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.