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

Delphi , Интернет и Сети , Интернет

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

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

Функция Delphi CheckInetLink проверяет наличие интернет-соединения и доступность указанного URL. Функция принимает один параметр URL, который является строкой, представляющей URL для проверки.

Вот шаг за шагом, что функция делает:

1. Вначале функция вызывает функцию CheckInetConnect из библиотеки UBPFD, чтобы проверить, есть ли интернет-соединение. Если это так, она устанавливает переменную Result в значение 1.
2. Если параметр URL не является пустой строкой (то есть не является пробелом), функция выполняет дополнительные проверки:
   • Она вызывает функцию CheckInetConnect снова, чтобы убедиться, что интернет-соединение все еще активно.
   • Если результат этой проверки равен 0, это означает, что соединение не было активным, и функция возвращает значение 0 сразу.
   • Если результат этой проверки равен 1 (то есть соединение все еще активно), она вызывает функцию CheckUrl из библиотеки UBPFD, чтобы проверить доступность указанного URL. Если CheckUrl возвращает ложное, это означает, что URL не доступен, и функция устанавливает Result в значение 0.
3. Функция возвращает байтовое значение, указывающее, есть ли интернет-соединение (1) или нет (0).

Обратите внимание:

• Библиотека UBPFD необходима для работы этого кода.
• Функция CheckInetConnect проверяет, есть ли активное интернет-соединение, но не гарантирует, что соединение стабильно или быстро.
• Функция CheckUrl проверяет доступность конкретного URL, но может возвращать ложные положительные результаты (то есть отчет о недоступном URL, когда на самом деле он доступен) из-за проблем с разрешением DNS или сетевой загруженности.

Альтернативное решение могло бы заключаться в использовании более robust и современной подхода к проверке интернет-соединения, например:

• Использование API WinInet на Windows или фреймворка CFNetwork на macOS
• Использование третьей-сторонней библиотеки, которая предоставляет болееadvanced функциональность сети
• Реализация более полного механизма обработки ошибок для учета различных сценариев, когда соединение может быть доступно, но URL не доступен

В целом, этот код обеспечивает базовое реализацию проверки интернет-соединения и доступности URL, но может потребовать улучшений и доработок для улучшения его надежности и robustness.

Проверка наличия соединения с интернетом и доступности сетевых ресурсов выполняется за счет функции CheckInetLink, которая проверяет наличие соединения с интернетом и доступность указанного URL.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Интернет ::