libcurl for Clarion

[Дед Пахом]

Вроде все основные функции закрыл:
- выгрузка файлов с сервера
- загрузка файлов на сервер
- HTTP GET/POST с возможностью прочитать ответ сервера
- Поддержка SSL

Тестировал на протоколах http, https, ftp, sftp, ftpes.

Краткий туториал в файле \doc\How-To.txt.

[Дед Пахом]

Можно ли мечтать о методе

Разумно, добавлю на днях.

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

Прошу сразу не ругаться и не посылать меня в мануал (тем более, что я там уже был).
Вопрос скорее по теории протоколов, а не по реализации LibCurl …

Надо дёрнуть обычный GET (на простом примере):

Вот так работает:

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

  MyCurl.SendRequest('http://sms.ru/sms/send','',Loc:RespBuffer)

А вот так требует какой-то сертификат:

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

  MyCurl.SendRequest('https://sms.ru/sms/send','',Loc:RespBuffer)

В любом броузере или при вызове через WinAPI (WinINet) вариант с HTTPS работает.
Как установить сертификат перед вызовом - я вижу в примерах.
Но какой оно хочет сертификат ? Где вообще живут эти сертификаты и как их оттуда добыть ?
Заранее спасибо ...

[RaFaeL]

Так а .SetSSL* прописаны или нет?

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

Так а .SetSSL* прописаны или нет?

Упс ! Точно. Спасибо. Добавил:

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

     Curl.SetSSLVersion(CURL_SSLVERSION_DEFAULT)
     Curl.SetSSLVerifyHost(False)
     Curl.SetSSLVerifyPeer(False)

и HTTPS теперь с нами !
Правильно ли я понимаю, что эти строчки можно включать всегда по умолчанию,
т.к. на обычный протокол HTTP они не действуют ? А с ними работает и HTTP и HTTPS ...

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

Я снова дико извиняюсь, но лучше спрошу, чем жить во тьме. Пример FTPManager (любой).
В чём смысл добавления имени пользователя (без пароля !) в строку подключения, после выполненной авторизации ?
(закоментированные строки)

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

TCurlFtpClassEx.BuildUrl      PROCEDURE(STRING pUrl, STRING pUser, TSSHSettings pSSH)
url                             STRING(256)
sprotocol                       CSTRING(20)
  CODE
  sprotocol = CHOOSE(pSSH.AuthMethod = CURLSSH_AUTH_NONE, 'ftp://', 'sftp://')
  
!  IF pUser AND NOT INSTRING('@', pUser, 1, 1)
!    url = sprotocol & CLIP(pUser) &'@'& CLIP(pUrl)
!  ELSE
    url = sprotocol & CLIP(pUrl)
!  END

  IF url AND url[LEN(CLIP(url))] <> '/'
    url = CLIP(url) & '/'
  END
  
  RETURN CLIP(url)

Отследил до самого вызова perform() - нигде это не используется.

В примерах на сях такая конструкция имеет смысл только с паролем, если
используется упрощённая схема доступа к FTP серверу, без предварительной авторизации ...

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

  const char *remote = "sftp://user:pass@example.com/path/filename";

[Дед Пахом]

Что-то у меня не работало,а с именем пользователя в url заработало, так и оставил.

В примерах на сях такая конструкция имеет смысл только с паролем

https://www.cs.rutgers.edu/~watrous/user-pass-url.html

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

Спасибо, я понял.
Речь видимо идёт о подключении к открытому FTP разделу без предварительной авторизации,
но с именем пользователя отличным от "anonymous" … редкий случай, даже проверить не на чем.
С другой стороны - оно и не мешает.

[Дед Пахом]

FTPManager универсальная программа, может подключаться к FTP/SFTP/FTPS, поэтому тестировал на многих серверах, какие-то из них на какие-то команды возвращали ошибку, поэтому нашёл вот такой способ передачи url, который работает везде (по крайней мере, много где). Правда, если в имени пользователя есть символ @, то libcurl не сможет правильно распарсить строку соединения.
В обычной жизни, как правило, достаточно вызвать SetDefaultProtocol('ftp'), SetUserPsw(user, psw) и WriteFile(url), где url примерно такая: '32.78.23.87'

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

Правда, если в имени пользователя есть символ @

Это та же самая проблема, что и при вызове строки подключения к FTP в броузере, когда имя пользователя - это e-mail.
Просто заменяем "@" на "#40" + порт подключения.
У меня первый хостинг был на АГАВА, а там имя пользователя - всегда e-mail, без вариантов.
см. например: http://www.slavyane.net.ua/kompyuternay ... =component

[Дед Пахом]

Можно ли мечтать о методе:
КОД: ВЫДЕЛИТЬ ВСЁ

FormPost PROCEDURE(STRING pUrl, *IDynStr pDynStr, <curl::ProgressDataProcType xferproc>), CURLcode, PROC
но с передачей параметров pPostFields

Обновление v1.29 на GitHub. Вместо размножения методов FormPost предлагается просто вызвать curl.SetPostFields('k1=v1&k2=v2').

[RaFaeL]

Правильно ли я понимаю, что эти строчки можно включать всегда по умолчанию,
т.к. на обычный протокол HTTP они не действуют ? А с ними работает и HTTP и HTTPS ...

А зачем? У меня в классе этот флаг передается в параметре Init, соотв. если ресурсу нужен SSL - передаем, не нужен - не передаем

[RaFaeL]

Обновление v1.29 на GitHub. Вместо размножения методов FormPost предлагается просто вызвать curl.SetPostFields('k1=v1&k2=v2').

А старые варианты работать будут или они выпилены и придется все переделывать? (пока не качал не смотрел)

[Дед Пахом]

А старые варианты работать будут

Старые я не трогал.

[Дед Пахом]

Обновление v1.29 на GitHub

Перезалил libcurlmail.clw, кое-что исправил.

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

Заранее извиняюсь, но это снова я …
Решил развить успех и попробовать работать с запросами через файл (базовый пример PostFile).
Элементарный запрос для проверки ИНН на сайте ФНС. В примере поменял только URL:

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

  curl.Init()  
  url = 'http://npchk.nalog.ru/FNSNDSCAWS_2?wsdl'   ! ЗАМЕНИЛ
  argname = 'userfile'
  infile = 'test.xml'
  respfile = 'post_response.txt'  
  res = curl.PostFile(url, argname, infile, respfile)
  ...

В XML файле набрал запрос (этот пример запроса опубликован и проверен):

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

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:req="http://ws.unisoft/FNSNDSCAWS2/Request"> 
<soapenv:Header/> 
  <soapenv:Body> 
    <req:NdsRequest2> 
      <!--1 to 10000 repetitions:--> 
      <req:NP INN="7812014560" KPP="770701001" DT="18.08.2018"/> 
    </req:NdsRequest2> 
  </soapenv:Body> 
</soapenv:Envelope>

Всё выполняется, получаю ответ: Success, see file post_response.txt for details !
Т.е. всё хорошо, но файла post_response.txt - НЕТ. Совсем. Нигде.
Я бы понял, если бы он содержал ошибку или мусор. Но он просто не формируется.
Я что-то не то делаю ? Заранее спасибо за наводку куда смотреть ...