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

26.08.15

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

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
Base64Decode.epf .epf 6,71Kb 96	96	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С v8.3 Бесплатно (free)

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

14.05.2025 4961 DeerCven 14

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

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

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

22.07.2024 9064 233 ixijixi 10

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

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

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

21.05.2024 45136 dimanich70 83

161

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

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

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

1 стартмани

18.03.2024 6679 6 John_d 13

GUID в 1С 8.3

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

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

12.02.2024 55640 atdonya 31

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

Универсальные функции Программист 1С v8.3 Бесплатно (free)

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

30.11.2023 8430 ke.92@mail.ru 17

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

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

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

15.09.2023 38470 YA_418728146 14

126

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

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

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

28.08.2023 22367 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 2205 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 3851 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 1527 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

Статистика:

Просмотры 87034

Загрузки 96

Рейтинг 15

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

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

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

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

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

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

Платформа 1С v8.3

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

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

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

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

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

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

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