Comment lire les "Attributes" en XML ?
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