Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 дек 2024, 18:33

Хранилище значений

Автор Sokolov, 29 апр 2014, 12:08

0 Пользователей и 1 гость просматривают эту тему.

Sokolov

Всем привет!
Подскажите как извлекать картинки, которые хранятся в справочнике в поле с типом хранилище значений и сохранять их на HDD?

MuI_I_Ika

ХранилищеЗначений = Справочник.ХранилищеЗначений.Получить();
Картинка = Новый Картинка(ХранилищеЗначений);
Картинка.Записать(Путь);

Sokolov

Сделал пробную обработку.

&НаСервере
  Процедура Команда1Сервер()
   //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

   i=1;
   Макет = Обработки.Картинки.ПолучитьМакет("Макет");
   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ ПЕРВЫЕ 10
      |   НоменклатураПрисоединенныеФайлы.Ссылка,
      |   НоменклатураПрисоединенныеФайлы.Наименование,
      |   НоменклатураПрисоединенныеФайлы.Расширение,
      |   НоменклатураПрисоединенныеФайлы.ФайлХранилище
      |ИЗ
      |   Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
      |ГДЕ
      |   НоменклатураПрисоединенныеФайлы.Расширение = ""jpg""";

   Результат = Запрос.Выполнить();

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
   ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
   ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
   ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

   ТабДок.Очистить();
   ТабДок.Вывести(ОбластьЗаголовок);
   ТабДок.Вывести(ОбластьШапкаТаблицы);
   ТабДок.НачатьАвтогруппировкуСтрок();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();

   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
      ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
      ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
      
      
Имяфайла="D:\Sokolov\pict\"+i+".jpg";
i=i+1;
   
ХранилищеЗначений = ВыборкаДетальныеЗаписи.ФайлХранилище.Получить();
Картинка = Новый Картинка(ХранилищеЗначений);
Картинка.Записать(Имяфайла);
   КонецЦикла;
   ТабДок.ЗакончитьАвтогруппировкуСтрок();
   ТабДок.Вывести(ОбластьПодвалТаблицы);
   ТабДок.Вывести(ОбластьПодвал);

   //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
  КонецПроцедуры

Создает 10 пустых картинок. Вычисление значения переменной "ХранилищеЗначений" отладчиком: тип - неопределено, значение пустое.
Что я сделал не так?


Добавлено: 30 апр 2014, 08:44


Помогите пожалуйста!!! А то начальство требует!

wise

(2)ХранилищеЗначений = ВыборкаДетальныеЗаписи.Ссылка.ФайлХранилище.Получить();
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Sokolov

Цитата: wise от 30 апр 2014, 09:31ХранилищеЗначений = ВыборкаДетальныеЗаписи.Ссылка.ФайлХранилище.Получить();

Так тоже не получается (((. Тип опять неопределено.
Может ещё какие варианты есть?

wise

(4)КАКОЙ ТипЗнч(ВыборкаДетальныеЗаписи.Ссылка) ??
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск