Пользователь пока ничего не рассказал о себе

Наибольший вклад в теги

Все теги (3)

Лучшие ответы пользователя

Все ответы (3)
  • 1с передача текста запроса в http-service, возврат рузультат в json?

    @nuctoh
    Функция ВыполнитьЗапрос(ТекстЗапроса, ПараметрыJSON)
    	
    	Запрос = Новый Запрос(ТекстЗапроса);
    	
    	//Тут парсим ПараметрыJSON
    	
    	тзРезультат = Запрос.Выполнить().Выгрузить();
    	
    	мОтвет = Новый Массив;
    	
    	Для Каждого ТекСтрока Из тзРезультат Цикл
    		НовСтрокаОтвета = Новый Массив;
    		Для Каждого ТекКолонка Из тзРезультат.Колонки Цикл
    			НовСтрокаОтвета.Добавить(Новый Структура("key, val", ТекКолонка.Имя, XMLСтрока(ТекСтрока[ТекКолонка.Имя]));
    		КонецЦикла;
    		мОтвет.Добавить(НовСтрокаОтвета);
    	КонецЦикла;
    	
    	ЗаписьJSON = Новый ЗаписьJSON;
    	ЗаписьJSON.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, Символы.Таб));
    	ЗаписатьJSON(ЗаписьJSON, мОтвет);
    	
    	Возврат ЗаписьJSON.Закрыть();
    	
    КонецФункции
    Ответ написан
    Комментировать