Проверка наличия соединения с интернетом и доступности сетевых ресурсовDelphi , Интернет и Сети , ИнтернетПроверка наличия соединения с интернетом и доступности сетевых ресурсов
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка наличия соединения с интернетом и доступности сетевых ресурсов Если входной параметр URL не задан (пустая строка), то выполняется быстрая проверка только на наличие соединения (Для этого требуется функция CheckInetConnect из базы UBPFD). Если URL задан, то при наличии соединения проверяется еще и доступность указанного URL (Для этого требуется функция CheckURL из базы UBPFD). Двойная проверка бывает часто необходима, когда соединение вроде бы установлено, но сетевые ресурсы недоступны по каким-либо причинам. Для общей проверки доступности ресурсов в качестве URL рекомендуется указывать домен второго уровня своего города, например: http://www.spb.ru Зависимости: UBPFD.CheckInetConnect, UBPFD.CheckUrl Автор: lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург Copyright: Собственное написание (lipskiy) Дата: 20 апреля 2002 г. ***************************************************** } function CheckInetLink(URL: string): byte; begin Result := CheckInetConnect; if URL <> '' then if Result <> 0 then if not CheckUrl(URL) then Result := 0; end; Проверка наличия соединения с интернетом и доступности сетевых ресурсов выполняется за счет функции CheckInetLink, которая проверяет наличие соединения с интернетом и доступность указанного URL. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |