Передача XML файла на Web-service

L

LAYENS

Здравствуйте, уважаемые форумчане. Возникла задача передать xml файл на определенный web-service. прошу помочь с кодом агента. Ниже код:

Sub Initialize
On Error GoTo Err1
Dim xmlhttp As Variant
Dim DOMDocument As Variant
Dim soapEnvelope As String
Dim webService As String
Dim username As String
Dim password As String
Dim strxml As String

Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
Set DOMDocument = CreateObject("MSXML2.DOMDocument")

webService = "ссылка на web-service"
Print "Чек"
soapEnvelope ={<?xml version='1.0' encoding='WINDOWS-1251'?>}
soapEnvelope =soapEnvelope & {<soap:Header/>}
soapEnvelope =soapEnvelope & {<soap:Body>}
soapEnvelope =soapEnvelope & {<organization>}
soapEnvelope =soapEnvelope & {<people>}
soapEnvelope =soapEnvelope & {<key>kluch034564</key>}
soapEnvelope =soapEnvelope & {<name>Петров Петр Васильевич</name>}
soapEnvelope =soapEnvelope & {<email>Petrov@petr.ru</email>}
soapEnvelope =soapEnvelope & {</people>}
soapEnvelope =soapEnvelope & {</organization>}
soapEnvelope =soapEnvelope & {</soap:Body>}
soapEnvelope =soapEnvelope & {</soap:Envelope>}
Print "Вторая проверка"
DOMDocument.loadXML(soapEnvelope)
Call xmlhttp.open("POST", webService, False)
Call xmlhttp.setRequestHeader("Content-Type", "application/soap+xml;charset=UTF-8")


Exit Sub
Err1:
MsgBox "UPLOADFILE_ERRORS: Error" + Error$ + " on str " + CStr(Erl)
Print "<br><br>UPLOADFILE_ERRORS: Error" + Error$ + " on str " + CStr(Erl)
End Sub
 
lmike

lmike

нет, пердело совершенство
Lotus team
27.08.2008
7 256
439
Set DOMDocument = CreateObject("MSXML2.DOMDocument")
ну чтож за беда-то такая..., что ни вопрос - юзают КОМ, ну нафига? Как потом ошибки обрабатывать?
в этом MSXML2 100500 вариантов ошибок... и никакого сервиса для вменяемого парсинга
java и весь разговор
можно сделать простенький рапер, но не вижу смысла, все-равно агент вызываете
 
Мы в соцсетях:  ТелеграмВконтактеДзенФейсбукТвиттерЮтуб