pcsoft.fr.windevCopyright 2026, PC SOFT5 Apr 2019 04:04:13 Z27 Feb 2019 12:16:27 ZBonjour à tous, j'ai créé un webService SOAP qui contient 2 Procédures globales qui sont : - PG_XML_IMPORT (issu des exemples PCsoft) - PushData(flux est une chaine) mon fournisseur m'envoi un flux par la procédure <PushData> mon problème : je récupère ce flux mais je ne peux ni récupérer le contenu par fichier texte, ni récupérer les données. Quand je le fait à partir d'un programme test dans windev (avec utilisation du fichier WSDL) ça fonctionne. voici mes 2 procédures, ci-dessous. Merci à tous de votre aide. LH ====================== PROCÉDURE PushData(sFluxXML est une chaîne) s_DOCXML est une chaîne="DOCXML" sFichierXML est une chaîne = "c:\temp\PushData_"+DateSys()+"_"+HeureSys()+".xml" sFluxEntrant est une chaîne = sFluxXML sFluxReponse est une chaîne bResFlux est un booléen = Faux fSauveTexte(sFichierXML,sFluxEntrant) QUAND EXCEPTION DANS //ouverture du document bResFlux = XMLDocument(s_DOCXML,sFluxEntrant) SI bResFlux = Faux ALORS PI_FluxReponse("200") //positionnement à la racine XMLRacine(s_DOCXML) //parcours du document PG_XML_IMPORT(s_DOCXML) //fin du document XMLTermine(s_DOCXML) PI_FluxReponse("OK") FAIRE bResFlux = Faux PI_FluxReponse("100") FIN RENVOYER sFluxReponse PROCÉDURE INTERNE PI_FluxReponse(sErreurCode) SI PAS bResFlux ALORS sFluxReponse=[ <success>false</success> <errorMessage>%1</errorMessage> ] sFluxReponse = ChaîneConstruit(sFluxReponse,sErreurCode) SINON sFluxReponse=[ <success>true</success> <errorMessage>%1</errorMessage> ] sFluxReponse = ChaîneConstruit(sFluxReponse,sErreurCode) FIN FIN ==================== PROCÉDURE PRIVÉE PG_XML_IMPORT(sDocXML, nNiveau=0) nPositionXML est un entier sElement est une chaîne bAttribut est un booléen bBalise est un booléen sData est une chaîne // Parcours de tous les éléments XMLPremier(sDocXML) TANTQUE PAS XMLEnDehors(sDocXML) // Récupère les données de l'élément sData = XMLDonnée(sDocXML) //Type d'élément bAttribut = Faux bBalise = Faux SELON XMLTypeElement(sDocXML) CAS XMLAttribut // Attribut affiché entre côtes sElement = XMLNomElément(sDocXML) bAttribut = Vrai CAS XMLBalise // Attribut affiché entre < et > sElement = XMLNomElément(sDocXML) bBalise = Vrai AUTRE CAS // dont CAS XMLErreur sElement = "Erreur XML" FIN // Il y a des données pour cet élément ? SI ChaîneFormate(sData, ccSansPonctuationNiEspace + ccSansEspace + ccSansAccent) = "" ALORS // Pas de données SINON // OK données SELON sElement CAS "groupName" goXmlImport <- allouer un cXmlImport goXmlImport.PL_Statut_Changer(StAjouter) goXmlImport:m_GroupName = sData CAS "key" goXmlImport:m_Key = sData CAS "value" goXmlImport:m_Value = sData goXmlImport.PL_Data_Enregistrer(goErreur) //CAS "customerID" // bCustomerID = vrai //si GetGUIDid(sData) = "ACTIF" alors bCustomerID = vrai AUTRE CAS FIN FIN // Il y a des balises ou des attributs pour cet élément ? SI XMLFilsExiste(sDocXML, XMLBalise + XMLAttribut) = Vrai ALORS // Sauve la position actuelle nPositionXML = XMLSauvePosition(sDocXML) // Se positionne sur le fils XMLFils(sDocXML) // Parcourt le fils PG_XML_IMPORT(sDocXML, nNiveau+1) // Se repositionne comme avant le positionnement sur le fils XMLRetourPosition(sDocXML, nPositionXML, XMLRPDéfaut) FIN // Suite du XML XMLSuivant(sDocXML) FIN -- LH30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/224310-probleme-recuperation-flux-xml-webservice-soap/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)