скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Проверка наличия соединения с интернетом и доступности сетевых ресурсов



{ **** 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook