Discussion :

[franckcl]

Bonjour,

J'ai ajouté un composant TXMLDocument sur ma form ainsi qu'un memo et deux boutons.
Les options du XML sont : [doNodeAutoIndent,doAttrNull]

Ensuite, je crée un document XML comme cela :

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
  nodeDoc,node : IXMLNode;
  S : UTF8string;
Begin
  nodeDoc := Xml.AddChild('xml');
  node := nodeDoc.AddChild('Tag');  node.Attributes['item'] := 'Value1';
  node := nodeDoc.AddChild('Tag');  node.Attributes['item'] := 'Value2';
  node := nodeDoc.AddChild('Tag');  node.Attributes['item'] := 'Value3';
  Xml.SaveToXML(s);
  Memo1.Text := S;
End;

Ce qui donne ceci :

Code :

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

1
2
3
4
5
6
 
<xml>
  <Tag item="Value1"/>
  <Tag item="Value2"/>
  <Tag item="Value3"/>
</xml>

Ensuite, si je recharge le fichier par la procédure LoadFromFile, je peux en connaître les nœuds fils.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button2Click(Sender: TObject);
Var
  nodeDoc,node : IXMLNode;
  i : integer;
begin
   xml.LoadFromFile('c:\temp\test.xml');
  nodeDoc := Xml.DocumentElement;
  ShowMessage(nodeDoc.LocalName+', '+IntToStr(Xml.DocumentElement.ChildNodes.count)+' éléments'); 
  for i := 0 to Xml.DocumentElement.ChildNodes.count-1 do
  Begin
    node := Xml.DocumentElement.GetChildNodes[i];
    ShowMessage(node.NodeName);
  End;
end;

Voici ce qu'on obtient en sortie :
"xml, 3 éléments"
"Tag"
"Tag"
"Tag"

Ce qui est correct.

PROBLÈME : si je n'appelle pas la procédure xml.loadFromFile, cela ne fonctionne pas, voici ce que j'obtiens :
"xml, 10 éléments"
"#text"
"#text"
"Tag"
"#text"
"#text"
"Tag"
"#text"
"#text"
"#Tag"
"#text"

Pourquoi le résultat est-il différent ? Pourquoi je lis des "#text" alors que je ne les lis pas lorsque je charge le fichier ?
Si cela indique que le texte du tag est vide, pourquoi cela apparaît uniquement ici et pourquoi il y en a autant, puisqu'on ne peut avoir qu'un seul champ texte par tag non ?

Bien sûr ce que je cherche c'est à ne pas passer par un fichier intermédiaire.
Pour mon application, je souhaiterais pouvoir relire le fichier juste après avoir écrit dedans.
Merci

[Andnotor]

Tout est "nœud" dans un document XML, pas uniquement les balises <Tag>. Ajoute un commentaire <!--Comment--> et tu as un nouveau nœud de type ntComment.
Avec <Tag>Texte</Tag>, tu auras un nœud de type ntElement et un sous-nœud de type ntText.

Des nœuds #Text sont manifestement ajoutés systématiquement à cause de l'AutoIdent ! Quelque chose de pas clair la derrière, le parser semble s'emmêler les pinceaux...

[franckcl]

Oui, tu as raison Andnotor, c'est ce que je me suis rendu compte.
Lors de la création d'éléments par la fonction AddChild, il ajoute effectivement d'autres nœud, ce qui n'est pas le cas lorsqu'on fait un LoadFromFile avec ce même document, d'où les différences.
Donc par exemple, pour ajouter un item au 3ème tag, la solution que j'ai trouvé est que je balaie tous les noeuds et je compte le n ème noeud de type ntElement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Function GetElementNum(Anode:IXMLNode;num:integer):IXMLNode;
  Var i,j : integer;
  Begin
    j := 0;
    result:=Anode.GetChildNodes[0];
    for i := 0 to Anode.ChildNodes.count-1 do
    if Anode.GetChildNodes[i].GetNodeType=ntElement then
    Begin
      inc(j);
      if j=num then result:=Anode.GetChildNodes[i];
    end;
  end;