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:xsd="http://www.w3.org/1999/XMLSchema"
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="xsd:string">/xml/edgar.sri</SRLFile>
<RequestName xsi:type="xsd:string">edgar</RequestName>
<key xsi:type="xsd:string">AOL</key>
</mns:ProcessSRL>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
Dim MyAgent As SoapAgent
Set MyAgent = New SoapAgent
MyAgent.AddParameter "SRLFile", "/xml/EDGAR.SRI", ""
MyAgent.AddParameter "RequestName", "Edgar", ""
MyAgent.AddParameter "key", "AOL", ""
MyAgent.ExecuteMethod "http://soapclient.com/xml/SQLDataSOAP.wsdl", "ProcessSRL"
MsgBox MyAgent.GetResponse("return")
Sample VB Code (MS SOAP 2.0)
The following code searches "SOAP" using
Yahoo.
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/edgar.sri"
Serializer.endElement
Serializer.startElement "RequestName"
Serializer.writeString "edgar"
Serializer.endElement
Serializer.startElement "key"
Serializer.writeString "AOL"
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
|
