Discussion :

[Nathan62]

bonjour,
Je me décide à poster ce messsage car je rencontre un problème avec une structure XML que je dois lire sous delphi
en effet je n'ai trouvé aucun exemple de structure semblable a celle ci :

<xat version="1" xmlns="http://www.mon-url.net/xsd/xat2/1">
<date-envoi format="yyyy-MM-dd HH:mm:ss">2008-05-22 09:54:26</date-envoi>
<uri-service-list>
<uri-service action="Display">http://www.mon-url.net/SINERES/xataff</uri-service>
<uri-service action="TestSessionFlow">http://www.mon-url.net/SINERES/xattsf</uri-service>
<uri-service action="SessionShuttle">http://www.mon-url.net/SINERES/xatshtl</uri-service>
<uri-service action="ManageSession">http://www.mon-url.net/SINERES/xatsess</uri-service>
</uri-service-list>
</xat>


Une fois que j'ai reçu cette réponse par xml je dois lire l'url d'un service à interroger
exemple
le service TestSessionFlow qui est plublié à l'URL http://www.mon-url.net/SINERES/xattsf dans le XML chargé dans mon composant TXMLdocument

Comment fait on sous delphi avec une telle structure de document XML ??

Si qquun a la solution ..merci ..je me gratte la tête depuiS un bon moment déjà....

[ShaiLeTroll]

Regarde le composant TXMLDocument, l'aide explique commennt parcourir les ChildNodes\Nodes (uri-service-list, uri-service, ...) et les Attributes (action, format, ...), je n'ai pas d'exemple simple sous la main

sinon avec une version Entreprise, regarde l'Expert Liaison de données XML, il te construira automatiquement un mapping interface\object implement avec des IXLMNode qui est très facile ensuite à manipuler

[Nathan62]

J'ai passé la journée a étudier l'aide a regarder tout les cours trouvés sur le web et sur developpez.com avant de poster cette dernière bouteille a la mer
(je suis débutant dans la manipulation du xml mais pas en delphi avec qui je développe depuis 97)

Donc, sans être un expert j'arrive bien a manipuler une structure xml classique avec un Txmldocument sans problème mais ici le problème est qu'il y a plusieurs noeuds uri-service avec plusieurs attributs et que je dois accéder la la valeur (l'url) de chaque attribut : comment accéder a l'url en fonction de la valeur d'un attribut ?
....apparemment personne ne sait ...
j'ai bien peur de devoir me construire mon propre analyseur de balises XML
car je ne trouve pas de méthode le permettant sur le Txmldocument ..je ne sais pas si c'est du XML classique (j'ai un delphi 7 entreprise)

<uri-service-list>
<uri-service action="Display">http://www.mon-url.net/SINERES/xataff</uri-service>
<uri-service action="TestSessionFlow">http://www.mon-url.net/SINERES/xattsf</uri-service>
<uri-service action="SessionShuttle">http://www.mon-url.net/SINERES/xatshtl</uri-service>
<uri-service action="ManageSession">http://www.mon-url.net/SINERES/xatsess</uri-service>
</uri-service-list>
</xat>

concernant l'expert de liaison j'ai un peu regardé mais cela ne semble pas convenir a mon utilisation : en effet dans mon projet il s'agit d'interfacer mon logiciel (delphi win32) avec un site qui dialogue en http a coup de get et de post de formulaires XML (plus de 200 définis ) donc un peu dur a gérer avec l'expert de liaison. Je suis donc en cours de développement d'une ISAPI en delphi 7 qui dialogue selon ce protocole ...

showmessage(XMLDocument1.ChildNodes.Nodes['xat'].ChildNodes['uri-service-list'].ChildNodes['uri-service'].attributes['action']);

me retourne uniqement 'display' qui est le nom du premier attribut du premier enregistrement de la collection <uri-service>
comment obtenir les autres TestSessionFlow,SessionShuttle...et surtout comment obtenir l'URL de ces noeuds en fonction de la valeur de ces attributs ?
merci

[Nathan62]

Merci ShaileTroll...j'ai un peu approfondi la question de l'expert de liaison XML et effectivement avec cette solution je parviens a résoudre mon probleme (a part que cela me génére autoant do'bjjet et d'unité qu'il y a de format XML a explotier avec autant de déclaration d'objets alors que je ne travaillais j'usqu'ici qu'avec une classe de comm faite maison et un txmldocument mais bon..)
En exploitiant ce que me contruit l'expert de liaison XML le code suivant fait ce que je souhaite :

Code :

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

1
2
3
4
5
6
7
8
9
var Vxat2: IXMLXat2Type;
    i : integer;
begin
 XMLDocument1.Active:=true;
 Vxat:=Getxat2(XMLDocument1);
 for i:=0 to (vxat.Uriservicelist.Count)-1 do begin
 showmessage(vxat.Uriservicelist.Uriservice[i].Action); //display....
 showmessage( vxat.Uriservicelist.Uriservice[i].Text) //les url qui  m'interressent
end;

[Aka Guymelef]

En fait pour moi l'idée, sans passer par l'expert de liaison XML, serait de parcourir les ChildNodes de uri-service-list non pas par leur nom mais par leur indice soit :

Code :

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

1
2
3
for Cpt := 0 to XMLDocument1.ChildNodes.Nodes['xat'].ChildNodes['uri-service-list'].ChildNodes.Count - 1 do
  ShowMessage( XMLDocument1.ChildNodes.Nodes['xat'].ChildNodes['uri-service-list'].ChildNodes[Cpt].attributes['action'] );
end;

[Nathan62]

merci c'est exactement ce qu'il me fallait ...ce qui me manquais c'est que je ne savait pas comment parcourir les noeuds d'une liste par leur indice

Code :

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

1
2
3
 
 if ( XMLDocument1.ChildNodes.Nodes['xat2'].ChildNodes['uri-service-list'].ChildNodes[Cpt].attributes['action'] )='TestSessionFlow' then
    ShowMessage( XMLDocument1.ChildNodes.Nodes['xat2'].ChildNodes['uri-service-list'].ChildNodes[Cpt].Text);