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

Signaler
Messages postés
4
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
26 août 2009
-
Messages postés
4
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
26 août 2009
-
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

1 réponse

Messages postés
4
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
26 août 2009

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à