Загрузка файла из произвольной WEB-формы через HTTP-сервис 1С на сервер.

Казалось бы, нет ничего проще, создать HTTP-сервис с методом POST, создать простейшую web-страничку с формой для загрузки файла. Например, вот такую:

<form enctype="multipart/form-data" method="post" action="http://serv1c/base/hs/test/load">
<p>
<input type="file" name="f">
<input type="submit" value="Отправить">
</p>
</form>

Открыть страничку в браузере, выбрать требуемый файл, нажать на форме кнопку «Отправить». А в HTTP-сервисе выполнить функцию ПолучитьТелоКакДвоичныеДанные и сохранить эти двоичные данные в файл в любое доступное место. Но! Не тут-то было.

Получаем двоичные данные не только файла, но и дополнительную метаинформацию.  При этом сохраненный файл представляет из себя что-то подобное этому:

——————————7e22f312a0802
Content-Disposition: form-data; name="f"; filename="myfile.png"
Content-Type: image/png
‰PNGIHDRxtyx›sRGB®ОйgAMA±Џ ьaPLTEяяяgvмc pHYsWU) ~NrIDAThCнЌKv$7=чїґP&:‰"UТі—‹О-эПwьЉ•e{UН©KЮцїьяя1f’©?еvп }=Hэ)·{чилAкO№Э»G_RКнЮ=ъ1Вy*аAссЬНнС·ОSЉЏ·аnnЏѕЌpћ xP|јws{фm„уTАѓвг-ё›ЫЈo#њS“Ь`z°ЇR<ъ6В95Й ¦ы*ЕЈo#њS“Ь`z°ЇR<ъ6В95Й ¦ы*ЕЈo#њїлН-џЁг…вз>KpFНМ@йOФсBсsџ%8ЈЙm#ѓв†¦FхWЯF8ЈЙm#ѓв†¦FхWЯF8ЈЙm#ѓв†¦FхWЯF8ЈЙm#ѓв†¦FхWЯF
——————————7e22f312a0802—

Как говорится, «все смешалось в доме Облонских» и текстовая информация и двоичная, которую получить из, условно говоря, гибридного содержимого, средствами 1С — затея так себе. Но благодаря появлению в платформе возможностей работы с буфером двоичных данных можно закатав рукава решить эту задачу.

Не буду детально углубляться в описание структуры полученных данных, т.к. задача стоит — передать файл на сервер и сохранить его. Поэтому все коротко и по порядку.

Итак, для начала нужно из заголовка основного web-запроса получить уникальную строку-разделитель (в файле-примере это "—————————7e22f312a0802"). Она нужна, в первую очередь для разделения получаемой информации, указанной на форме. В данной статье рассматривается форма для загрузки только одного файла, но ведь на форме могут быть еще и другие поля ввода, которые и разделяются уникальной строкой-разделителем.

Строку-разделитель следует получить из атрибута «boundary» заголовка «Content-Type» основного запроса, например так:

 

ВзялГраницу="";
Для каждого ВзялЗаголовок Из Запрос.Заголовки Цикл
Если ВзялЗаголовок.Ключ="Content-Type" Тогда
ВзялЗначение=ВзялЗаголовок.Значение;
Поз=СтрНайти(ВзялЗначение, "boundary=");
Если Поз>0 Тогда
ВзялГраницу = Сред(ВзялЗначение, Поз+СтрДлина("boundary="));
КонецЕсли;
КонецЕсли;
КонецЦикла;

Далее нам нужно, для успешного отделения двоичных данных от текстовых прочитать полученную информацию из запроса в буфер двоичных данных:

Если ПустаяСтрока(ВзялГраницу)=Ложь Тогда

ВзялПоток = Запрос.ПолучитьТелоКакПоток();
ВзялРазмер = ВзялПоток.Размер();
ВзялБуфер = Новый БуферДвоичныхДанных(ВзялРазмер);
ВзялПоток.Прочитать(ВзялБуфер, 0, ВзялРазмер);
ВзялПоток = Неопределено; //освобождаем память

!!! Хотелось бы предупредить, что буфер двоичных данных – это выделенная память на сервере. И чем больше размер буфера, тем больше этой самой памяти расходуется. Следить за размером загружаемых файлов и устанавливать ограничения следует на web-сервере, на котором опубликован http-сервис. И по возможности, в тексте модуля, освобождать память, исключая неиспользуемые буферы!!!

В дальнейшей работе нам понадобится вспомогательный буфер-разделитель. В нем будет храниться последовательность 0x0D, 0x0A или 13,10 или проще говоря «возврат каретки» и «перевод строки». Указанная последовательность является разделителем элементов полученной информации:

БуферРазделитель = Новый БуферДвоичныхДанных(2);
БуферРазделитель.Установить(0,13);
БуферРазделитель.Установить(1,10);

Далее возьмем только «нужную» информацию, которая расположена до последней строки-разделителя:

ВзялБуфер=ВзялБуфер.Разделить(БуферРазделитель.Соединить(ПолучитьБуферДвоичныхДанныхИзСтроки("--"+ВзялГраницу+"--")))[0];

!!! В начале всех строк-разделителей добавлена последовательность 0x0D, 0x0A и строка «—», строка «—» добавлена так же и в конце последней строки-разделителя !!!

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

