Discussion :

[Hicks90]

Bonjour,
C'est la première fois que je dois manipulé un fichier XML avec Delphi. J'utilise CodeGear 2009.
Le programme doit manipuler des données et générer un fichier XML qui sera par la suite (si tout vas bien) copier dans un répertoire et sera accéder à partir d'une page web (Spry et Dreamweaver).

Mon fichier XML, ressemble à ça:

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
17
18
19
20
21
<?xml version="1.0" encoding="utf-8"?>
   <part>
      <nom>stef lebon</nom>
      <pres>orale</pres>
      <titre>ca va être cool - clo</titre>
   </part>
   <part>
      <nom>gertrude labonte</nom>
      <pres>affichées</pres>
      <titre>ca va etre intérressant - gla</titre>
   </part>
   <part>
      <nom>marc poitras</nom>
      <pres>orale</pres>
      <titre>ceci est un titre</titre>
   </part>
   <part>
      <nom>ingrid zoumi</nom>
      <pres>orale</pres>
      <titre>ca va etre interessant - izo</titre>
   </part>

Mais évidemment cela ne fonctionne pas.
J'ai écris un programme de test qui décompose mon projet en petit élément simple. Je charge le fichier XML.

Code :

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

1
2
3
4
5
procedure TForm1.Btn_LoadXMLClick(Sender: TObject);
begin
  XMLDocument1.LoadFromFile('testxml.xml');
  memo1.Lines.Add('fichier charger');
end;

Pour afficher le contenu:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Btn_DisplayClick(Sender: TObject);
begin
  With XMLDocument1.ChildNodes.Nodes['part'] do
  begin
     Memo1.Lines.Add(ChildNodes.Nodes['nom'].Text);
     Memo1.Lines.Add(ChildNodes.Nodes['pres'].Text);
     Memo1.Lines.Add(ChildNodes.Nodes['titre'].Text);
  end;
end;

Mais, dans l'état initial de mon fichier XML j'ai un message d'erreur "Le projet Project1.exe a déclenché la classe d'exception EDOMParseError avec le message 'Un seul élément de niveau supérieur est autorisé dans un document XML.' ". Si je retire les 3 dernières section <part> et </part>. Cela fonctionne.
En premier lieu je voudrais affiché le contenu du fichier XML dans un TMemo. Par la suite, je vais ajouter les parties où je reçois des infos texte que je dois intégré dans les bons champs du fichier XML.

J'ai fouillé sur le forum et dans les FAQ Delphi et XML... mais je n'y arrive pas
http://delphi.developpez.com/faq/?page=xml
http://xml.developpez.com/faq/?page=1

Je suis presque certain que c'est une coquille... Mais je glande la dessus depuis quelques jours.
Merci à l'avance pour votre aide,
Bonne journée

Stéphane Denis

[Paul TOTH]

c'est pas ça ?

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
17
18
19
20
21
22
23
24
<?xml version="1.0" encoding="utf-8"?>
<root>
   <part>
      <nom>stef lebon</nom>
      <pres>orale</pres>
      <titre>ca va être cool - clo</titre>
   </part>
   <part>
      <nom>gertrude labonte</nom>
      <pres>affichées</pres>
      <titre>ca va etre intérressant - gla</titre>
   </part>
   <part>
      <nom>marc poitras</nom>
      <pres>orale</pres>
      <titre>ceci est un titre</titre>
   </part>
   <part>
      <nom>ingrid zoumi</nom>
      <pres>orale</pres>
      <titre>ca va etre interessant - izo</titre>
   </part>
</root>

[Hicks90]

Bonjour,
Merci pour votre réponse. Je croyais avoir essayé cette option
Je n'ai plus le même message d'erreur... mais un autre.

Je n'ai plus de message d'erreur au chargement du fichier XML.
Nouveau XML

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
17
18
19
20
21
22
23
24
 
