Отправить xml на веб сервер

@duh_si · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
проблема с отправкой xml файла на сервер
пытался так:

1C

    //Входные данные
    АдресСервиса = "training.atrucks.su"; //Адрес сервиса, 
    АдресРесурса = "https://training.atrucks.su/api/v3/customer/create_order"; //Адрес по которому располагается ресурс api, 
    ЗаказXML = "C:\Users\Desktop\atrucks-order\trucks_order_ГКД15-МСК200619042.xml"; //Путь к файлу 
    //создания заказа который необходимо передать  
                                    
    Boundary = "----" + "123e4567-e89b-12d3-a456-426655440000";//  УникальныйИдентификатор
ФайлОтправки = СоздатьОбъект("Текст");
//  //ФайлОтправки.ДобавитьСтроку(ИмяФайлаОтправки);
 
    //Массив для хранения и формирования файла который будет отправлен
    ТекстДляОтправки = "";
    ТекстДляОтправки = ТекстДляОтправки + "--"+Boundary+РазделительСтрок;
    //Параметр auth_key
    ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""auth_key""" + РазделительСтрок + РазделительСтрок;
    ТекстДляОтправки = ТекстДляОтправки + "I1F2HLcMHXebw9coyR4Bcu33ekez0gUv8Vjia8JvcKpDR" + РазделительСтрок;
    ТекстДляОтправки = ТекстДляОтправки + "--"+ Boundary + РазделительСтрок;
    ТекстДляОтправки = ТекстДляОтправки + "Content-Disposition: form-data; name=""file""; filename=""trucks_order_ГКД15-МСК200619042.xml""" + РазделительСтрок;
    ТекстДляОтправки = ТекстДляОтправки + "Content-Type: application/xml" + РазделительСтрок + РазделительСтрок;
    
    РазобратьФайл=СоздатьОбъект("Текст");
    РазобратьФайл.Открыть(ЗаказXML);
    Для стр=1 по РазобратьФайл.КоличествоСтрок() Цикл       
        ТекстДляОтправки = ТекстДляОтправки + РазобратьФайл.ПолучитьСтроку(стр);      
    КонецЦикла;
    
    ТекстДляОтправки = ТекстДляОтправки + РазделительСтрок; 
    ТекстДляОтправки = ТекстДляОтправки+"--"+Boundary+"--";
 
    ФайлОтправки.ДобавитьСтроку(ТекстДляОтправки);
    ФайлОтправки.Записать(ЗаказXML);
 
///А дальше тупик с отправкой
    Попытка 
        HTTPxml =  СоздатьОбъект("MSXML2.xmlHttp.4.0"); 
    Исключение     
        Сообщить("Не удалось инициализировать Microsoft XML"); 
        СтатусВозврата(0); 
    КонецПопытки; 
    
    Попытка 
        HTTPxml.Open("POST","http://training.atrucks.su:443/api/v3/customer/create_order",0); 
    Исключение   
        Сообщить("Не удалось подключиться к: "); 
        Возврат ""; 
    КонецПопытки; 
    
    HTTPxml.setRequestHeader("Content-Type", "multipart/form-data; boundary="+Boundary); 
    HTTPxml.SetRequestHeader("Connection", "keep-alive");
    
    //HTTPxml.setRequestHeader("Content-Length", СтрДлина(ПараметрыПОСТ)); 
    
    Попытка 
        HTTPxml.Send(ЗаказXML);
    Исключение 
        Сообщить(ОписаниеОшибки());         
    КонецПопытки;     
    
    ОтветСервера = HTTPxml.responseText; 
 
    Если HTTPxml.Status = 200 Тогда
      Сообщить(HTTPxml.ResponseText);
    Иначе
      Сообщить("HTTP " + HTTPxml.Status + " " + HTTPxml.StatusText);
      
    КонецЕсли;

Возвращается ошибка "HTTP 400 Bad Request" - Неверный запрос
Запрос не может быть понят сервером из-за некорректного синтаксиса.
тут понятно, т.к отправляю сам файл, а нужно запрос

Собственно вопрос, как правильно отправить запрос и файл xml?

@Dethmontt · 17.07.2019, 23:58

Сообщение от duh_si

Собственно вопрос, как правильно отправить запрос

так, как его принимает сервис

@duh_si · 18.07.2019, 07:24 **[ТС]**

хорошо, тогда вопрос, как поместить файл в тело запроса?

@duh_si · 03.09.2019, 11:00 **[ТС]**

Доброго времени суток.
с отправкой запроса на сайт разобрался, все отправляет, но только на виндовс 7 и выше.
сейчас проблема с Виндовс ХР

1C

Соединение = СоздатьОбъект("MSXML2.xmlHttp");//СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
 
    Соединение.Open("POST",АдресРесурса, 0);
    Соединение.SetRequestHeader("Content-Type","multipart/form-data; boundary="+Boundary);
    Соединение.SetRequestHeader("Connection", "keep-alive");
 
    Попытка
        Соединение.Send(ДляОтправки);
 
        Ответ = Соединение.ResponseText();
        Статус = СокрЛП(Соединение.Status);
        Сообщить(Ответ +" "+ Статус);
        
    Исключение

при попытке отправки
Соединение.Send(ДляОтправки);
валиться с такой ошибкой
Ошибка: msxml3.dll: Системная ошибка: -2146697208.

в чем может быть причина?

@kejsi · 04.10.2019, 01:47

duh_si,
иногда это изза запрета SSL в браузере.

Добавлено через 3 минуты
попробуйте в реестре поправить
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"DisableCachingOfSSLPages"=dword:00000000

@Dethmontt Модератор 3784 / 2964 / 589 Регистрация: 10.03.2011 Сообщений: 11,669 Записей в блоге: 1
	17.07.2019, 23:58	2
	Сообщение от duh_si Собственно вопрос, как правильно отправить запрос так, как его принимает сервис 0

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	18.07.2019, 07:24 [ТС]	3
	хорошо, тогда вопрос, как поместить файл в тело запроса? 0

@kejsi 0 / 0 / 0 Регистрация: 17.01.2018 Сообщений: 2
	04.10.2019, 01:47	5
	duh_si, иногда это изза запрета SSL в браузере. Добавлено через 3 минуты попробуйте в реестре поправить [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings] "DisableCachingOfSSLPages"=dword:00000000 0