Comment lire les "Attributes" en XML ?

Version imprimable

Bonjour,

Voici un exemple de fichier :

Citation:

<?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:

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:

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

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

13/03/2007, 13h44
Pedro
Salut :D

Citation:

Envoyé par [ZiP]

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:

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 ;)
13/03/2007, 13h52
[ZiP]

Bonjour,

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

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

Merci,
ZiP
13/03/2007, 13h54
Pedro

Citation:

Envoyé par [ZiP]

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 :P

Citation:

Envoyé par [Zip]

Merci,
ZiP

Mais avec plaisir :D
13/03/2007, 13h57
[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

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

Code:

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

Bonjour,

Merci de m'avoir mis sur la voie ;)

Voici le code rectifié et fonctionnel :

Code:

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