LibCurl: Проверка наличия ссылки (PING) ?

[Игорь Столяров]

Добрый день !

Подскажите пожалуйста, можно с помощью библиотеки LibCurl проверить наличие страницы по заданной ссылке ?
Как я понимаю, сам CURL предлагает два варианта решения вопроса:

1. Получение заголовков веб-страницы (но многие сайты всегда возвращают т.н. "страницу 404"):

Код: Выделить всё

  CURL -I https://forum.clarionlife.net/viewtopic.php?t=5369

2. Проверка HTTP-статуса ссылки (200 - OK !) - это лучше !:

Код: Выделить всё

  CURL -s -w https://forum.clarionlife.net/viewtopic.php?t=5369

Можем ли мы что-то из этого cделать через класс LibCurl ? Может быть есть какие-то другие варианты ?
Вот максимально не хочется стартовать"пускач" и потом парсить "текстушки" для такой задачи. Спасибо !

[Дед Пахом]

Если есть работающий curl-скрипт, переведите его в вызов методов libcurl.

[Игорь Столяров]

Нет скрипта. Есть только опции к вызову CURL.EXE и я не понимаю как можно их повторить через класс.

[Дед Пахом]

CURL -s -w viewtopic.php?t=5369

это скрипт и есть. Если добавить параметр --libcurl file.c и запустить скрипт, он сгенерит file.c с вызовами curl_easy_setopt, которые легко перевести на Clarion.

[Игорь Столяров]

Если добавить параметр --libcurl file.c и запустить скрипт

Спасибо ! В базовом варианте всё получилось, далее уже буду проверять на реальных ссылках.

[Игорь Столяров]

У меня получился вот такой, вполне себе, рабочий вариант (в т.ч. и для суверенных сервисов).
Если есть замечания или улучшения - буду рад услышать.

Я понимаю, что более правильный вариант был бы с TCurlClass.SendRequestStr(sLink) - но он не работает.

Код: Выделить всё

!!! Проверка доступности ссылки  
HZ.CheckLink  Procedure(String sLink) !,Bool
  Code
  Self.Curl.FreeHttpHeaders()

  Self.Curl.SetSSLVerifyHost(False)
  Self.Curl.SetSSLVerifyPeer(False)
  Self.Curl.SetSSLVersion(CURL_SSLVERSION_DEFAULT)  
  
  Self.Curl.SetOpt(CURLOPT_TCP_KEEPALIVE,1)  ! Восстанавливать подключения
  Self.Curl.SetOpt(CURLOPT_NOPROGRESS,1)     ! Без индикатора
  Self.Curl.SetOpt(CURLOPT_NOBODY,1)         ! Только заголовок
  
  ! Получить HTTP статус запроса
  If Self.Curl.SendRequest(json::ToUtf8(sLink),Self.ResponseBuffer) = CURLE_OK        
     Return Choose(Self.Curl.GetResponseCode() = 200)
  end

  Return False