libcurl for Clarion
Добавлено: 12 Ноябрь 2015, 20:11
Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Код: Выделить всё
Case MyCurl.Send()
Of CURLE_OK
Message('OK !')
Of CURLE_COULDNT_CONNECT
Message('Интернета совсем нет !')
Of ...
else
Message('ХЗ !')
end
Это HtmlToText? Или что-то другое?html-парсер под Кларион
Спасибо, буду знать. Слава богу, хоть на Windows 3.1 сидят немногие.Игорь Столяров писал(а): 20 Октябрь 2017, 16:48начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске
1. "Проблема" решается элементарным копированием в папку старого комплекта DLL (7 файлов).
У нас тоже полно на winXP. И не собираются переходить, так как тогда еще железо надо апгрейдить. А это уже "бесплатно" никто не даст. А поскольку большинство на терминальных серверах, то на рабочих станциях всякая рухлядь стоит. И все прекрасно работает...Игорь Столяров писал(а): 20 Октябрь 2017, 17:55 2. Давно подмывает вообще выключить в программах поддержку WinXP. Но некоторые юзеры не могут
перейти из-за старого прикладного софта, старых (но прекрасно работающих) контроллеров, на которые
нет драйверов под современные Windows и т.д.
Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?Игорь Столяров писал(а): 20 Октябрь 2017, 16:48Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
Это не проблема, а просто информация ...
Пёс с ними, нельзя же всю жизнь ходить в одной кофточке ....
Зачем мне её стирать ? Это же не моя кофточка ...finsoftrz писал(а): 20 Октябрь 2017, 18:25Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?
Мыши плакали. кололись, но продолжали жрать кактус...Игорь Столяров писал(а): 20 Октябрь 2017, 16:48Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
А зачем переводить в текст то, что и так является текстом?!
Уже понятно, что полного satisfaction не будет и в этом гамбите надо что-то жертвовать.
ну да, оказывается не так всё у мышей - как раз вчера коллеги просветили, что "мыши подгрызают кактус снизу, он падает, а умные мыши в обход колючек начинают кушать сердцевину..."RaFaeL писал(а): 20 Октябрь 2017, 23:00 Мыши плакали. кололись, но продолжали жрать кактус...
https://forum.clarionlife.net:443/viewt ... 165#p31165
Код: Выделить всё
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
Код: Выделить всё
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