Problème avec XMLCursor

Bonjour,

Le DOM microsoft me fait des misères, ou alors peut-être suis-je à l'ouest ?

voici un code de test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var DescXML,SearchNode,CurrentNode : IXMLCursor; begin DescXML := TXMLCursor.Create; CurrentNode := DescXML.AppendChild('TXT',''); CurrentNode := CurrentNode.AppendChild('PS',''); Memo1.Lines.Text := DescXML.XML; showmessage('Recherche...'); SearchNode := DescXML.Select('TXT/PS'); SearchNode.AppendChild('P', 'toto'); Memo1.Lines.Text := DescXML.XML; end;

---

L'instruction SearchNode.AppendChild('P', 'toto'); déclenche une exception : "TXMLCursor.AppendChild - EOF" et je vois pas comment je peux ajouter autrement un noeud pour aboutir à la structure suivante :

Code:

---

1 2 3 4 5

<TXT> <PS> <P>toto</P> </PS> </TXT>

---

j'ai pas bu pourtant...

;-) Sylvain

Autant pour moi, j'ai bafouillé avec XPath,
c'était Select('/TXT/PS') au lieu de Select('TXT/PS')...

Sylvain

Bonjour,

j'ai tester ton code et en plaçant un "/" devant TXT cela à marcher chez moi.

Code:

---

SearchNode := DescXML.Select('/TXT/PS');

---

essayes pour voir

:D

OUPS! trop tard ! ;)

Merci en tout cas !

Faut dire que je vérifie la plupart de mes requêtes XPath avec XMLSpy (menu XML/Evaluate XPath) et ce malin de XMLSpy m'affichait le bon résultat sans le / initial.
Bon à savoir...

Sylvain

de manière général il faut que tu testes après un SELECT si le résultat n'est pas a EOF car ca veut dire que le select n'a pas réussi a trouver d'element correspondant a ton critère.

Le noeud racine est un cas particulier. DescXML pointe deja sur le noeud racine TXT donc forcément en faisant TXT/PS il ne trouve pas de TXT sous la racine TXT :)

pour résumer ce qui se passe:
DescXML := TXMLCursor.Create;
DescXML.AppendChild('TXT','');

après ca on a l'etat suivant.

Code:

---

1 2 3 4

/ <-- racine DOM du dcoument <TXT> <-- DescXML </TXT>

---

Citation:

---

il faut que tu testes après un SELECT si le résultat n'est pas a EOF

---

Merci pour le tip, je cherchais justement un moyen.

thanks again,

Sylvain