Отправка из 1C POST запроса с файлом — как сформировать тело запроса?

Question

[Antonio Solo]

Требуется отправить из 1С на сайт данные (текстовые поля, текстовые и бинарные файлы). Есть ли в 1С 8 какие-то готовые средства, для того что бы формировать такой запрос, или все надо делать вручную ?

Answer 1

[Дмитрий Кинаш]

Если вы не имитируете отправку данных формы методом POST, то ничего нового изобретать не нужно. Вот пример кода с передачей по POST какой-то строки:

Соединение = Новый HTTPСоединение(Сервер, Порт);
ЗапросСервера = Новый HTTPЗапрос(ПутьНаСервере);
ЗапросСервера.УстановитьТелоИзСтроки(ТелоЗапроса);
ОтветСервера = Соединение.ВызватьHTTPМетод("POST", ЗапросСервера);
ТелоОтвета = ОтветСервера.ПолучитьТелоКакСтроку();
КодОтвета = ОтветСервера.КодСостояния;

Если нужно передать двоичные данные, то нужен метод запроса УстановитьТелоИзДвоичныхДанных. Если серверу нужно передать тип содержимого, то установим заголовок с помощью свойства запроса Заголовки:

ЗапросСервера.Заголовки.Вставить("Content-type", "application/json");

А вот для x-www-form-urlencoded (особенно с отправкой нескольких файлов) нужно будет дополнительно вручную отформатировать тело запроса.

Comments

[Antonio Solo]

для фалов не urlencoded а multipart/formdata, но не суть.

да собственно и вопрос - тело запроса только вручную надо формировать или есть уже автоматизация какая-то. а то пока непонятно как в 1С с бинарными данными работать. там это поддерживается ?

[Дмитрий Кинаш]

Antonio Solo, точно. Давно вручную пакеты не формировал, помню только что нужно в заголовке рядом с типом еще указать некий уникальный разделитель файлов boundar, а в секциях данных еще заголовки с названием файлов и типом содержимого.

Если нужно отправить всего один файл, то все просто. Как я уже писал в своем ответе - нужно использовать установку двоичных данных:

ПутьКФайлу = "C:\Temp\data.zip";
ДанныеТела = Новый ДвоичныеДанные(ПутьКФайлу);

Соединение = Новый HTTPСоединение("myServer.com");
ЗапросСервера = Новый HTTPЗапрос("upload.php");
ЗапросСервера.УстановитьТелоИзДвоичныхДанных(ДанныеТела);
ОтветСервера = Соединение.ВызватьHTTPМетод("POST", ЗапросСервера);

[Antonio Solo]

спасибо