Программно выгрузить картинки из базы 1С УТ 10.3 в каталог

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);

 

Если Диалог.Выбрать() Тогда

   ИмяКаталога = Диалог.Каталог;

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

               | ХранилищеДополнительнойИнформации.Ссылка

               |ИЗ

               | Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации";

Строка = Запрос.Выполнить().Выбрать();

Сообщить("Начало выгрузки картинок "+  ИмяКаталога + " "+текущаяДата());

Пока Строка.Следующий() Цикл

Если строка.ссылка.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение  Тогда

Данные = строка.Ссылка.Хранилище.Получить();

Диалог.ПолноеИмяФайла = ИмяКаталога +"/"+строка.ссылка.ИмяФайла;


    ИмяФайла = Диалог.ПолноеИмяФайла;

      Попытка

         Данные.Записать(ИмяФайла);

       Исключение              

Сообщить(ОписаниеОшибки()); 

Конецпопытки;

КонецЕсли;

КонецЦикла;

   Сообщить("Выгрузка завершена "+ ИмяКаталога + " " +ТекущаяДата());

   КонецЕсли;

В статье ниже пример, как загрузить картинки в базу