libcurl for Clarion

[Дед Пахом]

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

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

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

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

Проверяем код ошибки и показываем его развёрнутое описание, см. libcurl.inc

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

        Case MyCurl.Send()
        Of CURLE_OK
           Message('OK !')
        Of CURLE_COULDNT_CONNECT
           Message('Интернета совсем нет !')
        Of ...
           
        else
           Message('ХЗ !')
        end

и этим вводим пользователя в окончательный ступор.

[NewUser]

Ну, конечно же, libcurl.inc!
Спасибо, Игорь!
Похоже что это я, а не пользователь, впал в ступор!

[Олег]

А кто ни будь встречал html-парсер под Кларион?

[morkovin]

html-парсер под Кларион

Это HtmlToText? Или что-то другое?

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

Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
Это не проблема, а просто информация ...
Пёс с ними, нельзя же всю жизнь ходить в одной кофточке ....

[Дед Пахом]

начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске

Спасибо, буду знать. Слава богу, хоть на Windows 3.1 сидят немногие.

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

хоть на Windows 3.1 сидят немногие.

1. "Проблема" решается элементарным копированием в папку старого комплекта DLL (7 файлов).

2. Давно подмывает вообще выключить в программах поддержку WinXP. Но некоторые юзеры не могут
перейти из-за старого прикладного софта, старых (но прекрасно работающих) контроллеров, на которые
нет драйверов под современные Windows и т.д.

[finsoftrz]

2. Давно подмывает вообще выключить в программах поддержку WinXP. Но некоторые юзеры не могут
перейти из-за старого прикладного софта, старых (но прекрасно работающих) контроллеров, на которые
нет драйверов под современные Windows и т.д.

У нас тоже полно на winXP. И не собираются переходить, так как тогда еще железо надо апгрейдить. А это уже "бесплатно" никто не даст. А поскольку большинство на терминальных серверах, то на рабочих станциях всякая рухлядь стоит. И все прекрасно работает...

[finsoftrz]

Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
Это не проблема, а просто информация ...
Пёс с ними, нельзя же всю жизнь ходить в одной кофточке ....

Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?

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

Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?

Зачем мне её стирать ? Это же не моя кофточка ...
А если приходит состоятельный клиент, то мне в общем-то всё равно в каких он носках ...

Проблема в другом. WinXP и Win10 уже сильно различаются по API и поддерживать их в одной
программе всё труднее и труднее ... Мы уже как-то обсуждали расхождение русской WINDOWS
кодировки в TPS, которая делает невозможной совместную работу с общей БД из под WinXP и Win10.
(точнее работать можно, но приходится использовать русскую ANSI кодировку для TPS ...) и т.д.

[RaFaeL]

Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.

Мыши плакали. кололись, но продолжали жрать кактус...
https://forum.clarionlife.net:443/viewt ... 165#p31165

[Олег]

html-парсер под Кларион

Это HtmlToText? Или что-то другое?

А зачем переводить в текст то, что и так является текстом?!
Я имел в виду парсер по типу xml-парсера - формировать из плоского html-текста DOM-структуру, что бы удобно было в ней проводить поиск нужных элементов.

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

Мыши плакали. кололись, но продолжали жрать кактус...

Уже понятно, что полного satisfaction не будет и в этом гамбите надо что-то жертвовать.
Вариант с WinXP наиболее привлекателен по общей стратегии партии ...

[Ал]

Мыши плакали. кололись, но продолжали жрать кактус...
https://forum.clarionlife.net:443/viewt ... 165#p31165

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

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

Привет всем любителям Libcurl !

Что-то я зашёл в тупик. Понимаю, что в чём-то ошибаюсь, но не могу понять в чём именно.
Пытаюсь сделать пример простого запроса из http://api-docs.diadoc.ru/ru/latest/how ... ation.html

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

POST /Authenticate?login=user@skbkontur.ru&password=qwerty HTTP/1.1
Host: diadoc-api.kontur.ru
Authorization: DiadocAuth ddauth_api_client_id=testClient-8ee1638deae84c86b8e2069955c2825a
Content-Length: 1252
Connection: Keep-Alive

Записываю запрос в вызовы LibCurl

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

Curl               &TCurlClass
Loc:xBuffer        STRING(65536)
Loc:xRes           CURLcode

  Code 
 
  Curl &= NEW(TCurlClass)
  Curl.Init()

  Curl.AddHttpHeader('Host: diadoc-api.kontur.ru')
  Curl.AddHttpHeader('Authorization: DiadocAuth ddauth_api_client_id=testClient-8ee1638deae84c86b8e2069955c2825a')
  Curl.AddHttpHeader('Content-Length: 1252')
  Curl.AddHttpHeader('Connection: Keep-Alive')

  Curl.AddHttpHeader('Content-Type: application/json charset=utf-8')
  Curl.AddHttpHeader('Accept: application/json')
  Curl.AddHttpHeader('Accept-Charset: utf-8')

  Curl.SetHttpHeaders()

  Curl.SetCustomRequest('POST')
  Curl.SetHttpGET(TRUE)

  !Curl.SetUserPwd('user@skbkontur.ru','password')
  !Curl.SetSSLVersion(CURL_SSLVERSION_DEFAULT)

  Curl.SetSSLVerifyHost(False)
  Curl.SetSSLVerifyPeer(True)

  Loc:xRes = curl.SendRequestStr('https://diadoc-api.kontur.ru','/Authenticate?login=user@skbkontur.ru&password=qwerty HTTP/1.1',Loc:xBuffer)

  Curl.CleanUp()
  Dispose(Curl)

  If Loc:xRes = CURLE_OK                                 
     Message('Ответ:' & Loc:xBuffer)
  else
     Message('Ошибка: ' & Loc:xBuffer)
  end

Понятно, что я не смогу получить доступ к сервису с демо-данными ...
Проблема в том, что я вообще не могу сделать запрос и получаю ошибку от LibCurl с пустым ответом ...