ПолноеИмяФайла = "F:\send.xml" XML_DOM=CreateObject("MSXML2.DOMDocument.6.0"); Header = XML_DOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""" ); XML_DOM.Load(ПолноеИмяФайла); Url = "https://merchant-api.sbermarket.ru/api/v1/import/feeds"; ПолноеИмяФайла = "/" + ПолноеИмяФайла; ПолноеИмяФайла = СтрЗаменить(ПолноеИмяФайла,"\","/"); Сообщить (ПолноеИмяФайла); Если СтрДлина(Токен) > 0 тогда WinHttp = СоздатьОбъект("MSXML2.XMLHTTP"); Boundary = "--WebKitFormBoundary7MA4YWxkTrZu0gW"; Запрос = "--" + Boundary + " |Content-Disposition: form-data; name=""form""; filename="+Симв(34)+ПолноеИмяФайла+Симв(34)+" |Content-Type: text/xml;" + РазделительСтрок + " |" + XML_DOM + " |--" + Boundary + "--"; // Сообщить (Запрос); WinHttp.Open("POST", URL, 0); WinHttp.setRequestHeader("Content-Charset", "utf-8"); WinHttp.SetRequestHeader("Content-Type","multipart/form-data; boundary=" + Boundary); WinHttp.setRequestHeader("Authorization", "Bearer "+Токен); WinHttp.SetRequestHeader("Content-Length", СтрДлина(Запрос)); WinHttp.Send(Запрос); Если WinHttp.Status = 200 Тогда Сообщить(WinHttp.ResponseText); Иначе Сообщить("Некорректный ответ сервера = " + WinHttp.Status); КонецЕсли; Сообщить("Ответ сервера = " + WinHttp.Status); КонецЕсли;
{"contextData":{},"contextMarkers":[]}