Discussion :

[Delphi-ne]

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 :

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

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 :

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

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

Merci de votre avis

[ShaiLeTroll]

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

[Delphi-ne]

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

Code :

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

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 :

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

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

[ShaiLeTroll]

tu fais bien dans SYNCHRO_CreeNoeud ?

Code :

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

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

[Delphi-ne]

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 :

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

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

[Delphi-ne]

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 :

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

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.

[ShaiLeTroll]

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

Code :

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

<Contrats>Valeur<Contrats>

en

Code :

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

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

car effectivement en XML, tu ne peux pas avoir

Code :

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

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

mais bien

Code :

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

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

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

[Delphi-ne]

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

[Delphi-ne]

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 :

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

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