Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как загрузить картинку из интернета в 1С в справочник Номенклатура
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
burza
делаю так копирую на диск потом пытаюсь загрузить. но в созданом элементе НоменклатураПрисоединенныеФайлы файл не работает пишет ошибку про двоичные данные!
записи делает а вот картинку открыть там немогу она туда толи не попадает толи не так попадает как надо
Что в коде не правильно подскажите ?
ИсходныйАдрес=Стр.image;
            ТекстКартинки=СокрЛП(СтрЗаменить(ИсходныйАдрес,"https://lido.ua",""));
            ИмяКартинкиНаДиске="C:\Users\123\Desktop\temp\"+Строка(Спр.Код)+".jpeg";
                            
            Соединение = Новый HTTPСоединение("lido.ua",443,,,,,Новый ЗащищенноеСоединениеOpenSSL(), Ложь);                
            Соединение.Получить(ТекстКартинки,ИмяКартинкиНаДиске);
            
            
            //Спр.ФайлКартинки = Новый ХранилищеЗначения(Новый Картинка(ИмяКартинкиНаДиске));
            //Спр.Записать();  
             КартинкаОбъект = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
            КартинкаОбъект.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;            
            КартинкаОбъект.Наименование = Спр.Код;
            КартинкаОбъект.ВладелецФайла = Спр.Ссылка;
            КартинкаОбъект.ДатаСоздания = ТекущаяДата();
            КартинкаОбъект.ДатаЗаема = ТекущаяДата();
            КартинкаОбъект.ДатаМодификацииУниверсальная = ТекущаяДата();
            //КартинкаОбъект.ПутьКФайлу = ИмяКартинкиНаДиске;
           // Номенклатура.Картинка = Новый ХранилищеЗначения(Новый Картинка(ИмяКартинкиНаДиске));
            
            К1  = Новый Картинка(ИмяКартинкиНаДиске, истина);
            КартинкаОбъект.ФайлХранилище = Новый ХранилищеЗначения(К1.ПолучитьДвоичныеДанные());
            КартинкаОбъект.Расширение = "jpeg";
            КартинкаОбъект.СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
            ФайлК = Новый Файл(ИмяКартинкиНаДиске);            
            КартинкаОбъект.Размер = ФайлК.Размер();
            
            
            КартинкаОбъект.Записать();
            Спр.ФайлКартинки  = КартинкаОбъект.Ссылка;


burza @ Сегодня, 10:32 необходимо зарегистрироваться для просмотра ссылки ,
Присоединен к Номенклатура : Щітка склоочисника безкаркасна MOLDER SHARK 24/600 мм (10/60)
по причине: двоичные данные файла были удалены. Возможно, файл очищен как ненужный.
burza
как всегда в принципе!
alex-l1904
Цитата(burza @ 10.07.23, 10:47) необходимо зарегистрироваться для просмотра ссылки
Соединение.Получить(ТекстКартинки,ИмяКартинкиНаДиске);


зупиніть код після цього рядка и перевірте чи зберіглася картинка
burza
alex-l1904 @ Сегодня, 14:05 необходимо зарегистрироваться для просмотра ссылки ,
сохраняется в папки
sava1
а чем БСП не угодило?
ДобавитьФайлыРасширениеПредложено(......)
burza
sava1 @ Сегодня, 14:54 необходимо зарегистрироваться для просмотра ссылки ,
я делаю програмно как туда передать из процедуры на сервере? как из моего цикла туда впихнуть
Vofka
Цитата(burza @ 10.07.23, 13:34) необходимо зарегистрироваться для просмотра ссылки
как всегда в принципе!

Как всегда что?
sava1
так файл можно на клиента сохранять (что в-принципе и логичнее)

ИЛИ поместить в хранилище и передать в ВызовСервера

    ПрисоединенныйФайл = ПрисоединенныеФайлыСлужебныйВызовСервера.ДобавитьФайл(
            ВладелецФайла,
            ИмяБезРасширения,
            ОбщегоНазначенияКлиентСервер.РасширениеБезТочки(Файл.Расширение),
            ,
            ВремяИзмененияУниверсальное,
            АдресВременногоХранилищаФайла,
            АдресВременногоХранилищаТекста);


Vofka @ Сегодня, 14:59 необходимо зарегистрироваться для просмотра ссылки ,

изобретает ЛИСАПЕТ
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.