Technical Details:
Sample Soap Message
The following message searches for microsoft.com in the domain
registry:
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:tns="http://www.SoapClient.com/xml/SQLDataSoap.wsdl"
xmlns:xsd1="http://www.SoapClient.com/xml/SQLDataSoap.xsd"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/xml/encoding/">
<SOAP-ENV:Body>
<mns:ProcessSRL xmlns:mns="http://www.SoapClient.com/xml/SQLDataSoap.xsd">
<SRLFile xsi:type="string">/xml/news.sri</SRLFile>
<RequestName xsi:type="string">yahoo</RequestName>
</mns:ProcessSRL>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
Dim MyAgent As SoapAgent
Set MyAgent = New SoapAgent
MyAgent.AddParameter "SRLFile", "/xml/NEWS.SRI", ""
MyAgent.AddParameter "RequestName", "Yahoo", ""
'Execute the method
MyAgent.ExecuteMethod "http://soapclient.com/xml/SQLDataSOAP.wsdl", "ProcessSRL"
'show me the result!
MsgBox MyAgent.GetResponse("return")
Sample VB Code (MS SOAP 2.0)
Dim Serializer As SoapSerializer
Dim Connector As SoapConnector
Dim Reader As SoapReader
Set Connector = New HttpConnector
Connector.Property("EndPointURL") = "http://soapclient.com/xml/SQLDataSoap.WSDL"
Connector.Connect
Connector.Property("SoapAction") = "/SQLDataSRL"
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 "ProcessSRL", "http://www.SoapClient.com/xml/SQLDataSoap.xsd", "mns"
Serializer.startElement "SRLFile"
Serializer.writeString "/xml/news.sri"
Serializer.endElement
Serializer.startElement "RequestName"
Serializer.writeString "yahoo"
Serializer.endElement
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
|