Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Как загрузить картинку из интернета в 1С в справочник Номенклатура          
burza Подменю пользователя
сообщение 10.07.23, 9:47
Сообщение #1

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

делаю так копирую на диск потом пытаюсь загрузить. но в созданом элементе НоменклатураПрисоединенныеФайлы файл не работает пишет ошибку про двоичные данные!
записи делает а вот картинку открыть там немогу она туда толи не попадает толи не так попадает как надо
Что в коде не правильно подскажите ?
ИсходныйАдрес=Стр.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
Сообщение #2

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

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

alex-l1904 Подменю пользователя
сообщение 10.07.23, 13:05
Сообщение #3

Говорящий
***
Группа: Пользователи
Сообщений: 67
Спасибо сказали: 11 раз
Рейтинг: 11

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


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

burza Подменю пользователя
сообщение 10.07.23, 13:25
Сообщение #4

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

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

sava1 Подменю пользователя
сообщение 10.07.23, 13:54
Сообщение #5

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

burza Подменю пользователя
сообщение 10.07.23, 13:56
Сообщение #6

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

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

Vofka Подменю пользователя
сообщение 10.07.23, 13:59
Сообщение #7

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

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

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

sava1 Подменю пользователя
сообщение 10.07.23, 14:06
Сообщение #8

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

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

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


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

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

Сообщение отредактировал sava1 - 10.07.23, 14:04

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 27.04.24, 9:56
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!