Pb avec 'EndMessage' de l'objet 'ISoapConnector'

Question

Bonjour à tous 

je dois me connecter à un webservice avec visual basic 6
j'ai chargée la SOAP TOOL KIT 3.0 et référencé le projet 
lors de l'envoi de ma requête SOAP, cela me fait les erreurs suivantes et je n'ai aucune idée d'où vient le problème 

erreur d'exécution '5300' :
la méthode 'EndMessage' de l'objet 'ISoapConnector' a échoué

lorsque que je relance l'application 

erreur d'exécution '5' :
Argument ou appel de procédure incorrect

un peu de code :

'paramétrage du web service
Private Sub SetSoapHeader(Connector As SoapConnector, _
                            Serializer As SoapSerializer, _
                           Service As String, _
                           Method As String)

    URI = "urn:" & Service
    Connector.Property("EndPointURL") = "http://127.0.0.1:8202"
    Call Connector.Connect
    Connector.Property("SoapAction") = URI & "#" & Method
    Call Connector.BeginMessage
    Serializer.init Connector.InputStream
    Serializer.StartEnvelope , ENC
    Serializer.SoapNamespace "xsi", XSI
    Serializer.SoapNamespace "SOAP-ENC", ENC
    Serializer.SoapNamespace "xsd", XSD
    Serializer.StartBody
    Serializer.startElement Method, URI, , "method"

End Sub

'fonction de construction de ma requête 
Private Sub list_conferences()

    Dim Connector As SoapConnector
    Dim Serializer As SoapSerializer
    Dim Reader As SoapReader

    Set Connector = New HttpConnector
    Set Serializer = New SoapSerializer
    Set Reader = New SoapReader

    Dim texts() As String
    Dim authors() As String

        'appel de ma fonction getSMSserversList définit dans mon fichier wdsl
    SetSoapHeader Connector, Serializer, "prescom-sgp", _
                                            "getSMSserversList" 
    SetSoapFooter Connector, Serializer
    Reader.Load Connector.OutputStream
    
    With Reader
         If .Fault Is Nothing Then
            Execute = "FAULT: " & .FaultString.Text
        Else
            Execute = .RpcResult.Text
        End If
    End With
    
    MsgBox Execute
End Sub

Private Sub SetSoapFooter(Connector As SoapConnector, _
                            Serializer As SoapSerializer)

    Serializer.endElement
    Serializer.EndBody
    Serializer.EndEnvelope
    Connector.EndMessage

End Sub

mnyloko · Answer

Hello !!!

J'ai trouvé la réponse à mon problème .
En fait mon application cliente utilise une DLL SOAP pour structurer un message au format SOAP avant l'envoi vers le serveur.
Et lorsque mon application envoie ce message au service web ce dernier n'acceptant pas la connexion il renvoie cette erreur.
pour y remédier il suffit juste de bien paramétrer le client et le serveur avec les bons port.

voilà

Pb avec 'EndMessage' de l'objet 'ISoapConnector'

1 réponse

Votre réponse

Discussions similaires