1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Web service SOAP

Signaler
Messages postés
1
Date d'inscription
mercredi 15 mars 2017
Statut
Membre
Dernière intervention
21 mars 2017
 -
Messages postés
16054
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 juin 2021
 -
Je ne sais pas vu que c'est mon premier web-service.

Le problème c'est que je ne fais que l'utiliser. Cette définition wsdl de ce fichier ce n'est pas moi qui l'ai faite.

Si "xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap"" Semble incorrect ce n'est pas de mon ressort... et les autres utilisateurs semble utiliser ce web-service tous les jours.

J'ai changé d'approche je créer le tout de mon coté en VB.Net soit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part 

Dim SoapStr = ""
        SoapStr = "
        <SOAP-ENV:Envelope 
            xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" 
            xmlns:tns=""https://editeurs-inscription.cnfpt.fr/ws/agent/1.0/"">
          <SOAP-ENV:Header/>
          <SOAP-ENV:Body>
            <tns:SetAgent>
              <civilite>M.</civilite>
              <nom_usage>martin</nom_usage>
              <nom_naissance>nom_naissanceTest</nom_naissance>
              <prenom>prenomTest</prenom>
              <date_naissance>06/06/1988</date_naissance>
              <adresse_1>patati adr1</adresse_1>
              <adresse_2>adr2test</adresse_2>
              <adresse_3></adresse_3>
              <code_postal>54000</code_postal>
              <ville>Nancy</ville>
              <pays>France</pays>
              <telephone>0380888888</telephone>
              <tel_mobile>786161832</tel_mobile>
              <niveau_diplome>Niveau diplôme</niveau_diplome>
              <tel_professionnel>241721078</tel_professionnel>
              <collectivite_siret>siret:28540003200022</collectivite_siret>
              <lieu_travail_adresse_1>Adresse professionnelle</lieu_travail_adresse_1>
              <lieu_travail_adresse_2>Adresse professionnelle complement</lieu_travail_adresse_2>
              <lieu_travail_code_postal>49100</lieu_travail_code_postal>
              <lieu_travail_ville>angers</lieu_travail_ville>
              <service>servicetest</service>
              <references>reference</references>
              <domaine_activite>Interventions techniques</domaine_activite>
              <famille_professionnelle>Entretien et services généraux</famille_professionnelle>
              <emploi_fonction>chef</emploi_fonction>
              <mail>marcel.martin@collectivite.fr</mail>
              <responsable_hierarchique_nom>responsable_hierarchique_nom</responsable_hierarchique_nom>
              <responsable_hierarchique_prenom>responsable_hierarchique_prenom</responsable_hierarchique_prenom>
              <responsable_hierarchique_mail>andre.dupont@collectivite.fr</responsable_hierarchique_mail>
              <correspondant_formation_nom>correspondant_formation_nom</correspondant_formation_nom>
              <correspondant_formation_prenom>correspondant_formation_prenom</correspondant_formation_prenom>
              <correspondant_formation_mail>charles.durant@collectivite.fr</correspondant_formation_mail>
              <statutaire>O</statutaire>
              <grade>ADJOINT ADMINISTRATIF de 2ème CLASSE</grade>
              <code_net>TAJ1</code_net>
              <categorie>B</categorie>
              <date_entree_grade>01/10/2010</date_entree_grade>
              <date_entree_fpt>01/10/2008</date_entree_fpt>
              <qualite>Autre</qualite>
              <token_authentification>4079753b43fae6ea515e949b4532567c</token_authentification>
            </ns1:SetAgent>
          </SOAP-ENV:Body>
        </SOAP-ENV:Envelope>"
        Dim docXml as XmlDocument = new XmlDocument()
        Dim monStreamWriter As StreamWriter = New StreamWriter(Server.MapPath("./") & "test.txt")
        monStreamWriter.Write(SoapStr)
        monStreamWriter.Close()

        'Start NEW TEST
        Dim uri As Uri = New Uri("https://editeurs-inscription.cnfpt.fr/ws/agent/1.0/")
        Dim req As WebRequest = WebRequest.Create(uri)
        req.Headers.Add("SOAPAction","https://editeurs-inscription.cnfpt.fr/ws/agent/1.0/SetAgent/")

        req.Credentials = CredentialCache.DefaultCredentials
        req.Method = "POST"
        Dim byteArray() As Byte
        byteArray = System.Text.Encoding.UTF8.GetBytes(SoapStr)
        req.ContentLength = byteArray.Length
        req.ContentType = "text/xml; charset=utf-8"

        Dim streamData As Stream = req.GetRequestStream()
        streamData.Write(byteArray, 0, byteArray.Length)
        streamData.Close()

        Dim reqResponse As WebResponse = req.GetResponse()
        streamData = reqResponse.GetResponseStream()

        Dim streamReader As New StreamReader(streamData)
        Dim responseFromServer As String = streamReader.ReadToEnd()

        streamReader.Close()
        streamData.Close()
        reqResponse.Close()


Le problème c'est que j'ai toujours la même réponse "la définition wsdl" et selon ma documentation: "L'appel de cette ressource (https://..../agent/1.0/) sans paramètre retournera le fichier agent WSDL de la version 1.0"
Je pense pourtant appeler des paramètres en stipulant /agent/1.0/SetAgent/....

Des idées ?

1 réponse

Réponse 1 / 1
Messages postés
16054
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 juin 2021
 551
Bonjour, merci ou s'il vous plait sont essentiels à toute demande car ces mots marquent la politesse élémentaire et montrent le respect que tout demandeur devrait avoir envers les bénévoles qui animent ce forum.

Merci donc de reformuler correctement votre question.
Répondre Posez votre question