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