Версия для печати темы (https://pro1c.org.ua/index.php?s=15b1bbe93afe10429ea460159eadd0e9&showtopic=67289)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Как загрузить картинку из интернета в 1С в справочник Номенклатура

Автор: burza 10.07.23, 9:47

делаю так копирую на диск потом пытаюсь загрузить. но в созданом элементе НоменклатураПрисоединенныеФайлы файл не работает пишет ошибку про двоичные данные!
записи делает а вот картинку открыть там немогу она туда толи не попадает толи не так попадает как надо
Что в коде не правильно подскажите ?

ИсходныйАдрес=Стр.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 10.07.23, 12:34

как всегда в принципе!

Автор: alex-l1904 10.07.23, 13:05

Цитата(burza @ 10.07.23, 10:47) *
Соединение.Получить(ТекстКартинки,ИмяКартинкиНаДиске);


зупиніть код після цього рядка и перевірте чи зберіглася картинка

Автор: burza 10.07.23, 13:25

alex-l1904 @ Сегодня, 14:05 * ,
сохраняется в папки

Автор: sava1 10.07.23, 13:54

а чем БСП не угодило?
ДобавитьФайлыРасширениеПредложено(......)

Автор: burza 10.07.23, 13:56

sava1 @ Сегодня, 14:54 * ,
я делаю програмно как туда передать из процедуры на сервере? как из моего цикла туда впихнуть

Автор: Vofka 10.07.23, 13:59

Цитата(burza @ 10.07.23, 13:34) *
как всегда в принципе!

Как всегда что?

Автор: sava1 10.07.23, 14:06

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

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

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


Vofka @ Сегодня, 14:59 * ,

изобретает ЛИСАПЕТ

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua