Каталог решений - Универсальный метод сериализации значений в XML для локальных баз 1С на любом типе клиента под платформы 8.2 и 8.3

В настоящее время со стороны 1С существуют 3 метода сериализации значений:

1. Старый способ со времен 7.7.
2. Метод XML — довольно распространенный.
3. Метод JSON — начиная с 8.3.6. 

Однако, при знакомстве с мобильной платформой выяснились следующие проблемы: старые добрые функции для серилизации не работают — это ЗначениеИзВнутСтроки() и ЗначениеВоВнутСтроку(). Точнее их вообще нет здесь.

Так как при создании моей Консоли Запросов я использовал не только платформу 8.3, но и 8.2 — то единственным доступным вариантом в моем случае остался 2-й метод. 

Универсальная Сериализация через XML

Стандартно для этих целей существуют следующие функции из БСП: 

  //  Строка - XML-строка.
  //
  Функция ЗначениеВСтрокуXML(Значение) Экспорт
  	
  	ЗаписьXML = Новый ЗаписьXML;
  	ЗаписьXML.УстановитьСтроку();
  	СериализаторXDTO.ЗаписатьXML(ЗаписьXML, Значение);
  	Возврат ЗаписьXML.Закрыть();
  КонецФункции
  
  // Выполняет преобразование (десериализацию) XML-строки в значение.
  // См. также ЗначениеВСтрокуXML.
  //
  // Параметры:
  //  СтрокаXML - Строка - XML-строка, с сериализованным объектом..
  //
  // Возвращаемое значение:
  //  Произвольный - значение, полученное из переданной XML-строки.
  //
  Функция ЗначениеИзСтрокиXML(СтрокаXML) Экспорт
  	
  	ЧтениеXML = Новый ЧтениеXML;
  	ЧтениеXML.УстановитьСтроку(СтрокаXML);
  		
  	Значение=СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
  	Возврат Значение;
  	
  КонецФункции

Эти функции, взятые из БСП, — хорошие. Однако передать через них серьезные объекты (в моем случае это был тип данных РезультатЗапроса) без выгрузки или других танцев с бубном в рамках портирования консоли на мобильные платформы оказалось абсолютно невозможным, так как данные типы тип не сериализуются XDTO. 

Однако для этого можно применить следующее правило, которое может работать в пределах одной базы: 

1. Если тип сериализуется — ничего не делаем. Сразу преобразуем.
2. Если нельзя сериализовать- упаковываем в хранилище значений. Следует отметить, что хранилище значений упаковывается также, чтобы с ним не было проблем.

Итоговые правки в код дают следующие функции:

  // Преобразованы в могут быть любые объекты (дополнено через ХранилищеЗначения.
  // См. также ЗначениеИзСтрокиXML.
  //
  // Параметры:
  //  Значение - Произвольный - значение, которое необходимо сериализовать в XML-строку.
  //
  // Возвращаемое значение:
  //  Строка - XML-строка.
  //
  Функция ЗначениеВСтрокуXML(Значение) Экспорт
  	
  	ЗаписьXML = Новый ЗаписьXML;
  	ЗаписьXML.УстановитьСтроку();
      Если Значение=Тип("ХранилищеЗначения") Тогда
        //Сохраняем жизнь исходному типу - через оборачивание.
          ХранилищеЗначения=новый ХранилищеЗначения(Значение);
  		СериализаторXDTO.ЗаписатьXML(ЗаписьXML, ХранилищеЗначения);
      иначе
         //Выполняем Сериализацию:
  	   попытка
  		  СериализаторXDTO.ЗаписатьXML(ЗаписьXML, Значение);
  	   исключение
  		 ХранилищеЗначения=новый ХранилищеЗначения(Значение);
  		 СериализаторXDTO.ЗаписатьXML(ЗаписьXML, ХранилищеЗначения);
  	   КонецПопытки;
      КонецЕсли;
  	Возврат ЗаписьXML.Закрыть();
  КонецФункции
  
  // Выполняет преобразование (десериализацию) XML-строки в значение.
  // См. также ЗначениеВСтрокуXML.
  //
  // Параметры:
  //  СтрокаXML - Строка - XML-строка, с сериализованным объектом..
  //
  // Возвращаемое значение:
  //  Произвольный - значение, полученное из переданной XML-строки.
  //
  Функция ЗначениеИзСтрокиXML(СтрокаXML) Экспорт
  	
  	ЧтениеXML = Новый ЧтениеXML;
  	ЧтениеXML.УстановитьСтроку(СтрокаXML);	
  	ХранилищеЗначение=СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
      //Восстанавливаем значение из Хранилища:
  	Если ХранилищеЗначение=Тип("ХранилищеЗначения") Тогда
  		
  		Возврат ХранилищеЗначение.Получить();
  
  	иначе 
  		Возврат ХранилищеЗначение;
  
  	КонецЕсли;
  	
  КонецФункции

Если есть необходимость ввести универсальную функцию, которая совместима на компьютерных платформах со старым внутренним форматом 1С (мне понадобилось для работы с Консолью Запросов на Windows), тогда полученные универсальные функции:

  Функция УниверсальнаяЗначениеВСтрокуВнутр(Значение) 
  	
  	Попытка
  		
  		
  		возврат Вычислить("ЗначениеВСтрокуВнутр(Значение)");
  		
  	Исключение
  		//Для мобильных приложений выполняем по правилам XMl-Функций, которые были переделаны:
  		
  		возврат ЗначениеВСтрокуXML(Значение);
  		
  		
  	КонецПопытки;	
  	
  КонецФункции	
  
  
  Функция УниверсальнаяЗначениеИзСтрокиВнутр(Значение) 
  	
  	Попытка
  		
  		возврат Вычислить("ЗначениеИзСтрокиВнутр(Значение)");
  		
  	Исключение
  		//Для мобильных приложений выполняем по правилам XMl-Функций, которые были переделаны:
  		
  		возврат ЗначениеИзСтрокиXML(Значение);
  				
  	КонецПопытки;	
  	
  КонецФункции
  

PS: приведенными функциями в пределах одной базы можно пользоваться на следующих платформах: 

1. Компьютерные: 1С 8.2 и 1С 8.3 — Тонкий, Толстый, ВебКлиент.
2. На мобильных платформах 8.3 можно использовать универсальные переделанные функции БСП для аналога внутренних значений.

Тестировалось на платформах 8.2 и 8.3. Режим совместимости с 8.1 не пострадал.