ВзялМассивЭлементовФормы=ВзялБуфер.Разделить(БуферРазделитель.Соединить(ПолучитьБуферДвоичныхДанныхИзСтроки("--"+ВзялГраницу)));
ВзялБуфер = Неопределено; //чистим память

Ну и не остается ничего другого, как начать перебирать полученные элементы формы и искать в них любое упоминание о передаваемом файле:

Для каждого ВзялЭлемент Из ВзялМассивЭлементовФормы Цикл

Метаинформация о полученном элементе и его значение отделены так называемой «пустой строкой» или последовательностью 0x0D, 0x0A, 0x0D, 0x0A (13,10,13,10).  Т.е. это «двойной» буфер-разделитель, созданный ранее. И у нас наконец-то появилась возможность отделения двоичной информации от текстовой:

ВзялМассивБуферов = ВзялЭлемент.Разделить(БуферРазделитель.Соединить(БуферРазделитель));
ВзялЭлемент = Неопределено; //свобода памяти!

В результате у нас есть массив, в котором первый элемент (с индексом 0) содержит метаинформацию, а все последующие – предполагаемые данные передаваемого файла. Да, да, все последующие, т.к. «пустая строка» (0x0D, 0x0A, 0x0D, 0x0A или 13,10,13,10), о которой говорилось раньше, может присутствовать в данных самого файла и при разделении она учитывается процессом разделения, разбивающим данные файла на части.

Далее необходимо определить, является ли выбранный элемент формы файлом для загрузки. Для этого из полученной метаинформации извлекаем все заголовки и у каждого ищем атрибут «filename». Заголовки отделены друг от друга уже известной последовательностью 0x0D, 0x0A (13,10), которая хранится в буфере-разделителе:

ВзялЗаголовки=ВзялМассивБуферов[0].Разделить(БуферРазделитель);
ВзялМассивБуферов[0]=Неопределено; //очисти сознание
ВзялИмяФайла="";
Для каждого ВзялЗаголовок Из ВзялЗаголовки Цикл

У нас есть возможность преобразовать двоичные данные в строку, сделаем это:

ВзялСтрокуЗаголовка=ПолучитьСтрокуИзБуфераДвоичныхДанных(ВзялЗаголовок);
Поз=СтрНайти(ВзялСтрокуЗаголовка, "filename=");
Если Поз>0 Тогда

Есть атрибут «filename», значит этот элемент формы хранит в себе загружаемый файл. Теперь нужно получить его имя, выделив его из полного пути к нему и убрав кавычки:
 

  ВзялПолноеИмяФайла=СтрЗаменить(Сред(ВзялСтрокуЗаголовка, Поз+СтрДлина("filename=")),"""","");
ВзялДлину=СтрДлина(ВзялПолноеИмяФайла);
Для А=0 По ВзялДлину-1 Цикл
ВзялСимвол=Сред(ВзялПолноеИмяФайла, ВзялДлину-А, 1);
Если ВзялСимвол="" ИЛИ ВзялСимвол="/" Тогда
Прервать;
КонецЕсли;
ВзялИмяФайла = ВзялСимвол + ВзялИмяФайла;
КонецЦикла;
Прервать;
КонецЕсли;
КонецЦикла;

Если получено имя загружаемого файла, значит мы можем его теперь «собрать» и записать в наше надежное место с этим именем:

Если ПустаяСтрока(ВзялИмяФайла)=Ложь Тогда

Поскольку первый элемент массива хранит буфер с метаинформацией, то последующие – буферы двоичных данных файла. Что ж объединим их в один:

  ВзялБуферДанныхФайла=ВзялМассивБуферов[1];
Для А = 2 По ВзялМассивБуферов.ВГраница() Цикл

Не забываем, что массив был создан из частей, разделенных «пустой строкой» (0x0D, 0x0A, 0x0D, 0x0A или 13,10,13,10) и следовательно, этот разделитель должен быть восстановлен при склейке элементов массива:

      ВзялБуферДанныхФайла = ВзялБуферДанныхФайла.Соединить(БуферРазделитель.Соединить(БуферРазделитель.Соединить(ВзялМассивБуферов[А])));
ВзялМассивБуферов[А]=Неопределено; //чистые мозги
КонецЦикла;

Ну вот и все. Данные собраны и теперь их можно записать в файл:
 

    Попытка
ВзялДанныеФайла = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(ВзялБуферДанныхФайла);
//здесь следует указать путь для сохранения файла для примера указан диск d: сервера:
ВзялДанныеФайла.Записать("d:"+ВзялИмяФайла);
ВзялДанныеФайла = Неопределено; // просветление сознания
Исключение

Или не записать. Подобную ситуацию нужно будет изучить детально в каждом конкретном случае:
 

      Ответ.КодСостояния = 400;
Ответ.Причина = "Ошибка получения двоичных данных файла из запроса.";
КонецПопытки;
КонецЕсли;
КонецЦикла;
Иначе

Web-форма должна быть обязательно с указанным enctype="multipart/form-data" иначе неизбежно будет ситуация ниже.

  Ответ.КодСостояния = 400;
Ответ.Причина = "Ошибка получения границы-разделителя для multipart/form-data.";
КонецЕсли; 

   
Платформа 1С:Предприятие 8.3 (8.3.11.3034).