Procédure permettant la création de Node XML

Bonjour,

Je travaille sur un module qui construit un arbre XML et je voudrais avoir une procédure qui prend en charge la création des noeuds.
Voilà sa déclaration :

Code:

---

1 2 3 4 5

function SYNCHRO_CreeNoeud(var PO_NoeudParent : IXMLNode; PC_AttributNom : String; PC_AttributValeur : String; PC_NoeudNom : String; PC_NoeudValeur : String) : IXMLNode;

---

La question que je me pose est de savoir si le paramètre de noeud parent doit ou non être précédé de var
A priori oui compte tenu que la procédure fait un AddChild dessus.
Mais quand j'appelle ma procédure j'ai une erreur

Code:

---

SYNCHRO_CreeNoeud(PO_Racine.ChildNodes[i], '', '', 'NomNoeud', '');

---

Merci de votre avis

Non, c'est des Interfaces que tu manipules, cela ne passe comme paramètre que la référence de l'interface, le var est inutile

puis mieux comprendre, tu peux regarde l'instanciation statique et l'instanciation dynamique du C++ pour comprendre la notion de référence, en sachant qu'en Delphi, il n'y a que de l'instancation dynamique

OK je retire le var
Par contre j'ajoute un noeud racine à l'arbre ça marche

Code:

---

1 2 3

XMLDocument.Active := True; XMLDocument.ChildNodes.Clear; LO_Racine := XMLDocument.AddChild('root');

---

J'ajoute un premier noeud à la racine ça marche toujours

Code:

---

LO_Rubrique := SYNCHRO_CreeNoeud(LO_Racine, '', '', 'Contrats', '');

---

J'ajoute un noeud au niveau enfant de celui que je viens de créer et là ça claque. C'est pour cela que je me posais cette question

tu fais bien dans SYNCHRO_CreeNoeud ?

Code:

---

1 2 3

Result := PO_NoeudParent.AddChild(PC_NoeudNom); Result.Text := PC_NoeudValeur; Result.Attributes[PC_AttributNom] := PC_AttributValeur;

---

Tout à fait pour l'AddChild
Par contre je valorise NodeValue au lieu de Text mais je ne pense pas que cela vienne de là. Cela fonctionnait jusqu'à ce que j'ajoute un niveau d'arborence supplémentaire

Code:

---

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

function SYNCHRO_CreeNoeud(var PO_NoeudParent : IXMLNode; PC_AttributNom : String; PC_AttributValeur : String; PC_NoeudNom : String; PC_NoeudValeur : String) : IXMLNode; var LO_Noeud : IXMLNode;   Begin LO_Noeud := PO_NoeudParent.AddChild(PC_NoeudNom); If PC_AttributNom <> '' Then LO_Noeud.SetAttributeNS(PC_AttributNom, '', PC_AttributValeur); LO_Noeud.NodeValue := PC_NoeudValeur; Result := LO_Noeud; End;

---

C'est un code sur lequel je travaille le soir en plus de ma régie. Je posterai demain le message d'erreur précis.
Merci piur l'aide

Bonjour,

Je pense avoir identifié mon problème.
Si je crée un noeud comme indiqué dans les messages précédents il n'y a pas de problème.
Par contre c'est sur la ligne suivante que la création se plante :

Code:

---

1 2	For i := 0 To PO_Racine.ChildNodes.Count - 1 Do Begin LO_NoeudDetails := SYNCHRO_CreeNoeud(PO_Racine.ChildNodes[i], '', '', 'nomNoeud', '');

---

Message : ne peut être effectué avec un noeud de type élément.

en fait il doit falloir retirer le Text (NodeValue) et le mettre comme un attribut Text dans la balise

Code:

---

<Contrats>Valeur<Contrats>

---

en

Code:

---

<Contrats Text="Valeur"></Contrats>

---

car effectivement en XML, tu ne peux pas avoir

Code:

---

<Contrats>Valeur<Enfant></Enfant></Contrats>

---

mais bien

Code:

---

<Contrats Text="Valeur"><Enfant></Enfant></Contrats>

---

tu peux tester IsTextElement pour vérifier si c'est un noeud Text ou un vrai Noeud

Merci.

Ca me paraît bizarre d'avoir tenté d'attacher des noeuds à un noeud Text.
J'essaie ce soir.
Je posterai la réponse (et j'espère le tag résolu) demain

C'était bien vu et ça marche.
En fait même le fait de valoriser avec une chaine vide la propriété Node Value suffit à changer la propriété IsTextElement.
J'ai modifié ainsi

Code:

---

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

function SYNCHRO_CreeNoeud(var PO_NoeudParent : IXMLNode; PC_AttributNom : String; PC_AttributValeur : String; PC_NoeudNom : String; PC_NoeudValeur : String) : IXMLNode; var LO_Noeud : IXMLNode;   Begin LO_Noeud := PO_NoeudParent.AddChild(PC_NoeudNom); If PC_AttributNom <> '' Then LO_Noeud.SetAttributeNS(PC_AttributNom, '', PC_AttributValeur); If PC_NoeudValeur <> '' Then LO_Noeud.NodeValue := PC_NoeudValeur; Result := LO_Noeud; End;

---

Un grand merci car j'aurais mis longtemps à trouver tout seul