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

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

Другое по теме:

• Get ALL Ip
• FTP - докачка файлов
• Присоединиться к FTP серверу и загрузить с него файл