Comment retirer l'enveloppe SOAP d'un document XML avec TXMLDocument

Version imprimable

Je travaille actuellement sur une application sous XE7 et avec TXMLDocument. Je dois lire la valeur contenu dans un un nœud d'un document XML. Ce fichier XML est une réponse à une requête SOAP,
lorsque je retire (manuellement) l'enveloppe SOAP (les balises <soap:Envelope> et <soap:Body> ) du document et teste un code comme celui-ci :
Code:

1 2 ShowMessage(XMLDocument1.ChildNodes['Noeud1'].ChildNodes['Noeud2'].Text);
la valeur que je recherche s'affiche mais si je garde l'enveloppe, j'ai une valeur null en retour bien que le nœud contienne une valeur texte non null.
Voici à quoi ressemble ce document XML :
Code:

1 2 3 4 5 6 7 8 9 <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <Corps de la réponse> </Corps de la réponse> </soap:Body> </soap:Envelope>
Ma question est la suivante : Comment retirer l'enveloppe SOAP d'un document XML avec TXMLDocument ?
Je vous remercie d'avance pour toute réponse ou aide.

08/12/2016, 11h38
ShaiLeTroll

Comment récupère tu le XML SOAP ?
Si tu utilises un THTTPRIO et un TXMLData, ce dernier contient juste le contenu XML pour le Corps, ou alors c'est que je n'ai pas compris ta demande !
Tu as bien déclaré dans ton client tes classes TRemotable (voir l'expert qui le fait automatiquement depuis le WSDL)
08/12/2016, 13h50
kournane

J'utilise un THTTPRIO avec lequel j'envoie la requête et je reçois la réponse que j'enregistre sous forme de fichier XML, jusque là tout fonctionne parfaitement bien. Ma demande porte sur le fichier xml de réponse que je n'arrive pas à parser en utilisant TXMLDocument. En fait, quand je supprime les balises qui forme l'enveloppe et que j'essaie de récupérer la valeur d'un nœud ça marche mais si je teste le même code en gardant ces balises, j'ai NULL comme valeur de renvoie alors que le nœud contient bien une valeur texte.
08/12/2016, 16h04
ShaiLeTroll

Tu n'as pas besoin de parser le contenu, les objets TRemotable le font déjà !
Tu as bien importé le WSDL pour générer ton Wrapper ?
L'expert est disponible dans un menu de Delphi (Fichier | Nouveau | WebService | Importateur WSDL)
mais tu peux aussi WSDLImp en ligne de commande
13/12/2016, 10h00
kournane

Je pense qu'il n'y a pas besoin d'importer le WSDL, j'ai juste renseigné les paramètres URL et SOAPAction du composant THTTPRIO et j'ai reçu la réponse (sous forme de fichier XML) du service web.
J'utilise ensuite un TXMLDocument pour accéder au valeur contenu dans les nœuds du fichier XML. Le problème est que la ligne de code (ci-dessous) me renvoie NULL si je garde l'enveloppe SOAP du fichier XML et me renvoie la bonne valeur lorsque je la retire.

Code:

ShowMessage(XMLDocument1.ChildNodes['Noeud1'].ChildNodes['Noeud2'].Text);

Si tu connais le nom de <Corps_de_la_réponse> et qu'il ne change JAMAIS !
tu peux faire l'extraction très simplement

Code:

XML := Copy(ChaineSOAP, Pos(ChaineSOAP, '<Corps_de_la_réponse>') + Length('<Corps_de_la_réponse>'), Pos(ChaineSOAP, '</Corps_de_la_réponse>') - (Pos(ChaineSOAP, '<Corps_de_la_réponse>') + Length(<Corps_de_la_réponse>)));

Je te laisse corriger les +1 ou -1 pour avoir le bon nombre de caractères dans le 3eme paramètre

Bon, je suppose que ce n'est pas aussi simple dans ton cas,
sinon tu aurais trouvé cette solution évidente tout seul !
:roll:

As-tu essayé ceci en chargeant tout le document ?
Code:

1 2 3 4 5 6 7 <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <Noeud1> <Noeud2 Attr1="Même pas mal">Trop Facile</Noeud2> </Noeud1> </soap:Body> </soap:Envelope>
Code:

ShowMessage(XMLDocument1.ChildNodes['soap:Envelope'].ChildNodes['soap:Body'].ChildNodes[0].ChildNodes[0].Text);

Mais cela aussi c'est tellement évident que cela doit être plus compliqué
:aie:

Personnellement, je trouve que la syntaxe ChildNodes[...].ChildNodes[...].ChildNodes[...].ChildNodes[...].ChildNodes[...]... est horrible !
XPATH c'est chiant genre /*[local-name()="Envelope"]/*[local-name()="Body"]/*[local-name()="Noeud1"]/*[local-name()="Noeud2"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 var DomNodeSelectIntf: IDomNodeSelect; DomNode: IDOMNode; DomNodeEx: IDOMNodeEx; begin XMLDocument1.XML := Memo1.Lines; XMLDocument1.Active := True; // - Via IDomNodeSelect.selectNode if Assigned(XMLDocument1.DOMDocument) and Supports(XMLDocument1.DOMDocument, IDomNodeSelect, DomNodeSelectIntf) then begin DomNode := DomNodeSelectIntf.selectNode('/*[local-name()="Envelope"]/*[local-name()="Body"]/*[local-name()="Noeud1"]/*[local-name()="Noeud2"]'); if Supports(DomNode, IDOMNodeEx, DomNodeEx) then begin ShowMessage('IDomNodeSelect.selectNode' + sLineBreak + 'Node : ' + DomNode.nodeName + sLineBreak + 'Text : ' + DomNodeEx.Text + sLineBreak + 'Attr1 : ' + DomNode.attributes.getNamedItem('Attr1').nodeValue); end else begin ShowMessage('IDomNodeSelect.selectNode' + sLineBreak + 'Node : ' + DomNode.nodeName + sLineBreak + 'Attr1 : ' + DomNode.attributes.getNamedItem('Attr1').nodeValue); end; end; end;
XPATH c'est standard mais c'est pas très facile à lire
Donc je me suis fait ma routine pour la lisibilité
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 function FindNodeEx(ANode: IXMLNode; const APath: array of string; APathIndex: Integer = 0): IXMLNode; var I: Integer; begin if APathIndex < High(APath) then begin for I := 0 to ANode.ChildNodes.Count - 1 do begin if SameText(ANode.ChildNodes[I].NodeName, APath[APathIndex]) then Exit(FindNodeEx(ANode.ChildNodes[I], APath, APathIndex + 1)); end; end else if APathIndex = High(APath) then begin for I := 0 to ANode.ChildNodes.Count - 1 do begin if SameText(ANode.ChildNodes[I].NodeName, APath[APathIndex]) then Exit(ANode.ChildNodes[I]); end; end else if SameText(ANode.NodeName, APath[APathIndex]) then Exit(ANode); Result := nil; end;
cela permet un appel très lisible, Memo1 contient le XML ci-dessus
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 var XMLNode: IXMLNode; begin XMLDocument1.XML := Memo1.Lines; XMLDocument1.Active := True; // - Via FindNodeEx XMLNode := FindNodeEx(XMLDocument1.Node, ['soap:Envelope', 'soap:Body', 'Noeud1', 'Noeud2']); ShowMessage('FindNodeEx' + sLineBreak + 'Node : ' + XMLNode.NodeName + sLineBreak + 'Text : ' + XMLNode.Text + sLineBreak + 'Attr1 : ' + XMLNode.Attributes['Attr1']); end;
A l'époque de D6 et D7, j'ai intégré plus de 5 WebService en tant que client (j'en étais l'auteur en PHP4-NuSOAP pour certains) , j'ai toujours utilisé le WSDL !
Pourquoi ne pas utiliser ce qui existe ?
:koi:

Une contrainte imposée dans votre devoir pour l'école de manipuler le XML à la main ?
:scarymov:

Une seule fois, j'ai du le faire via un TXMLData issu d'un WS en Microsoft BizTalk, le leader peut toujours faire du non-standard que cela en devient un standard quelques années plus tard :mouarf:
Mais même dans ce cas, je suis passé par le WSDL pour me créer un objet TRemotable qui s'occupe d'extraire le simple XML à partir du message SOAP
Plus fiable que le Copy si ton contenu évolue !

As-tu essayer d'utiliser le TXMLData pour extraire le XML dans le SOAP ?
Au final, le TXMLData ne contiendra QUE le XML de données dans sa propriété TXMLData.XMLNode ce qui résoud ton problème de l'enveloppe SOAP
Et ce qui est merveilleux lorsque l'on utilise ce qui existe, c'est que XMLNode c'est un IXMLNode qui propose la propriété TXMLData.XMLNode.ChildNodes
:sm:

Tu as une version XE7, TXMLData est inclus ! Profites-en !
En Delphi 7, il y a plus de 10 ans, cela n'étais pas le cas, il a fallu que je cherche

Au final tu pourrais écrire en utilisant le WSDL et le générateur de code source

Code:

ShowMessage((THTTPRIO as IMonService).GetXML().XMLData.XMLNode.ChildNodes['Noeud1'].ChildNodes['Noeud2'].Text);

Faut-il écouter les conseils des développeurs expérimentés lorsque l'on est un étudiant !