Имя: Пароль:
1C
1С v8
Как отправить запрос на веб-сайт?
0 maksyandra
 
24.03.16
15:54
Люди добрые, помогите. Как отправить из 1С вот этот запрос??
<?php
    $url="https://api.dc.com.ua/api/API_METHOD";; //адрес api
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 2);
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, array (
        'login' => 'YOUR_LOGIN',
        'password' => 'YOUR_PASSWORD',
        'доппараметр' => 'значение_доппараметра'
    )); //параметры запроса
    curl_setopt($ch, CURLOPT_URL, $url);
    $output = curl_exec($ch); //ответ
    curl_close($ch);
?>
1 Garykom
 
гуру
24.03.16
16:03
(0) рекомендую через прокси в пентагоне или хотя бы ленгли
2 Fragster
 
гуру
24.03.16
16:05
curl из php это почти один в один httpсоединение + httpзапрос
3 maksyandra
 
24.03.16
16:12
(2) А как это должно выглядеть??
4 Fragster
 
гуру
24.03.16
17:26
5 Живой Ископаемый
 
24.03.16
17:39
2(3) Очень приблизительно:
    ssl=Новый ЗащищенноеСоединениеOpenSSL(
    Неопределено,
    Новый СертификатыУдостоверяющихЦентровWindows());
    ХТТПСоединение = Новый HTTPСоединение(URL,,,,,0,ssl);
    //ХТТПСоединение = Новый HTTPСоединение(URL);

    ЗаголовокHTTP = Новый Соответствие();
    ЗаголовокHTTP.Вставить("Content-Type", "application/json; charset=utf-8");
    ЗаголовокHTTP.Вставить("accept", "application/json");
    ЗаголовокHTTP.Вставить("type", "POST");
    ЗаголовокHTTP.Вставить("dataType", "json");

    Запрос = Новый HTTPЗапрос("api/API_METHOD",ЗаголовокHTTP);
    Запрос.УстановитьТелоИзСтроки(СокрЛП(JSON), "UTF-8", ИспользованиеByteOrderMark.НеИспользовать);//Дело было в этой строке
    ХТТПОтвет = ХТТПСоединение.ОтправитьДляОбработки(Запрос);
    Сообщить(ХТТПОтвет.ПолучитьТелоКакСтроку("UTF-8"));
====


Но тока:

http://screencast.com/t/OtvQRRSXf
6 maksyandra
 
24.03.16
18:00
(5) Спасибо. Пока ничего не получается.
7 Живой Ископаемый
 
24.03.16
18:06
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс