Как преобразовать строку Base64 в изображение JPG в 1С 7.7

← На главную

При работе с современными мобильными приложениями или веб-сервисами программисты 1С 7.7 часто сталкиваются с необходимостью обработки данных в формате Base64. Типичная ситуация: планшет передает фотографию в виде длинной текстовой строки, которую необходимо превратить в файл .jpg для последующего вывода на печать или хранения в базе данных. Однако здесь мы натыкаемся на фундаментальное ограничение старой платформы «1С:Предприятие 7.7».

В этой статье мы подробно разберем, почему штатные средства 1С 7.7 не позволяют решить задачу «в лоб», и проанализируем несколько надежных способов обхода этих ограничений.

Причина сложности: проблема «нулевого символа»

Разберем ситуацию: формат Base64 — это текстовое представление бинарных данных. Чтобы получить из него картинку, строку нужно декодировать в массив байтов. Главная проблема заключается в том, что движок 1С 7.7 работает со строками как с C-style строками, где символ с кодом 0 (null-terminator) является признаком окончания строки. Бинарный файл изображения (JPG) практически всегда содержит байты с кодом 0. Как только 1С встречает такой символ в строковой переменной, она «считает», что строка закончилась, и при попытке записи в файл данные обрезаются.

Именно поэтому мы не можем просто использовать функцию Текст.ДобавитьСтроку() или объект ФС для записи бинарных данных. Нам требуются инструменты, которые умеют работать с памятью напрямую или через посредников (COM-объекты).

Способ №1: Использование компоненты 1CPP и объекта BinaryData

Это, пожалуй, самый элегантный и «родной» для разработчика 1С 7.7 способ. Если в вашей конфигурации используется библиотека 1cpp.dll, задача решается буквально несколькими строками кода. Объект BinaryData специально спроектирован для работы с двоичными данными в обход строковых ограничений платформы.

Проанализируем пример кода:


// Создаем объект из компоненты 1CPP
Попытка
    БинарныеДанные = СоздатьОбъект("BinaryData");
Исключение
    Предупреждение("Компонента 1CPP не загружена!");
    Возврат;
КонецПопытки;

// Предположим, что СтрBase64 - это наша исходная строка
// Декодируем Base64 и сразу записываем в файл на диске
ПутьКФайлу = "C:\Temp\image.jpg";
БинарныеДанные.ИзBase64(СтрBase64);
БинарныеДанные.ЗаписатьВФайл(ПутьКФайлу);

В данном примере метод ИзBase64 выполняет всю тяжелую работу по декодированию, а метод ЗаписатьВФайл корректно сохраняет результат, не опасаясь нулевых байтов. Это самый быстрый способ с точки зрения производительности.

Способ №2: Использование ADODB.Stream (без внешних компонент 1С)

Если вы не можете или не хотите регистрировать сторонние .dll в системе, можно воспользоваться стандартными средствами Windows, доступными через COM-соединение. Мы задействуем связку из MSXML2.DOMDocument (для декодирования текста) и ADODB.Stream (для записи бинарного потока).

Рассмотрим пошагово, как это реализовать:

Создаем XML-документ в памяти.
Создаем внутри него элемент с типом данных bin.base64.
Помещаем нашу строку в этот элемент — Windows автоматически преобразует её в массив байтов.
Передаем этот массив в объект ADODB.Stream, который умеет сохранять «сырые» данные на диск.

Пример программного кода:


Процедура СохранитьКартинкуИзBase64(ТекстBase64, ПутьКФайлу)
    // 1. Декодирование через MSXML
    xml = СоздатьОбъект("MSXML2.DOMDocument");
    Элемент = xml.createElement("Base64Data");
    Элемент.dataType = "bin.base64";
    Элемент.text = ТекстBase64;
    
    // Получаем массив байтов (SafeArray)
    Данные = Элемент.nodeTypedValue;
    
    // 2. Запись через ADODB.Stream
    Поток = СоздатьОбъект("ADODB.Stream");
    Поток.Type = 1; // adTypeBinary (бинарный режим)
    Поток.Open();
    Поток.Write(Данные);
    Поток.SaveToFile(ПутьКФайлу, 2); // 2 - adSaveCreateOverWrite (перезаписать, если существует)
    Поток.Close();
КонецПроцедуры

Этот метод крайне надежен, так как использует системные библиотеки, которые гарантированно присутствуют в Windows начиная с версии XP.

Способ №3: Использование системной утилиты CertUtil

Выясним еще один интересный способ, который часто незаслуженно забывают. В составе Windows есть консольная утилита certutil, которая умеет работать с кодировками. Мы можем сохранить строку Base64 в обычный текстовый файл, а затем вызвать команду системы для его декодирования.

Разберем последовательность действий:

Записываем строку Base64 в файл input.txt штатными средствами 1С (объект Текст).
Выполняем команду: certutil -decode input.txt output.jpg.
Удаляем временный текстовый файл.

Пример реализации через КомандаСистемы:


Т = СоздатьОбъект("Текст");
Т.ДобавитьСтроку(СтрBase64);
Т.Записать("C:\temp\base64.txt");

// Вызываем системную утилиту в скрытом режиме
Команда = "certutil -decode ""C:\temp\base64.txt"" ""C:\temp\result.jpg""";
КомандаСистемы(Команда);

Важный нюанс: Утилита certutil ожидает, что файл Base64 может содержать заголовки сертификатов. Если декодирование не срабатывает, убедитесь, что в строке нет лишних пробелов или переносов строк, которые 1С может добавлять при записи текстового файла.

Вывод на печать полученного изображения

После того как мы успешно сохранили файл .jpg на диск одним из вышеперечисленных способов, нам нужно показать его пользователю или распечатать. В 1С 7.7 это делается следующим образом:

В редакторе печатной формы (таблицы) выберите пункт меню «Вставить -> Рисунок».
В свойствах рисунка на вкладке «Общие» укажите тип «Картинка».
Запомните идентификатор этого рисунка (например, ФотоПланшета).

В программном коде перед выводом секции на печать выполните загрузку файла:


Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ПечатьФото");
// ... формирование строк ...
Картинка = Таб.ТекущийОбъект; // Обращаемся к объекту рисунка в таблице
Картинка.Загрузить("C:\temp\result.jpg");
Таб.ВывестиСекцию("Данные");
Таб.Показать();