Discussion :

[Sylvain James]

Bonjour,

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

voici un code de test :

Code :

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

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 :

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

1
2
3
4
5
<TXT>
  <PS>
    <P>toto</P>
  </PS>
</TXT>

j'ai pas bu pourtant...

;-) Sylvain

[Sylvain James]

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

Sylvain

[delicatessen2]

Bonjour,

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

Code :

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

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

essayes pour voir



OUPS! trop tard !

[Sylvain James]

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

[RDM]

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 :

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

1
2
3
4
 
/ <-- racine DOM du dcoument
  <TXT> <-- DescXML 
  </TXT>

[Sylvain James]

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