Алгоритм загрузки изображений из excel по ссылке URL в реквизит основное изображение

@nikioioio · Регистрация: 09.10.2015

Добрый день. Есть стандартная обработка "ЗагрузкаДанныхИзТабличногоДокумента" В событии при записи описан алгоритм:

1C

НомерСтолбцаИзображение = 3;
НомерСтолбцаОписаниеИзображение = 4; 
 
 
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
|   ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
|   Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|   ХранилищеДополнительнойИнформации.Объект = &Объект
|   И ХранилищеДополнительнойИнформации.Наименование = &Наименование";
 
Объект.Записать();
 
ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
 Предупреждение(ФайлКартинки.Существует());
Если ФайлКартинки.Существует() Тогда
   Предупреждение("!");
   ЗапросСуществующих.УстановитьПараметр("Объект", Объект.Ссылка);
   ЗапросСуществующих.УстановитьПараметр("Наименование", СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]));
   Выборка = ЗапросСуществующих.Выполнить().Выбрать();
   Если Выборка.Количество() <= 0 Тогда
      Предупреждение("!!");
      ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
      ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
      ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
      ХранилищеОбъект.Объект = Объект.Ссылка;
      ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
      ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
      ХранилищеОбъект.Записать();
      Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
   КонецЕсли;
КонецЕсли;

Помогите переделать алгоритм так, чтобы принимались URL Ссылки вместо локальных ссылок типа C:\...

@GreenkA · 23.03.2016, 10:30

nikioioio,

1C

&НаСервере
Процедура ЗагрузкаДанныхИзТабличногоДокумента()
....
Текст = СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]);
 
РасширениеФайла = РасширениеФайла(Текст);
АдресКартинки = СтрЗаменить(Текст, """", "");
ИмяКартинки = ПолучитьИмяКартинки(АдресКартинки);
НовоеИмя = ПолучитьИмяВременногоФайла(РасширениеФайла);
 
Попытка
  КопироватьФайл(АдресКартинки, НовоеИмя); 
 
   ЗапросСуществующих.УстановитьПараметр("Объект", Объект.Ссылка);
   ЗапросСуществующих.УстановитьПараметр("Наименование", ИмяКартинки);
   Выборка = ЗапросСуществующих.Выполнить().Выбрать();
   Если Выборка.Количество() = 0 Тогда
      Предупреждение("!!");
      ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
      ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
      ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(НовоеИмя),Новый СжатиеДанных);
      ХранилищеОбъект.Объект = Объект.Ссылка;
      ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
      ХранилищеОбъект.ИмяФайла = ИмяКартинки;
      ХранилищеОбъект.Записать();
      Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
   КонецЕсли;
  УдалитьФайлы(НовоеИмя);
Исключение
 Сообщить("Ошибка при получении картинки, возможно введен неверный URL: адрес изображения должен начинаться с ""http:""");
КонецПопытки;
...
КонецПроцедуры
 
&НаСервере
Функция РасширениеФайла(ИмяФайла)
    
    Строка = СтрЗаменить(ИмяФайла, ".", Символы.ПС);
    
    Всего = СтрЧислоСтрок(Строка);
    
    Если Всего < 2 Тогда
        Возврат "";
    КонецЕсли;
    
    Возврат СтрПолучитьСтроку(Строка, Всего);
    
КонецФункции
 
&НаСервере
Функция ПолучитьИмяКартинки(АдресКартинки)
    ИмяКартинки = "";
    ПодстрокаПоиска = АдресКартинки;
    Пока Найти(ПодстрокаПоиска,"/")>0 Цикл
        ПодстрокаПоиска = Сред(ПодстрокаПоиска,Найти(ПодстрокаПоиска,"/")+1);
    КонецЦикла;
    ИмяКартинки = Лев(ПодстрокаПоиска,Найти(ПодстрокаПоиска,".")-1);
    Возврат ИмяКартинки;
КонецФункции

@nikioioio · 23.03.2016, 10:42 **[ТС]**

Прошу прощение я во вложении скинул, куда мне поместить код? Я не программист. Ткните меня пальцем))

@GreenkA · 23.03.2016, 11:08

nikioioio, выложите эту обработку "Загрузка данных из табличного документа".
В режиме Конфигуратора, когда найдете эту обработку в дереве конфигурации - правой кнопкой мыши - Сохранить, как внешнюю обработку/отчет. Перед загрузкой заархивируйте.

