Кодирование строк в формат Base64 и обратно в 1С 8.Х

26.08.15

Обработка на управляемых формах для 1С для преобразования строковых данных в формат Base64 и обратно

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Base64Decode.epf .epf 6,71Kb 97	97	1 850 руб. Купить	1 SM Скачать

Была уже публикация с примером кода для 1С //infostart.ru/public/252365/

Но, по-моему, это велосипед. Моя обработка в 10 строк кода выглядит элегантнее))

Вот пример кода:

&НаКлиенте
Процедура Decode(Команда)
	
	ДвДанные = Base64Значение(Encoded);
	Если ДвДанные = Неопределено Тогда
		Предупреждение("Ошибка формата Base64");
		Возврат;
	КонецЕсли;
	ВременныйФайл = ПолучитьИмяВременногоФайла();
	ДвДанные.Записать(ВременныйФайл);
	
	КодировкаФайла = Кодировка;
	
	Если Кодировка = "ANSI" Тогда
		КодировкаФайла = КодировкаТекста.ANSI;
		
	ИначеЕсли Кодировка = "OEM" Тогда
		КодировкаФайла = КодировкаТекста.OEM;
		
	ИначеЕсли Кодировка = "UTF8" Тогда
		КодировкаФайла = КодировкаТекста.UTF8;
		
	ИначеЕсли Кодировка = "UTF16" Тогда
		КодировкаФайла = КодировкаТекста.UTF16;
		
	ИначеЕсли Кодировка = "Системная" Тогда
		КодировкаФайла = КодировкаТекста.Системная;
	
	КонецЕсли;
	Чтение = Новый ЧтениеТекста(ВременныйФайл, КодировкаФайла);
	Decoded = Чтение.Прочитать();
	Чтение.Закрыть();
	УдалитьФайлы(ВременныйФайл);
	
КонецПроцедуры

&НаКлиенте
Процедура Encode(Команда)
	
	КодировкаФайла = Кодировка;
	
	Если Кодировка = "ANSI" Тогда
		КодировкаФайла = КодировкаТекста.ANSI;
		
	ИначеЕсли Кодировка = "OEM" Тогда
		КодировкаФайла = КодировкаТекста.OEM;
		
	ИначеЕсли Кодировка = "UTF8" Тогда
		КодировкаФайла = КодировкаТекста.UTF8;
		
	ИначеЕсли Кодировка = "UTF16" Тогда
		КодировкаФайла = КодировкаТекста.UTF16;
		
	ИначеЕсли Кодировка = "Системная" Тогда
		КодировкаФайла = КодировкаТекста.Системная;
	
	КонецЕсли;
	ВременныйФайл = ПолучитьИмяВременногоФайла();
	
	Запись = Новый ЗаписьТекста(ВременныйФайл, КодировкаФайла);
	Запись.Записать(Decoded);
	Запись.Закрыть();
	
	ДвДанные = Новый ДвоичныеДанные(ВременныйФайл);
	Encoded = Base64Строка(ДвДанные);
	
	УдалитьФайлы(ВременныйФайл);
	
КонецПроцедуры

Вступайте в нашу телеграмм-группу Инфостарт

base64 1С 8.x Двоичные данные

+16 –1

См. также

Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025 5496 DeerCven 15

В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024 9345 237 ixijixi 10

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 46600 dimanich70 83

165

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 6890 6 John_d 13

GUID в 1С 8.3

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 57790 atdonya 31

Переоткрытие внешних обработок

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 8661 ke.92@mail.ru 17

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 39585 YA_418728146 14

127

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 22868 YA_418728146 8

174

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. alexandersh 268 09.05.17 16:08 Сейчас в теме

сорри... мой комментарий был к другой публикации, промазал)

2. Alexey_ 27 09.05.17 17:09 Сейчас в теме

Моя обработка в 10 строк кода выглядит элегантнее))

Особенно элегантно выглядит вот этот фрагмент:

Если Кодировка = "ANSI" Тогда
        КодировкаФайла = КодировкаТекста.ANSI;
        
    ИначеЕсли Кодировка = "OEM" Тогда
        КодировкаФайла = КодировкаТекста.OEM;
        
    ИначеЕсли Кодировка = "UTF8" Тогда
        КодировкаФайла = КодировкаТекста.UTF8;
        
    ИначеЕсли Кодировка = "UTF16" Тогда
        КодировкаФайла = КодировкаТекста.UTF16;
        
    ИначеЕсли Кодировка = "Системная" Тогда
        КодировкаФайла = КодировкаТекста.Системная;
    
    КонецЕсли;

Показать

Ответить

3. kris_barbina 45 09.05.17 23:44 Сейчас в теме

(2), ну мир без костылей был бы идеален до безобразия))
можно использовать кодировку по умолчанию (опустить этот параметр), посмотри что будет.... я уже не помню зачем этот костыль был придуман

4. Alexey_ 27 10.05.17 08:29 Сейчас в теме

(3) я о том, что этот фрагмент можно заменить одной строкой

КодировкаФайла = КодировкаТекста[Кодировка];

Ответить

5. trx2008 15.09.17 14:01 Сейчас в теме

Доброго дня!
у меня при попытке декодирования ничего не происходит ((((

6. ujinn 18.09.17 14:20 Сейчас в теме

Интересно, почему при попытке преобразовать в Base64 строку с латиницей -функция Base64Значение(Строка) возвращает неопределено?
и как это вылечить, кто-нибудь знает?

7. kuzyara 2211 20.09.17 14:20 Сейчас в теме

    Запись = Новый ЗаписьТекста(ВременныйФайл, "ISO-8859-1");

8. Cerberdm 42 12.12.17 17:46 Сейчас в теме

Вместо временного файла можно использовать: ДвДанные.ОткрытьПотокДляЧтения()

9. kadr 56 06.03.19 08:12 Сейчас в теме

Для 8.3 вполне подходит

СтрокаКодирования = "123456:123456";

ПотокВПамяти = Новый ПотокВПамяти();
ЗаписьДанных = Новый ЗаписьДанных(ПотокВПамяти);
ЗаписьДанных.ЗаписатьСтроку(СтрокаКодирования);
ДД = ПотокВпамяти.ЗакрытьИПолучитьДвоичныеДанные();

Строка = Base64Строка(ДД);

// ДЕКОДИРОВАНИЕ
ДД1 = Base64Значение(Строка);
ЧтениеДанных = Новый ЧтениеДанных(ДД1);
СтрокаРаскодированная = ЧтениеДанных.ПрочитатьСтроку();
ЧтениеДанных.Закрыть();

Показать

Ответить

11. Tatitutu 3852 06.09.19 19:43 Сейчас в теме

(9) С оригинальными кодами маркировки обуви - ваш метод не срабатывает.
Съедает спец.символы
При раскодирование будет неверный результат

15. ЗС1 04.12.19 14:56 Сейчас в теме

(11) А как правильно?

16. Istur 1475 31.05.23 12:38 Сейчас в теме

(9) надо не запись данных, а запись текста, результаты разные

ПотокВПамяти 	= Новый ПотокВПамяти();
ЗаписьТекста = Новый ЗаписьТекста(ПотокВПамяти);
ЗаписьТекста.Записать(Текст);
ЗаписьТекста.Закрыть();
ДвДанные 		= ПотокВпамяти.ЗакрытьИПолучитьДвоичныеДанные();
	
Возврат Base64Строка(ДвДанные);

20. Xershi 1531 30.04.24 13:54 Сейчас в теме

(9) еще хочу добавить, что данный метод не верно возвращал данные.
1С:Предприятие 8.3 (8.3.23.2040)
Возможно параметрами нужно управлять по умолчанию.
А вот (12) решило проблему!

10. пользователь 15.07.19 10:47

Сообщение было скрыто модератором.

...

12. artmaks1988 22 12.09.19 12:31 Сейчас в теме

Можно проще:

 
//Кодируем

ИсходныяСтрока = "Что-то хочу закодировать";

ДвоичныеДанныеСтроки = ПолучитьДвоичныеДанныеИзСтроки(ИсходныяСтрока);

СтрокаBase64 = Base64Строка(ДвоичныеДанныеСтроки);

Показать

//Декодируем

ДвоичныеДанныеСтроки = Base64Значение(СтрокаBase64);

ИсходныяСтрока = ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанныеСтроки);

Ответить

21. Avatarzorro 64 30.05.25 07:20 Сейчас в теме

(12) держи плюсик

13. spp28 24 28.11.19 05:21 Сейчас в теме

Доброго времени суток. Никто не пробовал декодировать строку длиной 1500000 символов? Base64Значение возвращает обрезанные двоичные данные, которые содержат первые примерно 50 символов из 1500000.

14. spp28 24 29.11.19 04:26 Сейчас в теме

https://forum.infostart.ru/forum9/topic167369/
Тут ответ.

17. Snouphruh 30.01.24 14:23 Сейчас в теме

уверен, подобный способ уже сильно неактуальный.

сегодня это делается в одну строчку:
Base64Строка (ПолучитьДвоичныеДанныеИзСтроки ("…"))

18. пользователь 30.01.24 14:24

Сообщение было скрыто модератором.

...

19. пользователь 30.01.24 14:25

Сообщение было скрыто модератором.

...

Для отправки сообщения требуется регистрация/авторизация

Автор:

(kris_barbina)

Рейтинг: 45

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 392252

Создание 26.08.15 12:58

Обновление 26.08.15 12:58

Статистика:

Просмотры 87722

Загрузки 97

Рейтинг 15

Комментарии 18

Характеристики:

Код открыт Не указано

Рубрики Универсальные функции

Кому Программист

Тип файла Внешняя обработка (ert,epf)

Платформа 1С:Предприятие 8

Конфигурация Универсальные

Операционная система Windows

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)