<?xml version="1.0" encoding="utf-8"?>
<root>
   <part>
      <nom>stef lebon</nom>
      <pres>orale</pres>
      <titre>ca va être cool - clo</titre>
   </part>
   <part>
      <nom>gertrude labonte</nom>
      <pres>affichées</pres>
      <titre>ca va etre intérressant - gla</titre>
   </part>
   <part>
      <nom>marc poitras</nom>
      <pres>orale</pres>
      <titre>ceci est un titre</titre>
   </part>
   <part>
      <nom>ingrid zoumi</nom>
      <pres>orale</pres>
      <titre>ca va etre interessant - izo</titre>
   </part>
</root>

Quand je clic pour afficher le contenu du XML, voir ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Btn_DisplayClick(Sender: TObject);
begin
  With XMLDocument1.ChildNodes.Nodes['part'] do
  begin
     Memo1.Lines.Add(ChildNodes.Nodes['nom'].Text);
     Memo1.Lines.Add(ChildNodes.Nodes['pres'].Text);
     Memo1.Lines.Add(ChildNodes.Nodes['titre'].Text);
  end;
end;

J'ai un nouveau message d'erreur.
Le projet Project1.exe a déclenché la classe d'exception EXMLDocError avec le message 'Noeud part' non trouvé.
Je crois que le problème vient de ma procédure de lecture... mais je ne vois pas trop le soucis.
Merci encore pour votre aide.
Bonne journée
Stef

[ShaiLeTroll]

Tu as plusieurs <part> comment pourait-il trouver la bonne ?

Essaye ce code

Code :

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

1
2
3
4
(*IXMLNode*) Root := XMLDocument1.ChildNodes.Nodes['root'];
(*IXMLNodeList*) RootItems := Root.ChildNodes;
For i := 0 to RootItems.Count - 1 do
  ShowMessage(RootItems.Nodes[I].XML);

[Dr.Who]

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.xxxxx();
var nRoot, nCurrent: IXMLNode;
    nRootCount, nCurrentCount : integer;
    X,Y: integer;
begin
  XMLDocument1.FileName := 'nom du fichier.xml';
  Memo1.Lines.BeginUpdate;
  XMLDocument1.Active := true;
  try
    Memo1.Clear;
    nRoot      := XMLDocument1.ChildNodes['root'];
    nRootCount := nRoot.ChildNodes.Count;
    Memo1.Lines.Add('XML : '+ExtractFileName(XMLDocument1.FileName)+' : '+format('%d Nodes',[nRootCount]));
    for X := 0 to nRootCount-1 do
    begin
      nCurrent := nRoot.ChildNodes[X];
      nCurrentCount := nCurrent.ChildNodes.Count;
 
      Memo1.Lines.Add('- '+format('Node %.4d , Childs %d',[X,nCurrentCount])+' :');
      for Y := 0 to nCurrentCount-1 do
      begin
        Memo1.Lines.Add(
          '  '+
            nCurrent.ChildNodes[Y].nodeName+
          ' = '+ 
            nCurrent.ChildNodes[Y].Text          
        );
      end;
      Memo1.Lines.Add('');
    end;
  finally
    XMLDocument1.Active := false;
    Memo1.Lines.EndUpdate;
  end;  
end;

[Hicks90]

Bonjour,
ShaiLeTroll Merci pour ta réponse. C'est le pourquoi de mon interrogation J'ai regardé des fichiers XML qui avait le même genre de structure logique. J'en ai conclu que comme il y a des balises ouvertes et fermées (/) la procédure XML allait s'arranger avec ça.

Dr.Who Merci à toi aussi pour ta réponse et ton bout de code aussi complet qu'efficace. Je vais faire des essais ce soir. Avec ça je vais arriver a récupéré les informations et les colligées avec d'autre pour ré-écrire le tout dans le fichier le fichier XML... Surement de nouvelles aventure et question à venir

Merci encore et bonne journée
Stéphane Denis