07.02.2018
Как скачать файл с интернета по HTTP средствами 1с 8
Предлагаю вашему вниманию функцию, позволяющую получить файл с интернета, в том числе, на которые установлен редирект. &НаСервере Процедура Пример() ИмяФайла = ПолучитьФайлССервера(«http://www.1c.ru/ftp/pub/pricelst/price_1c.zip»); КонецПроцедуры &НаСервереБезКонтекста Функция ПолучитьHTTPОтвет(ПутьКФайлуНаСервере, ИмяФайла, Соединение, Заголовки, флаг = Истина) HTTPЗапрос = Новый HTTPЗапрос(ПутьКФайлуНаСервере, Заголовки); HTTPЗапрос.Заголовки.Вставить(«Accept-Charset», «utf-8»); HTTPОтвет = Соединение.Получить(HTTPЗапрос, ИмяФайла); Если HTTPОтвет.КодСостояния = 301 или HTTPОтвет.КодСостояния = 302 Тогда ПутьКФайлуНаСервере = HTTPОтвет.Заголовки[«Location»];