Utilizzo Comandi Soap Con Wsdl In Vb6

[PITSOFT]

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/p.../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.

Questo il codice che ho cercato di ricavare da vari esempi ed help, solo che non funziona e restituisce solo messaggi di errori. Qualcuno può dirmi dove è l'errore?

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

[gibra]

Originariamente inviato da PITSOFT
Questo il codice che ho cercato di ricavare da vari esempi ed help, solo che non funziona e restituisce solo messaggi di errori. Qualcuno può dirmi dove è l'errore?

1. Sei tu che devi dire dove ricevi gli errori.
2. Come da Regolamento , il codice va indicato trai TAG appositi.

[PITSOFT]

Ok riformulo la domanda e posto il codice come mi hai richiesto.
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/...s/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