Как отправить файл в POSt запросе

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8 1С:Бухгалтерия 2.0

1. ranis888 104 13.03.19 08:51 Сейчас в теме

Как можно сделать отправку CSV файла в post запросе?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

5. Dmitrij-2 45 13.03.19 09:16 Сейчас в теме

(1) через http соединение

6. ranis888 104 13.03.19 09:17 Сейчас в теме

(5) Серьезно ?

7. Dmitrij-2 45 13.03.19 09:22 Сейчас в теме

(6) HTTPЗапрос, УстановитьИмяФайлаТела. А потом через http соединение

2. Aitbay 13.03.19 09:11 Сейчас в теме

ТекстФайла = "";

Для каждого стр Из мСписокСформированныхФайлов Цикл

ТекстФайла = ТекстФайла + "BeginFile:"+Стр.ИмяФайла + Символы.ПС;

Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(Стр.Каталог + Стр.ИмяФайла);

Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл

ТекСтрока = Текст.ПолучитьСтроку(НомерСтроки);
ТекстФайла = ТекстФайла + ТекСтрока + Символы.ПС;

КонецЦикла;

ТекстФайла = ТекстФайла + "EndFile" + Символы.ПС;

КонецЦикла;

DocParam.Вставить("СписокФайлов", ТекстФайла);

3. Aitbay 13.03.19 09:11 Сейчас в теме

DocParam.Вставить("СписокФайлов", ТекстФайла); это параметр отправляемой структуры

4. ranis888 104 13.03.19 09:13 Сейчас в теме

(3)Получается CSV файл будет как строка?

8. Aitbay 13.03.19 11:56 Сейчас в теме

да а на стороне приема обратная операция

ТекстСписокФайлов = Параметры.СписокФайлов;
Каталог = КаталогВременныхФайлов() + Параметры.ИИНПользователя + "\";

КаталогНаДиске = Новый Файл(Каталог);
Если НЕ КаталогНаДиске.Существует() Тогда
СоздатьКаталог(Каталог);
КонецЕсли;

Текст = Новый ТекстовыйДокумент;
Текст.УстановитьТекст(ТекстСписокФайлов);

ИмяФайла = "";
СписокФайлов = Новый Массив;

Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл

ТекСтрока = Текст.ПолучитьСтроку(НомерСтроки);

Если Сред(ТекСтрока, 1, 9) = "BeginFile" Тогда

ТекСтрока = СтрЗаменить(ТекСтрока,"BeginFile:","");
ИмяФайла = ТекСтрока;
ТекстФайла = "";
Иначе

Если ТекСтрока = "EndFile" Тогда

Путь = Каталог + ИмяФайла;
НовыйТекст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);
НовыйТекст.ЗаписатьСтроку(ТекстФайла);
НовыйТекст.Закрыть();

СписокФайлов.Добавить(Каталог + ИмяФайла);
Иначе
ТекстФайла = ТекстФайла + ТекСтрока + Символы.ПС;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Внимание! Тема сдана в архив