6 июл. 2017 г.

Отправить POST запрос HTTP-сервису 1С Предприятие

Есть хттп сервис на 1С, в качестве параметра получает джейсон. 

Нужно проверить этот хттп сервис из браузера. 

Ввожу в адресной строке браузера

data:text/html,<form action=http://192.168.0.96/NameHTTPService/hs/tcd-http/getMovingRegisters method=post enctype="text/plain"><input  name=value></form>

где
192.168.0.96 - адрес сервера хттп 1С
NameHTTPService - название хттп сервиса
getMovingRegisters - название метода 

в появившейся форме ввожу джейсон (т.е. параметр)


    "GUID": "c310475f-58ab-11e7-80da-6abab6d48e3b" 


далее в коде обраотки полученных данных хттп сервиса пишу

Функция getMovingRegisters(Запрос)
     
    Ответ = Новый HTTPСервисОтвет(200);     
    СтрокаJSON = Запрос.ПолучитьТелоКакСтроку();  
     
    //для отладки из браузера
    Если Найти(СтрокаJSON, "value=") <> 0 Тогда
        СтрокаJSON = СтрЗаменить(СтрокаJSON, "value=", "");
    КонецЕсли;
  
    .................
     
КонецФункции

где в результате в переменную СтрокаJSON будет чистый джейсон, который можем скормить

ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(JSON);
Структура = ПрочитатьJSON(СтрокаJSON );

 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07