Выгрузить картинки из 1с
Понадобилась мне на днях пару картинок для своей ‘самописной’ конфигурации учета клиентов и разработок. Решил взять их из библиотеки стандартных подсистем. Но в процессе сохранения отдельно каждой картинке я подумал: А нельзя ли написать обработку, которая выгрузит все картинки из базы из объекта метаданных ‘ОбщиеКартинки’? Как оказалось можно:
Немного времени поиска решений в интернете и вот у меня есть готовая обработка, которая из любой конфигурации (обработка под УФ, но легко переделывается под обычные формы) выгрузит все общие картинки. В принципе код выгрузки элементарен:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
&НаКлиенте Процедура ВыгрузитьКартинки(Команда) Если НЕ ЗначениеЗаполнено(ПутьККаталогу) Тогда Возврат; КонецЕсли; ИменаКартинок = ПолучитьИменаКартинок(); Для каждого Элемент Из ИменаКартинок Цикл Картинка = БиблиотекаКартинок[Элемент]; ИмяФайла = ПутьККаталогу + "\" + Элемент + ".jpg"; Картинка.Записать(ИмяФайла); КонецЦикла; КонецПроцедуры &НаСервере Функция ПолучитьИменаКартинок() Результат = Новый Массив; Для каждого ОбщКартинка Из Метаданные.ОбщиеКартинки Цикл Результат.Добавить(ОбщКартинка.Имя); КонецЦикла; Возврат Результат; КонецФункции |
Качаем обработку и получаем все картинки любой конфигурации. Удачи!
Скачать файлы Выгрузка картинок из конфигурации (.epf)