AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein XML Delphi Zugriff auf XML Attribute mit '@'

Zugriff auf XML Attribute mit '@'

Ein Thema von little_budda · begonnen am 16. Jun 2010 · letzter Beitrag vom 16. Jun 2010
Antwort Antwort
Benutzerbild von little_budda
little_budda

Registriert seit: 5. Mai 2006
Ort: Velbert
246 Beiträge
 
Delphi 2006 Professional
 
#1

Zugriff auf XML Attribute mit '@'

  Alt 16. Jun 2010, 09:17
Hallo,

ich möchte gerne Atttibute aus einem Knoten in ein dynamisches Array einlesen.
Hier im Forum habe ich gefunden das man auf Attribute mit einem führenden'@' als Subknoten des Primärelements zugreifen kann.
Will aber leider nicht klappen.

Ich versuche es aktuell so:
Delphi-Quellcode:
  iXML.LoadFromFile(sAppStartPath + sTextDirPart + '\' + sVersion + '\' + sZsTimeFileDe);
  iXML.Active:=true;
  RootNode := iXML.ChildNodes['timezones'];
  iXmlMldList := RootNode.ChildNodes;
  iMldCount := iXmlMldList.Count;
  setlength(aXmlTimeTexteDe, iMldCount + 1);
  aXmlTimeTexteDe[0].iIndex := iMldCount;
  for ix := 0 to (iMldCount - 1) do
    begin
      Node:= iXmlMldList.Nodes[ix];

      aXmlTimeTexteDe[ix+1].sId := Node['@id'].Text;
      aXmlTimeTexteDe[ix+1].sDisplay := Node['@Display'].Text;
      aXmlTimeTexteDe[ix+1].sStd := Node['@Std'].Text;
      aXmlTimeTexteDe[ix+1].sDlt := Node['@Dlt'].Text;
      aXmlTimeTexteDe[ix+1].iIndex := strtointdef(Node['@Index'].Text, -1);
      aXmlTimeTexteDe[ix+1].sDisplayID := Node['@DisplayID'].Text;
    end;
Das Array aXmlTimeTexteDe ist vom Typ
Delphi-Quellcode:
type TXmlTimeTexte = record
  sId : string;
  sDisplay : string;
  sStd : string;
  sDlt : string;
  iIndex : integer;
  sDisplayID : string;
  tDelayTimeStd : TTime;
  tDelayTimeDlt : TTime;
  bIncreaseTime : boolean;
end;
Die XML Datei sieht aus wie folgt:
Code:
<?xml version="1.0" encoding="UTF-8" ?>
<timezones>
  <timezone
    id="Afghanistan Normalzeit"
    Display="(GMT+04:30)
    Kabul" Std="Afghanistan Normalzeit"
    Dlt="Afghanistan Sommerzeit"
    Index="175"
    DisplayID="(GMT+04:30) Kabul" />

  ...

<timezones>
Sobald ich auf den ersten Zugriff laufe (Node['@id'].Text) bekomme ich eine Exception "Ungültige Variantenoperation".
Was mache ich denn bitte falsch?
Holger
Glück findet sich nicht im Code
Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.603 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Zugriff auf XML Attribute mit '@'

  Alt 16. Jun 2010, 09:33
Node[] greift auf Nodes zu und nicht auf Attribute.

Wie wäre es mit Attribute['...'] und ohne das XPath-@ ?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von little_budda
little_budda

Registriert seit: 5. Mai 2006
Ort: Velbert
246 Beiträge
 
Delphi 2006 Professional
 
#3

AW: Zugriff auf XML Attribute mit '@'

  Alt 16. Jun 2010, 09:45
Guter Tipp.

Über:
Delphi-Quellcode:
            Node:= iXmlMldList.Nodes[ix];
            iXmlAttributList := Node.AttributeNodes;

            if (iXmlAttributList.Count > 0) then
              begin
                // ID
                AttribNode := iXmlAttributList[0];
                aXmlTimeTexteDe[ix+1].sId := AttribNode.Text;
                // Display
                AttribNode := iXmlAttributList[1];
                aXmlTimeTexteDe[ix+1].sDisplay := AttribNode.Text;
                // Std
                AttribNode := iXmlAttributList[2];
                aXmlTimeTexteDe[ix+1].sStd := AttribNode.Text;
                // Dlt
                AttribNode := iXmlAttributList[3];
                aXmlTimeTexteDe[ix+1].sDlt := AttribNode.Text;
                // Index
                AttribNode := iXmlAttributList[4];
                aXmlTimeTexteDe[ix+1].iIndex := strtointdef(AttribNode.Text, -1);
                // DisplayID
                AttribNode := iXmlAttributList[5];
                aXmlTimeTexteDe[ix+1].sDisplayID := AttribNode.Text;
              end;
klappt es.

Danke.
Holger
Glück findet sich nicht im Code
Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.603 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Zugriff auf XML Attribute mit '@'

  Alt 16. Jun 2010, 09:52
Die eine Variable könntest du noch einsparen.
Delphi-Quellcode:
aXmlTimeTexteDe[ix+1].sId := iXmlAttributList[0].Text;
// oder besser
aXmlTimeTexteDe[ix+1].sId := iXmlAttributList['id'].Text;
Aber geht es über den Namen nicht?
Wäre zumindestens besser, falls die Reihenfolge mal nicht genau stimmt.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 05:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf