добрый день.
Хотел попросить помощь у опытных спецов, кои я уверен являются форумчане.
В версии 8.3 появился такой формат как JSON. Мне интересно есть ли какой нибудь стандартный парсер для json формата. Ну к примеру что бы результат запроса автоматически в JSON формат, или же придется как и в xml все ручками писать. Ну к примеру в javascript есть автоматический парсер из json в многомерный массив и наоборот. Есть ли стандартные средства в 8.3?

(0) Сериализуемые объекты 1С можно автоматом сериализовать в JSON через СериализаторXDTO

ок , можно пример?
вот простенький запрос, результат выводится в тз. Можно ли сразу тз в json формат перевести?

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Ссылка,
        |    Номенклатура.Родитель,
        |    Номенклатура.ЭтоГруппа,
        |    Номенклатура.Код,
        |    Номенклатура.Наименование,
        |    Номенклатура.Сумма,
        |    Номенклатура.ВидНоменклатуры,
        |    Номенклатура.Цена
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура";
    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();

В таблицу значений и уже потом ее в JSON. результат запроса не сериализуется

а, сорри, ща

(2) Как то так
ЗаписьJSON = Новый ЗаписьJSON;
ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( ,Символы.Таб);
ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,ПараметрыЗаписиJSON);
СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON, Результат);
ЗаписьJSON.Закрыть();

{HTTPСервис.users.Модуль(84)}: Метод объекта не обнаружен (ЗаписатьJSON)
нет у СериализаторXDTO метода ЗаписьJSON

(6) платформа какая?

8.3.6.2390
нужно обновится до 8.3.7?

(8) 8.3.7.1759 и выше

http://v8.1c.ru/o7/201501json/index.htm

Реализовано в версии 8.3.7.1759

ок сейчас обновлю попробую

а еще просвятите - 8.3.8 - это ведь 8.3.7+, или 8.3.6+, минуя фишечки 8.3.7?

(12) 8.3.8 тоже мертво рожденая,8.3.9 (и уже моячит 8.3.10)

так, то есть качать все-таки 8.3.7... ок

(14) Да не я вот впродакш 8.3.8 не пускал, но работаю (конфы обновляю, конфигурю) и кое где действительно шустро работает

а JSON в ней и вот это все?

(12) 8.3 по порядку развивается, а вот 8.4 уже совсем другая история.
Но там пока альфа

2(17) а, все, сенкс... 8.4, точно...

обновил
пробую зайти на hhtp сервис вот что пишет
1C:Enterprise 8 application error:

Ошибка при разборе дескриптора виртуальных ресурсов
by reason:
Ошибка преобразования данных XDTO: НачалоСвойства: protocol    Форма: Атрибут    Тип: {http://www.w3.org/2001/XMLSchema}anySimpleT

(0) А для каких целей вы используете JSON? У вас стороннее приложение на вход принимает JSON от 1С?

Или используйте - ЗначениеВФайл();

да, есть веб интерфейс написанный на webix, должен принимать данные в формате json

(21) Тогда нужно использовать обычную функцию ЗаписатьJson() без всяких серилизаторов
В формате JSON допускается записывать только значения следующих типов:
Строка,
Число,
Булево,
Дата (преобразованная в строку),
Массив,
ФиксированныйМассив,
Структура,
ФиксированнаяСтруктура,
Соответствие,
ФиксированноеСоответствие.

а что за строчка ?
ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,ПараметрыЗаписиJSON);
я же не со стороннего файла считываю json а с Тз

в общем для ясности цель такая
выгружать результаты запросов (естественно в ТЗ) через post запрос ,так что бы не приходилось парсить каждый запрос, а просто выгрузить его и передать стандартными средствами в формате json

(24) Ты это ТЗ с сервера 1С на клиент передать не можешь, при этом хочешь чтоб сторонний сервис их понимал. ТЗ не сериализуется - передавай массив структур в Json.

+(24) Да, заведи себе процедурку в общем серверном модуле, которая будет из ТЗ делать массив структур. То есть запросы выгружаешь в ТЗ, ТЗ - в массив структур и уже последний сериализуешь в джейсон.
2(25) Ну, в объет ХДТО ТЗ все-таки серализуется

так цель в том что бы стандартными средствами перевести тз в json и далее передать данные по hhtp запросу.

вот что я написал
        Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Ссылка,
        |    Номенклатура.Родитель,
        |    Номенклатура.ЭтоГруппа,
        |    Номенклатура.Код,
        |    Номенклатура.Наименование,
        |    Номенклатура.Сумма,
        |    Номенклатура.ВидНоменклатуры,
        |    Номенклатура.Цена
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура";
    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    ЗаписьJSON = Новый ЗаписьJSON;
    ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( ,Символы.Таб);
    ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,ПараметрыЗаписиJSON);
    СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON, РезультатЗапроса);
    ЗаписьJSON.Закрыть();


выдает ошибку

    ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,ПараметрыЗаписиJSON);
по причине:
Ошибка доступа к файлу 'ИмяФайла'

2(27) Чувак, тебе в (22) посте все буквы видны?

да, но выходит тз нельзя записать в json?

2(29) а в (26)-м посте какие буквы не видны?

ок, буду передавать массив, тз отпадает
другой вопрос, выдает ошибку

{Форма.Форма.Форма(24)}: Ошибка при вызове метода контекста (ОткрытьФайл)
    ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,ПараметрыЗаписиJSON);
по причине:
Ошибка доступа к файлу 'ИмяФайла'

воот... погоди пока...

(30) Да с ним бесполезно. Он даже название протокола (hhtp) нормально написать не может.

