Привет всем любителям 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 с пустым ответом ...
За теми кто отстал - не возвращаться. (С) Кодекс