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

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