arsik во первых я пишу быстро, а во вторых не старайся зайти за умного. Я поднял интересный вопрос на который мало инфомации в интернете.Хочешь показаться крутым программером, напиши по делу а потом макай в какашки

(34) "интересный вопрос на который мало инфомации в интернете"
Это вдвойне смешнее.
http://bfy.tw/4Yum

я тебе сокращю время
http://v8.1c.ru/o7/201501json/index.htm
изыди в общем.Не понимаю к чему эти понты? Не хочешь помочь пройди мимо

Американский форум. Задаёшь вопрос, потом тебе отвечают.
Израильский форум. Задаёшь вопрос, потом тебе задают вопрос.
Русский форум. Задаёшь вопрос, потом тебе долго рассказывают,
какой ты дурак.

(37) Тебе выше уже все объяснили. Если бы внимательно смотрел в свой код, давно бы уже ошибку нашел.

ой.. простите...

arsik я уже понял что тз нельзя передавать в json.У меня сейчас другая ошибка

в общем переделал так


&НаСервере
Процедура ПеревестивВJsonНаСервере()
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Ссылка,
        |    Номенклатура.Родитель,
        |    Номенклатура.ЭтоГруппа,
        |    Номенклатура.Код,
        |    Номенклатура.Наименование,
        |    Номенклатура.Сумма,
        |    Номенклатура.ВидНоменклатуры,
        |    Номенклатура.Цена
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура";
    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    мРезЗапроса=ТабЗначВМассив(РезультатЗапроса);
    
    ЗаписьJSON = Новый ЗаписьJSON;

    ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,Новый ПараметрыЗаписиJSON( ,Символы.Таб));
    ЗаписатьJSON(ЗаписьJSON, мРезЗапроса);
    ЗаписьJSON.Закрыть();

КонецПроцедуры

&НаКлиенте
Процедура ПеревестивВJson(Команда)
    ПеревестивВJsonНаСервере();
КонецПроцедуры

Функция ТабЗначВМассив(ТаблицаЗначений) Экспорт
    НашМассив = Новый Массив;
    Для Каждого СтрокаТаблицы из ТаблицаЗначений Цикл
        НашаСтруктура = Новый Структура;
        Счетчик = 0;
        Для Каждого СтрокаСтруктуры из СтрокаТаблицы Цикл
            Если НЕ ТипЗнч(СтрокаСтруктуры) = Тип(ТаблицаЗначений) тогда
                НашаСтруктура.Вставить(ТаблицаЗначений.Колонки[Счетчик].Имя,СтрокаТаблицы[Счетчик]);
            Иначе
                НашаСтруктура.Вставить(ТаблицаЗначений.Колонки[Счетчик].Имя,ТабЗначВМассив(СтрокаСтруктуры));
            КонецЕсли;
            Счетчик = Счетчик + 1;
        КонецЦикла;
        НашМассив.Добавить(НашаСтруктура);
    КонецЦикла;
    Возврат(НашМассив);
КонецФункции


но выдает ту же ошибку

{Форма.Форма.Форма(24)}: Ошибка при вызове метода контекста (ОткрытьФайл)
    ЗаписьJSON.ОткрытьФайл("ИмяФайла",,,Новый ПараметрыЗаписиJSON( ,Символы.Таб));
по причине:
Ошибка доступа к файлу 'ИмяФайла'

ЗаписьJSON = Новый ЗаписьJSON();
ЗаписьJSON.УстановитьСтроку();
ЗаписатьJSON(ЗаписьJSON, СтруктураДанных);
Json = ЗаписьJSON.Закрыть();

(41) ищи. Я ошибку вижу. :)

2(42) ну неужели непонятно, что нет такого файла? Или ты надеешься на то, что примерный код данный тебе на форуме, заработает после копипасты?

Живой Ископаемый получается мне нужно создать какой то промежуточный файл что бы сначала туда записался json ?

zva пишет
Передано значение недопустимого типа
хотя передал массив в второй параметр

2(46) то есть (44) не станешь пробовать потому что очень просто?
я просто не успеваю прямо сейчас тебе помочь...

2(47) попробуй сначала на массиве, в котором будет будет строка и число например...

Живой Ископаемый спасибо тебе, я понял. Вот нахера такие сложности делать, мне нафиг не нужен промежуточный файл. Нужен запрос -ответ. А получается что то вроде лога. Нафига

к сожалению 1с все таки громоздкий язык, при всех его преимущетствах жутко громоздкий синтаксис с кучей не нужных конструкций.

Ты так думаешь, потому что на Objective-C не писал... или даже не читал

ну при всей противоречивости жабыскрипта, хотя бы не чешешь левой рукой правое ухо

(50) "мне нафиг не нужен промежуточный файл. Нужен запрос -ответ. А получается что то вроде лога. Нафига"
Получается ровно то, что написал... Не нужен промежуточный файл - не используй...

ЗаписьJSON = Новый ЗаписьJSON();
    ЗаписьJSON.УстановитьСтроку();
    СтруктураДанных = Новый Структура("Строка, Дата", "АДПДпжпсжоывсм", ТекущаяДата());
    ЗаписатьJSON(ЗаписьJSON, СтруктураДанных);
    Json = ЗаписьJSON.Закрыть();

zva спасибо, то что нужно
вообще спасибо всем кто помогает

Есть метод ПрочитатьJSON(), и не нужно читать в цикле. Про запись не в курсе, вроде нет такого

2(53) тут тоже не чешешь. в 1C наоборот все strightforward.
Разве что в новых типовых и БСП уже есть какие-то более сложные паттерны