hayart

privet vsem, pojalusta pomagite

Run-time error '5200' Method 'endMessage' of object 'ISoapConnector' faild





Dim Serializer As SoapSerializer

Dim Connector As SoapConnector

Dim Reader As SoapReader





Set Connector = New HttpConnector

Connector.Property("EndPointURL") = "url"

Connector.Connect

Connector.Property("SoapAction") = "actionurl"

Connector.Property("ProxyServer") = "192.168.1.2"

Connector.Property("ProxyPort") = "3128"

Connector.Property("UseSSL") = True

Connector.Property("SSLClientCertificateName") = "CURRENT_USERMY40297475-hayk"

Connector.BeginMessage 'Nothing

Set Serializer = New SoapSerializer

Serializer.Init Connector.InputStream

Serializer.StartEnvelope "SOAP-ENV", "http://schemas.xmlsoap.org/soap/encoding/"

Serializer.StartBody

Serializer.StartElement "HelloWorld", "url"

Serializer.EndElement

Serializer.EndBody

Serializer.EndEnvelope

Connector.EndMessage



Set Reader = New SoapReader

Reader.Load Connector.OutputStream



If Not Reader.Fault Is Nothing Then

MsgBox Reader.FaultString.Text, vbExclamation

Else

MsgBox Reader.Dom.xml

End If