Р
Реник
Здравствуйте, товарищи!!
Интересуюсь вот таким вопросом: у меня есть агент,который запускает метод в стороннем web-service. Для связи с web-service я использую Soap-Toolkit.
Но при отработке агента возникает ошибка ,что ProjectName missing.
Не подскажите в чём проблема ????
вот код вызываемого агента:
<table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'>добавлен тег кода</td>[/tr]</table>
Интересуюсь вот таким вопросом: у меня есть агент,который запускает метод в стороннем web-service. Для связи с web-service я использую Soap-Toolkit.
Но при отработке агента возникает ошибка ,что ProjectName missing.
Не подскажите в чём проблема ????
вот код вызываемого агента:
Код:
Dim Connector As Variant, Serializer As Variant, Reader As Variant
Set Serializer =createobject("MSOSOAP.SoapSerializer30")
Set connector =createobject("MSOSOAP.HttpConnector30")
Set xmldom=createobject ("Msxml2.DOMDocument.5.0")
Set reader=createobject ("MSOSOAP.SoapReader30")
Set Client =CreateObject("MSOSOAP.SoapClient30")
Call Client.mssoapinit (wsdllink)
Connector.Property("EndPointURL") = wsdllink
Print "задаём логин и пароль пользователя,под которым идёт обращение"
'client.ConnectorProperty("AuthUser") = "pbrfilesinout"
'client.ConnectorProperty("AuthPassword") = ",jcchtathtyn"
'Client.ConnectorProperty("WinHTTPAuthScheme") = 1
Print "Коннектимся к сервису"
Call Connector.Connect
' Connector.Property("SoapAction") = "CeatePWA"
Call Connector.BeginMessage
Stop
' устанавливаем Тайм-аут ,чтобы сервис сммог отработать нормально
Client.ConnectorProperty("Timeout") = 700000
' вызываем метод из wsdl
'Set Res=Client.CeatePWA(param1,param2,param3)
' ловим выходной поток отработки метода wsdl- файла
Serializer.Init Connector.InputStream
Serializer.StartEnvelope "SOAP-ENV" , "http://schemas.xmlsoap.org/soap/encoding/"
Serializer.StartBody
Stop
Serializer.StartElement "CeatePWA" , "http://tempuri.org/"
Print "Передаём в метод параметры"
Serializer.startElement "loginGMP"
Serializer.writeString param1
Serializer.EndElement
Serializer.startElement "number"
Serializer.writeString param2
Serializer.EndElement
Serializer.startElement "urlHook"
Serializer.writeString param3
Serializer.EndElement
Serializer.EndElement
Print "Закончили передачу параметров"
' Serializer.WriteXml ("C:\MyService.xml")
Serializer.endBody
Serializer.endEnvelope
Connector.EndMessage
errh =Client.FaultString
If errh <> "" Then
Print "Ошибка" +errh
End If
Print "Читаем исходящий поток"
Reader.Load Connector.OutputStream
Print "проверка на наличие ошибок"
If Not ( Reader.faultstring Is Nothing)Then
Print "нашли ошибку при отработке сервиса"
Print Cstr( Reader.faultstring.text )
Else
Print " Смотрим результаты работы"
' Msgbox (reader.RPCResult.text)
Msgbox Reader.DOM.xml
End If
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'>добавлен тег кода</td>[/tr]</table>