|
Задача: посредством 1С 7.7 создать прямой запрос к веб-службе клиента с целью отправки данных в XML.
Код запроса:
Функция Запрос(xml)
VBScriptText = "
| Function SendRequest()
| SET XMLHTTP = CreateObject(""MSXML2.XMLHTTP.6.0"")
| Set XMLResponse =CreateObject(""MSXML2.DOMDocument"")
|
| XMLHTTP.Open ""POST"",""https://***.ru/DataExch/DataExchangeService.asmx"", False
| XMLHTTP.SetRequestHeader ""Proxy-Connection"", ""Keep-alive""
| XMLHTTP.setRequestHeader ""Content-Type"", ""text/xml""
| XMLHTTP.setRequestHeader ""SOAPAction"", ""http://tempuri.org/Data_Get""
| Dim soapRequest
| soapRequest = ""<?xml version=""""1.0"""" encoding=""""utf-8""""?><soap:Envelope xmlns:xsd=""""http://www.w3.org/2001/XMLSchema"""" xmlns:soap=""""http://schemas.xmlsoap.org/soap/envelope/"""" ><soap:Body><Data_Get xmlns=""""http://tempuri.org/""""><request><![CDATA["+xml+"]]></request></Data_Get></soap:Body></soap:Envelope>""
| XMLHTTP.send (soapRequest)
| If XMLHTTP.Status = 200 Then
| SendRequest = XMLHTTP.responseText
| else
| SendRequest =""Ошибка связи""
| End If
| End Function
| ";
ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language ="vbscript";
ScrptCtrl.AddCode(VBScriptText);
ScrptCtrl.Timeout = 200000;
XML = ScrptCtrl.Run("SendRequest");
Возврат XML;
КонецФункции
При выполнении этого скрипта (ScrptCtrl.Run()) возникает ошибка: msxml6.dll: Ошибка загрузки указанного ресурса.
Доступ в интернет через прокси (с авторизацией). Установлены последние версии msxml6.dll
|