Discussion :

[[ZiP]]

Bonjour,

Voici un exemple de fichier :

<?xml version="1.0" encoding="ISO-8859-1" ?>
- <GSurf>
<Utilisateur>prenom.nom</Utilisateur>
<Machine>SERVICE-XXX</Machine>
<IP>XX.X.X.XXX</IP>
- <Historique>
<Visite id="14" horaire="13/03/2007 08:26:06" url="http://java.sun.com/update/1.5.0/map-1.5.0.xml" />
<Visite id="15" horaire="13/03/2007 08:26:07" url="http://javadl-esd.sun.com/update/1.5.0/map-1.5.0.xml" />
<Visite id="16" horaire="13/03/2007 08:26:07" url="http://javadl-esd.sun.com/update/1.5.0/1.5.0_10-b03.xml" />
<Visite id="17" horaire="13/03/2007 08:26:08" url="http://jal.sun.com/webapps/installstat/CountryLookup" />
</Historique>
</GSurf>

Je voudrais lire mon fichier XML, voici mon code :

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
 
XML := TXMLDocument.Create(Self);
XML.Active := true;
XML.Version := '1.0';
XML.Encoding := 'ISO-8859-1';
XML.LoadFromFile(OpenDialog1.FileName);
with XML.ChildNodes.Nodes['GSurf'].ChildNodes do
begin
     Utilisateur := Nodes['Utilisateur'].Text;
     Machine := Nodes['Machine'].Text;
     IP := Nodes['IP'].Text;
     with Nodes['Historique'].ChildNodes do
     begin
          Horaire := Nodes['Visite'].Attributes['Horaire'];
          Url := Nodes['Visite'].Attributes['Url'];
     end;
end;
XML.Active := false;
XML.Free;

J'ai un plantage au niveau de la lecture :

Code :

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

1
2
 
Horaire := Nodes['Visite'].Attributes['Horaire'];

11:42:15 -> Impossible de convertir le variant de type (Null) en type (String)

Je comprends pas pourquoi j'ai cette erreur...

Avez-vous une idée ?

Merci,
ZiP

[Pedro]

Salut

Bonjour,
...
Je comprends pas pourquoi j'ai cette erreur...

Avez-vous une idée ?

Merci,
ZiP

Oui c'est simplement que l'attribut est vide (Null) et donc qu'il est impossible à convertir en string

Si tu as des attributs non obligatoires, il faut d'abord tester la présence de l'attribut avec:

Code :

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

1
2
3
 
if Nodes['Visite'].HasAttribute('Horaire') then
  Horaire := Nodes['Visite'].Attributes['Horaire']

[Edit]
Essaie de mettre 'horaire' avec un h minuscule comme dans ton xml

[[ZiP]]

Bonjour,

En fait, je viens de trouver le problème...

Il fait la différence entre les majuscules et minuscules !

Merci,
ZiP

[Pedro]

Bonjour,

En fait, je viens de trouver le problème...

Il fait la différence entre les majuscules et minuscules !

Oui, j'ai édité trop tard mon précédent message

Merci,
ZiP

Mais avec plaisir

[[ZiP]]

J'ai un autre petit soucis.

Comment puis-je faire pour lire en boucle toutes mes lignes <Visite xxx /> ?

Parce que là, il semble me lire qu'une seule ligne

Merci,
ZiP

[Pedro]

Rhoo un p'tit coup de f1 t'aurait donné la solution

Code :

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

1
2
3
4
5
6
7
8
9
 
with Nodes['Historique'].ChildNodes do
if Count > 0 then
for i := 0 to Count - 1
if Child[i].LocalName = 'Visite' then
begin
  Horaire := Child[i].Attributes['Horaire'];
  Url := Child[i].Attributes['Url'];
end;

Code à vérifier

[[ZiP]]

Bonjour,

Merci de m'avoir mis sur la voie

Voici le code rectifié et fonctionnel :

Code :

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

1
2
3
4
5
6
7
8
9
 
                         if Count > 0 then
                         begin
                              for i:=0 to Count-1 do
                              begin
                                   if Nodes[i].LocalName = 'Visite' then
                                   begin
                                        Horaire := Nodes[i].Attributes['horaire'];
                                        Url := Nodes[i].Attributes['url'];

Merci,
ZiP