Привет всем есть УТ 10.3, к ней делалась обработка загрузки картинок в номенклатуру по URL, все работает, только проблемы с одним ресурсом вот пример ссылки отсюда не загружается, в ответе приходит код состояния 301 что страница перенаправлена и новый адрес должен быть в параметре "Location", но там первоначальная ссылка и происходит зацикливание функции, есть выход из этой ситуации или это проблемы на стороне сайта?
пример кода
пример кода
Функция ПолучитьHTTPОтвет(ПутьКФайлуНаСервере, ИмяФайла, Соединение, Заголовки, флаг = Истина)
HTTPЗапрос = Новый HTTPЗапрос(ПутьКФайлуНаСервере, Заголовки);
HTTPЗапрос.Заголовки.Вставить("Accept-Charset", "utf-8");
HTTPОтвет = Соединение.Получить(HTTPЗапрос, ИмяФайла);
Если HTTPОтвет.КодСостояния = 301 или HTTPОтвет.КодСостояния = 302 Тогда
ПутьКФайлуНаСервере = HTTPОтвет.Заголовки["Location"];
URLРазделенный = РазделитьURL(ПутьКФайлуНаСервере);
ПутьКФайлуНаСервере1 = URLРазделенный.ПутьКФайлуНаСервере;
HTTPОтвет = ПолучитьHTTPОтвет(ПутьКФайлуНаСервере, ИмяФайла, Соединение, Заголовки, Флаг);
КонецЕсли;
файл = Новый Файл(ИмяФайла);
Если флаг и HTTPОтвет.КодСостояния >= 200 и HTTPОтвет.КодСостояния <= 299 Тогда флаг = Ложь; ИмяФайлаВр = ПутьКФайлуНаСервере; Пока Найти(ИмяФайлаВр,"/") > 0 цикл
ИмяФайлаВр = Сред(ИмяФайлаВр,Найти(ИмяФайлаВр,"/")+1);
КонецЦикла;
Если НЕ ПустаяСтрока(ИмяФайлаВр) Тогда
ПереместитьФайл(ИмяФайла, файл.Путь + ИмяФайлаВр);
ИмяФайла = файл.Путь + ИмяФайлаВр;
КонецЕсли;
КонецЕсли;
Возврат HTTPОтвет; ПоказатьПо теме из базы знаний
- Всякие полезности
- Создание в 1С 7.7 XML в формате EnterpriseData (универсальный формат обмена), версия 1.5. Инструкции и примеры переноса данных из устаревшей конфигурации 1С 7.7 в любую современную 1С 8.3, поддерживающую EnterpriseData, через Конвертацию данных 3
- Загрузка банковской выписки для 1С 7.7 любой конфигурации
- Маркетплейсный загрузчик для 12-ти маркетплейсов в 1С:БП 3, УТ 11, КА 2, ERP, УНФ
- Описание формата контейнера 1С (CF, EPF, ERF, CFE) с помощью БНФ. Предлагается внешняя компонента на С
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Соединение = новый HTTPСоединение("ormco.ru",,,,,,Новый ЗащищенноеСоединениеOpenSSL);
Запрос = Новый HTTPЗапрос("images/cms/data/catalog_full/601-0021.jpg");
Ответ = Соединение.Получить(Запрос);
Возвращает 200 и нормальное тело.
Все прекрасно скачивается
ПутьКФайлуНаСервере = "images/cms/data/catalog_full/601-0021.jpg";
Соединение = Новый HTTPСоединение("ormco.ru", , , , , , Новый ЗащищенноеСоединениеOpenSSL);
HTTPЗапрос = Новый HTTPЗапрос(ПутьКФайлуНаСервере);
HTTPЗапрос.Заголовки.Вставить("Accept-Charset", "utf-8");
HTTPОтвет = Соединение.Получить(HTTPЗапрос);
ДД = HTTPОтвет.ПолучитьТелоКакДвоичныеДанные();
ДД.Записать("C:\Users\Odmin\Desktop\sdf\lkj.jpg"); Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот