Problem is,
The following code displaying the first node set out of results.
I want to display all the results. PLS help.
Private Sub cmdCallSoap_Click()
Dim objResults As MSXML2.IXMLDOMNodeList
Dim objNode As MSXML2.IXMLDOMNode
Dim pstrPhpURL As String 'This is your web URL name
Dim pStrFunction As String 'This is your web service name
Dim xmlstr As String 'Parse you parameter with XML string
'' On Error GoTo ErrH
Dim Serializer As SOAPSerializer
Dim Reader As SoapReader
Dim Connector As SOAPConnector
Dim dRtnStr As String
Dim i&
'''' pstrPhpURL = "http://192.168.1.110:8080/PABC/services/currency/getCurrencyList"
'''' pStrFunction = "currency"
'''' xmlstr = "USD"
pstrPhpURL = "http://192.168.1.110:8080/PABC/services/currency/getCurrencyList"
pStrFunction = "currency"
xmlstr = "GBP"
'''' pstrPhpURL = "http://www.webservicex.net/CurrencyConvertor.asmx?WSDL"
'''' pStrFunction = "ConversionRate"
''''
''''
Set Connector = New HttpConnector
Connector.Property("EndPointURL") = pstrPhpURL
Connector.Connect
Connector.Property("SoapAction") = pStrFunction
Connector.BeginMessage
Set Serializer = New SOAPSerializer
Serializer.Init Connector.InputStream
Serializer.StartEnvelope , , "UTF-8"
Serializer.StartBody
Serializer.StartElement pStrFunction, "", "", ""
Serializer.WriteString xmlstr
Serializer.EndElement
Serializer.EndBody
Serializer.EndEnvelope
Connector.EndMessage
Set Reader = New SoapReader
Reader.Load Connector.OutputStream
'' Reader.BodyEntries.nextNode
'If Not Reader.RpcResult Is Nothing Then
dRtnStr = Reader.RpcResult.text
text.text = dRtnStr & vbCrLf
For Each objNode In objResults
'Debug.Print objNode.nodeValue
MsgBox objNode.nodeTypedValue
Next objNode
'Else
'The web service result will be stored in this variable
' dRtnStr = "Error"
' text.text = xmlstr
'End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub