Универсальный метод сериализации значений в 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 не пострадал.