Загрузка картинок из интернета

ДлинаСсылки = СтрДлина(СсылкаНаКартинкуHTTP);
	СсылкаНаКартинку = Сред(СсылкаНаКартинкуHTTP, 9, ДлинаСсылки); 
	
	КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
	ТоварКартинка = Неопределено;
	Если Не ТоварКартинка = Неопределено или не ТоварКартинка = "" Тогда
		Если КартинкаСсылка.Пустая() Тогда
			//КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.НайтиПоНаименованию(НоменклатураОбъект.Код);
		КонецЕсли;
		Если КартинкаСсылка.Пустая() Тогда
			КартинкаОбъект = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
			КартинкаОбъект.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;            
			КартинкаОбъект.Наименование  = НоменклатураОбъект.Код;
			КартинкаОбъект.ВладелецФайла = НоменклатураОбъект.Ссылка;
			КартинкаОбъект.ДатаСоздания  = ТекущаяДата();
			Соединение = Новый HTTPСоединение(СсылкаНаКартинку);
			ИмяВременногоФайла=ПолучитьИмяВременногоФайла(".jpg");
			
			Запрос = Новый HTTPЗапрос;
			Запрос.АдресРесурса = "/";
			
			Соединение.Получить(Запрос, ИмяВременногоФайла);
			
			К1 = Новый Картинка(ИмяВременногоФайла, истина);
			КартинкаОбъект.ФайлХранилище = Новый ХранилищеЗначения(К1.ПолучитьДвоичныеДанные());
			
			КартинкаОбъект.Расширение = "jpg";
			КартинкаОбъект.СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
			ФайлК = Новый Файл(ИмяВременногоФайла);            
			КартинкаОбъект.Размер = ФайлК.Размер();
			
			
			КартинкаОбъект.Записать();
			КартинкаСсылка = КартинкаОбъект.Ссылка; 
			
			КартинкаСохранить = РегистрыСведений.ДвоичныеДанныеФайлов.СоздатьНаборЗаписей();
			КартинкаСохранить.Отбор.Файл.Установить(КартинкаОбъект.Ссылка);
			НовыйФайл = КартинкаСохранить.Добавить();
			НовыйФайл.Файл = КартинкаСсылка;
			НовыйФайл.ДвоичныеДанныеФайла = КартинкаОбъект.ФайлХранилище;
			КартинкаСохранить.Записать();
		КонецЕсли;
		
		НоменклатураОбъект.ФайлКартинки = КартинкаСсылка;
	
	КонецЕсли;