- выгрузка файлов с сервера
- загрузка файлов на сервер
- HTTP GET/POST с возможностью прочитать ответ сервера
- Поддержка SSL
Тестировал на протоколах http, https, ftp, sftp, ftpes.
Краткий туториал в файле \doc\How-To.txt.
Модератор: Дед Пахом
Дед Пахом
Код: Выделить всё
Case MyCurl.Send()
Of CURLE_OK
Message('OK !')
Of CURLE_COULDNT_CONNECT
Message('Интернета совсем нет !')
Of ...
else
Message('ХЗ !')
end
Игорь Столяров
NewUser
Олег
morkovin
Игорь Столяров
Спасибо, буду знать. Слава богу, хоть на Windows 3.1 сидят немногие.Игорь Столяров писал(а): 20 Октябрь 2017, 16:48начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске
Дед Пахом
1. "Проблема" решается элементарным копированием в папку старого комплекта DLL (7 файлов).
Игорь Столяров
У нас тоже полно на winXP. И не собираются переходить, так как тогда еще железо надо апгрейдить. А это уже "бесплатно" никто не даст. А поскольку большинство на терминальных серверах, то на рабочих станциях всякая рухлядь стоит. И все прекрасно работает...Игорь Столяров писал(а): 20 Октябрь 2017, 17:55 2. Давно подмывает вообще выключить в программах поддержку WinXP. Но некоторые юзеры не могут
перейти из-за старого прикладного софта, старых (но прекрасно работающих) контроллеров, на которые
нет драйверов под современные Windows и т.д.
finsoftrz
Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?Игорь Столяров писал(а): 20 Октябрь 2017, 16:48Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
Это не проблема, а просто информация ...
Пёс с ними, нельзя же всю жизнь ходить в одной кофточке ....
finsoftrz
Зачем мне её стирать ? Это же не моя кофточка ...finsoftrz писал(а): 20 Октябрь 2017, 18:25Стирать не пробовали кофточку иногда? Или как носки, стали грязными, выбрасываем и покупаем новые?
Игорь Столяров
Мыши плакали. кололись, но продолжали жрать кактус...Игорь Столяров писал(а): 20 Октябрь 2017, 16:48Пользователи с низкой социальной ответственностью (работающие на Windows XP),
начали жаловаться на ошибку с отсутствием файла NORMALIZ.DLL при запуске.
RaFaeL
А зачем переводить в текст то, что и так является текстом?!
Олег
Уже понятно, что полного 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
Игорь Столяров
Создано на основе phpBB® Forum Software © phpBB Limited
Time: 0.080s | Peak Memory Usage: 1.37 МБ | GZIP: Off