@nikioioio · 23.03.2016, 11:33 **[ТС]**

GreenkO,
А у меня обычное приложение. Я закинул настройку с процедурой в шапке. Как мне в событие При записи закинуть Вашу процедуру? (обработка ЗагрузкаДанныхИзТабличногоДокумента)

Добавлено через 12 минут
Это же я так понял не обработка, а просто правило которое работает при загрузки из XLS

@GreenkA · 23.03.2016, 11:34

Сообщение от nikioioio

А у меня обычное приложение

для сохранения обработки это не имеет значения.

@nikioioio · 23.03.2016, 11:41 **[ТС]**

GreenkO,

1C

НомерСтолбцаИзображение = 1;
НомерСтолбцаОписаниеИзображение = 1; 
 
 
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
|   ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
|   Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|   ХранилищеДополнительнойИнформации.Объект = &Объект
|   И ХранилищеДополнительнойИнформации.Наименование = &Наименование";
 
Объект.Записать();
    
Текст = СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]);
 
РасширениеФайла = ".jpg";
АдресКартинки = СтрЗаменить(Текст, """", "");
ИмяКартинки = НомерСтолбцаОписаниеИзображение;
НовоеИмя = ПолучитьИмяВременногоФайла(РасширениеФайла);
 
Попытка
  КопироватьФайл(АдресКартинки, НовоеИмя); 
 
   ЗапросСуществующих.УстановитьПараметр("Объект", Объект.Ссылка);
   ЗапросСуществующих.УстановитьПараметр("Наименование", ИмяКартинки);
   Выборка = ЗапросСуществующих.Выполнить().Выбрать();
   Если Выборка.Количество() = 0 Тогда
      Предупреждение("!!");
      ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
      ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
      ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(НовоеИмя),Новый СжатиеДанных);
      ХранилищеОбъект.Объект = Объект.Ссылка;
      ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
      ХранилищеОбъект.ИмяФайла = ИмяКартинки;
      ХранилищеОбъект.Записать();
      Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
   КонецЕсли;
  УдалитьФайлы(НовоеИмя);
Исключение
 Сообщить("Ошибка при получении картинки, возможно введен неверный URL: адрес изображения должен начинаться с ""http:""");
КонецПопытки;

вот так в событие закидываю, закидывает вот такую номенклатуру (во сложении)

@GreenkA · 23.03.2016, 12:10

nikioioio, попробуйте закомментить строку УдалитьФайлы(); и по пути в переменной "НовоеИмя" посмотрите, что находится. Нормально ли получается картинка по url.

@nikioioio · 23.03.2016, 12:48 **[ТС]**

GreenkO,

1C

НомерСтолбцаИзображение = 1;
НомерСтолбцаОписаниеИзображение = 1; 
 
 
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
|   ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
|   Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|   ХранилищеДополнительнойИнформации.Объект = &Объект
|   И ХранилищеДополнительнойИнформации.Наименование = &Наименование";
 
Объект.Записать();
    
Текст = СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]);
 
 
АдресКартинки = СтрЗаменить(Текст, """", "");
ИмяКартинки = НомерСтолбцаОписаниеИзображение;
НовоеИмя = ПолучитьИмяВременногоФайла();
 
Попытка
  КопироватьФайл(АдресКартинки, НовоеИмя); 
 
   ЗапросСуществующих.УстановитьПараметр("Объект", Объект.Ссылка);
   ЗапросСуществующих.УстановитьПараметр("Наименование", ИмяКартинки);
   Выборка = ЗапросСуществующих.Выполнить().Выбрать();
   Если Выборка.Количество() = 0 Тогда
      Предупреждение("!!");
      ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
      ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
      ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(НовоеИмя),Новый СжатиеДанных);
      ХранилищеОбъект.Объект = Объект.Ссылка;
      ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
      ХранилищеОбъект.ИмяФайла = ИмяКартинки;
      ХранилищеОбъект.Записать();
      Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
   КонецЕсли;
  //УдалитьФайлы(НовоеИмя);
Исключение
 Сообщить("Ошибка при получении картинки, возможно введен неверный URL: адрес изображения должен начинаться с ""http:""");
КонецПопытки;

в таком случае так же крест вместо картинки

Добавлено через 12 минут
GreenkO, по пути в папке TEMP вообще такого файла нет.

Добавлено через 21 минуту
GreenkO, Прошу прощения, файл нашел, .jpg но при открытии средство просмотра фотографий windows не моет открыть это изображение

@GreenkA · 23.03.2016, 12:49

nikioioio, а напишите адрес, по которому получаете картинку.

Не по теме:

Код необходимо выделять соответствующим языку форматированием (кнопка на панели редактирования сообщения).

@nikioioio · 23.03.2016, 12:50 **[ТС]**

GreenkO, http://partners.eksmo.ru/images/isho...611_cover1.jpg

@GreenkA · 23.03.2016, 13:58

nikioioio, вы пробовали другие изображения загружать?

@nikioioio · 23.03.2016, 14:01 **[ТС]**

GreenkO, несколько брал

@GreenkA · 23.03.2016, 14:03

nikioioio, и у всех url начинается с https? Может дело в протоколе.
Пробовала получение изображения через

1C

1
2
3

        НовоеИмя = ПолучитьИмяВременногоФайла(РасширениеФайла);
        Соединение = Новый HTTPСоединение(АдресСервера);
        Соединение.Получить(ИмяКартинки + "." + РасширениеФайла, НовоеИмя);

По вашему адресу не срабатывает. Другие картинки все грузит по обоим методам.

@nikioioio · 23.03.2016, 14:04 **[ТС]**

GreenkO, ну ссылка то проходит через браузер без проблем

@nikioioio 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 15
	23.03.2016, 10:42 [ТС]	3
	Прошу прощение я во вложении скинул, куда мне поместить код? Я не программист. Ткните меня пальцем)) 0 Миниатюры

@GreenkA Модератор 2990 / 1911 / 520 Регистрация: 25.06.2009 Сообщений: 6,781
	23.03.2016, 11:08	4
	nikioioio, выложите эту обработку "Загрузка данных из табличного документа". В режиме Конфигуратора, когда найдете эту обработку в дереве конфигурации - правой кнопкой мыши - Сохранить, как внешнюю обработку/отчет. Перед загрузкой заархивируйте. 1

@nikioioio 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 15
	23.03.2016, 11:33 [ТС]	5
	GreenkO, А у меня обычное приложение. Я закинул настройку с процедурой в шапке. Как мне в событие При записи закинуть Вашу процедуру? (обработка ЗагрузкаДанныхИзТабличногоДокумента) Добавлено через 12 минут Это же я так понял не обработка, а просто правило которое работает при загрузки из XLS 0

@GreenkA Модератор 2990 / 1911 / 520 Регистрация: 25.06.2009 Сообщений: 6,781
	23.03.2016, 11:34	6
	Сообщение от nikioioio А у меня обычное приложение для сохранения обработки это не имеет значения. 0

@GreenkA Модератор 2990 / 1911 / 520 Регистрация: 25.06.2009 Сообщений: 6,781
	23.03.2016, 12:10	8
	nikioioio, попробуйте закомментить строку УдалитьФайлы(); и по пути в переменной "НовоеИмя" посмотрите, что находится. Нормально ли получается картинка по url. 0

@GreenkA Модератор 2990 / 1911 / 520 Регистрация: 25.06.2009 Сообщений: 6,781
	23.03.2016, 12:49	10
	nikioioio, а напишите адрес, по которому получаете картинку. Не по теме: Код необходимо выделять соответствующим языку форматированием (кнопка на панели редактирования сообщения). 0

@nikioioio 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 15
	23.03.2016, 12:50 [ТС]	11
	GreenkO, http://partners.eksmo.ru/images/isho...611_cover1.jpg 0

@GreenkA Модератор 2990 / 1911 / 520 Регистрация: 25.06.2009 Сообщений: 6,781
	23.03.2016, 13:58	12
	nikioioio, вы пробовали другие изображения загружать? 0

@nikioioio 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 15
	23.03.2016, 14:01 [ТС]	13
	GreenkO, несколько брал 0

@nikioioio 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 15
	23.03.2016, 14:04 [ТС]	15
	GreenkO, ну ссылка то проходит через браузер без проблем 0

Опции темы