Ho un problema, probabilmente dovuto alla sintassi errata per l'utilizzo delle libreria SOAP di Microsoft in ambiente Visual Basic 6.
Devo accedere tramite WSDL ad un archivio remoto.
Il WSDL è disponibile su http://carttestnal.rete.toscana.it/proxy-aoo/services/AooSilWS?wsdl ed il metodo che devo utilizzare è getAllAoo(inizioPag, dimensionePag), che restituisce la lista di tutti i record Aoo presenti sulla base dati, dove inizioPag deve essere posto uguale ad 1 e dimensionePag a 50.
Lanciando il programma ricevo il messaggio di errore
org.apache.axis2.databinding.ADBException: Unexpected subelement inizioPag
Questo il codice che ho cercato di ricavare da vari esempi ed help, solo che non funziona e restituisce il messaggio di errore sopraindicato. Qualcuno può aiutarmi?
Dim SoapConnector As MSSOAPLib30.SoapConnector30
Dim SOAPSerializer As MSSOAPLib30.SoapSerializer30
Dim SOAPReader As MSSOAPLib30.SoapReader30
Dim SOAPParser As MSSOAPLib30.DimeParser30
Dim generaSOAP As String
Set SoapConnector = New MSSOAPLib30.HttpConnector30
SoapConnector.Property("EndPointURL") = "http://carttestnal.rete.toscana.it/proxy-aoo/services/AooSilWS?wsdl"
SoapConnector.Connect
SoapConnector.Property("SoapAction") = "http://carttestnal.rete.toscana.it/proxy-aoo/services/AooSilWS/getAllAoo"
SoapConnector.BeginMessage
Set SOAPSerializer = New MSSOAPLib30.SoapSerializer30
SOAPSerializer.Init SoapConnector.InputStream
SOAPSerializer.StartEnvelope
SOAPSerializer.StartBody
SOAPSerializer.StartElement "getAllAoo", "uri:Math", , "Functions"
SOAPSerializer.StartElement "inizioPag", "uri:Math", , "Functions"
SOAPSerializer.WriteString 1
SOAPSerializer.EndElement
SOAPSerializer.StartElement "dimensionePag", "uri:Math", , "Functions"
SOAPSerializer.WriteString 2
SOAPSerializer.EndElement
SOAPSerializer.EndElement
SOAPSerializer.EndBody
SOAPSerializer.EndEnvelope
SOAPSerializer.Finished
SoapConnector.EndMessage
Set SOAPReader = New MSSOAPLib30.SoapReader30
Set SOAPParser = New MSSOAPLib30.DimeParser30
SOAPReader.LoadWithParser SoapConnector.OutputStream, SOAPParser
If Not SOAPReader.Fault Is Nothing Then
generaSOAP = SOAPReader.FaultString.Text
MsgBox "Errore! " & generaSOAP
Else
generasoapok = SOAPReader.RpcResult.Text
End If
FINERICEZIONE:
Label2.Caption = generaSOAP & "- " & generasoapok