XML mit TJvSimpleXml

[yankee]

Immernoch sehe ich, wie sich Leute mit Ini usw. rumschlagen. Das war bis vor ein paar Wochen bei mir genauso, weil ich nie mal ein tutorial hatte, was mir den Umgang mit xml erklärt hat. Ich habe dann irgendwo mal was von dieser JvSimpleXml gelesen und die mir dann mal auf's Form geschmissen und dann einfach mla die ganzen Optionen durchgescrollt und mal ein bißchen ausprobiert... So wahnsinnig weit bin ich noch incht gekommen, aber trotzdem kann ich damit jetzt grundsätzlich xml benutzen .
Damit euch das incht gejnauso geht möchte ich hiermit kurz den Einstieg in die XML-Welt mit der Komponente TJvSimpleXML (jvcl.sourceforge.net) geben...

1. Das XML-Format
Zunächst müssen wir uns mal den Aufbau einer XML-Datei ansehen. Ich zeige das mal am Beispiel eines Adressbuches:

XML-Code:

<?xml version="1.0" ?> 
<Adressen>
</Adressen>

Das ist eigentlich schon eine Vollwertige XML-Datei. Enthält nur leider noch überhaupt keine Daten.
Um jetzt Daten in die Datei zu bekommen kann 'Adressen' eine belibege Anzahl Unterelmente haben. Beispielsweise wollen wir jetzt mal 2 Namen in der XML-Datei speichern. Das sieht dann so aus:

XML-Code:

<?xml version="1.0" ?> 
<Adressen>
  <Name>Manfred</Name>
  <Name>Thomas</Name>
</Adressen>

Das ista schon alles. So könnten wir jetzt theoretisch beliebig viele Namen speichern. Jetzt wollen wir aber auch noch Manfreds und Thomas Telefonnummer speichern. Wie machen wir das?
Hierfür muss man wissen, das Name auch wieder unterelemente haben kann. Besser noch ist es sich einen neuen tag auszudenken. Nehmen wir mal Adresse:

XML-Code:

<?xml version="1.0" ?>
<Adressen>
  <Adresse>
    <Name>Manfred</Name>
    <Telefon>0675 35689</Telefon>
  </Adresse>
  <Adresse>  
    <Name>Thomas</Name>
    <Telefon>0625 3562459</Telefon>
  </Adresse>
</Adressen>

Das sieht doch schonmal gut aus.
2. XML mit JVCL (reim sich *freu*)
Jetzt wollen wir das mal mit TJvSimpleXml umsetzen. Experimentel starten wir Delphi, legen die Komponente auf das Form und noch einen Button mit der Aufschrift "speichern". In die Procedure dieses buttons schreiben wir vollkommen simpel (ich gehe mal davon aus, dass ihr die Komponente XmlDoc genannt habt):
XmlDoc.SaveToFile('Adressen.xml');
Ihr könnt natürlich auch einen anderen Pfad, oder die Datei anders nennen, aber ich werde sie hier Adressen.xml nennen.
Dann fügt ihr noch einen Button 'laden' hinzu und schrieb entsprechend
XmlDoc.LoadFromFile('Adressen.xml');
in die procedure. Jetzt Starten wir das ganze und klicken mal auf speichern. Dann sehen wir uns in einem Texteditor mla an, was die Komponente uns da erstellt hat. Da sollten wir so etwas sehen:

XML-Code:

<?xml version="1.0" ?>
< />

Also ziemlich wenig. Und wenn ihr probiert die Datei beispielsweise mit dem Internet Explorer zu öffnen, werdet ihr einen Fehler erhalten. Was haben wir also falsch gemacht? Nun, ziemlich einfach: Der root-Tag (das was in meinen Beispiel Adressen ist), ist ein leerer String! Also werden wir dem mal einen zuweisen. Schreibt einfach in das OnCreate vom Form:
XmlDoc.Root.Name :='Adressen';
Und dann nochmal speichern und die entstandene Datei im Texteditor betrachten:

XML-Code:

<?xml version="1.0" ?>
<Adressen />

Na super. Warum ist das denn nicht so, wie der yankee das in seinem Beispiel ganz am Anfang geschriben hat? Da sollte doch <Adressen></Adressen> stehen! Antwort: Wenn ein Tag leer ist, dann kann man ihn so abkürzen, in dem man einfach den / noch in den starttag mitreinschreibt.
Aber gut, jetzt wollen wir ndlich Daten in unsere xml-datei haben. Positionieren wir also auch noch ein edit und einen weiteren button (caption:'Hinzufügen') auf unserem Form. In die Hinzufügenprocedure schreiben wir folgendes:
XmlDoc.Root.Items.Add('name',edit1.text);
kurze erklärung zu diesem Befehl:
root, ist wie bereits gesagt der oberste Tag. Heißt bei uns Adressen. Dieser Tag hat Unterpunkte. Und zu diesen Unterpunkten fügen wir jetzt einen hinzu. Der Punkt heißt 'name' und zugehörig ist der Wert, der im edit steht. Wenn man bei dem Add-Befehl die Klammer öffnet, kommt einem diekt die DelphiIDE zur Hilfe und sagt einem, welche Werte man dieser function übergeben kann. Und sofort fällt auf, dass diese function gleich ganz häufig überladen ist. Man kann so auch gleich float oder integerwerte übergeben.
Nun aber zur Tat. Wir starten unser Programm, geben Manfred ein und klicken auf Hinzufügen. Dann geben wir noch Thomas ein und klicken wieder auf hinzufügen. Dann klicken wir wieder auf speichern und sehen uns die Datei in einem Texteditor an. Und?? Was ist wohl rausgekommen? Na ednlich mla was vernünftiges. Ihr solltet jetzt das gleiche vor euch haben, wie oben mein erstes Beispiel mit Daten:

XML-Code:

<?xml version="1.0" ?> 
<Adressen>
  <Name>Manfred</Name>
  <Name>Thomas</Name>
</Adressen>

Super, jetzt wollen wir nur noch in der Lage sein so tolle Unterpunkte einzurichten, wie der yankee es in seinem ersten Besipiel gemacht hat.
Ok, wir positionieren auch noch ein zweites edit (für die Telefonnummer) auf unserem Form. Und dann ändern wir den Befehl im Hinzufügenbutton nochmal:

Delphi-Quellcode:

with XmlDoc.Root.Items.Add('Adresse') do
begin
  items.Add('Name',edit1.text);
  items.Add('Telefon',edit2.text);
end;

ja, das ist schon mehr code geworden und bei mehr als 1 Zeile lohnt es sich dann schon Delhi-tags zu setzen .
Also, was machen wir hier? Die add-Function gibt uns, wie es beispielsweise auch bei normalen Menüs ist einen Pointer auf das gerade erstellte Element zurück. Dieses Element ist wieder das gleiche, wie das root-Element und enthält wieder items, denen man was hinzufügen kann usw. Das könnte man jetzt natürlich auch in die Tiefe führen und zehnmal Add-kommandos hintereinader ausführen, was allerdings nur begrentzt sinnvoll ist.
Nun, ihr könnt euch ja denken, was jett kommt: starten, werte eingeben, hinzufügen, speichern, beenden, texteditor, oh, das ist ja das gleiche Schema, ei in yankees Beispiel oben

So, ich hoffe ich habe nicht allzuviele Fehler eingebaut (weil ich nämlcih gerade an einem Computer ohne Delphi bin und es nicht testen kann). Wann da was ist, könnt ihr euch ja beschweren.

Morgen gibt es dann noch eine Anleitung, wie man die Daten wieder ausliest. Also freut euch schonmal auf Teil 2!

[edit=Matze] Mfg, Matze[/edit]

[noeon112]

Hallo,

also ich versuch es einmal,

Code:

XML_Dock.Root.Name :='Config1';
  with XML_Dock.Root.Items.add('Configtest') do
    Begin
      Items.Add('WERT1',edit1.text);
      Items.Add('cmb_Auswahl',combobox1.ItemIndex);
    end;
      XML_Dock.SaveToFile('Configuration.xml');

Mit dem oben gepostetem Code schreib ich die XML Datei.

Code:

 XML_Dock.LoadFromFile('Configuration.xml');
    xml_Dock.Root.Name := ('config1');
    Edit1.Text := xml_dock.Root.Items.item('Wert1');
    ComboBox1.ItemIndex := xml_Dock.Root.Items.Item('cmb_Auswahl');

Mit dem Code möchte ich die Datei wieder auslesen und zurückschreiben in die entsprechenden Steuerelemente.

Kannst Du helfen?!


Gruss
Lars

[yankee]

Zitat von noeon112:

Code:

 XML_Dock.LoadFromFile('Configuration.xml');
    xml_Dock.Root.Name := ('config1');
    Edit1.Text := xml_dock.Root.Items.item('Wert1');
    ComboBox1.ItemIndex := xml_Dock.Root.Items.Item('cmb_Auswahl');

Ja, da lies doch nochmal genauer:
xml_Dock.Root.Name := ('config1'); <-- diese Zeile kannst du dir komplett sparen. Das musst du nur beim Speichern der Datei machen, wenn die vorher nicht existierte. Wieso hast du da eigentlich Klammern um den String?

Edit1.Text := xml_dock.Root.Items.item('Wert1'); <-- Werf mal einen Blick auf die CodeCompletion von Delphi. Diese Funktion erwartet als Parameter einen integer und keinen String. Nebenbei erhaelst du so nur das Element und nicht was in dem Element drin steht. Richtig ist:
Edit1.Text := xml_dock.Root.Items.itemNamed['Wert1'].Value;
Bei der naechsten Zeile genau das selber, nur dass es sich bei Combobox1.itemindex um eine Zahl handelt. Daher nimmst du nicht Value sondern IntValue:
ComboBox1.ItemIndex := xml_Dock.Root.Items.ItemNamed['cmb_Auswahl'].IntValue;

und schon sollte es klappen

[noeon112]

HI,


Also angeschaut ja,
mir war der aufbau nicht ganz klar aber nun klickerte es.

Allerdings gibt es jetzt eine nette kleine Exception

zugriffsverletzung am Modul Projekt1.exe
Die Datei ist allerdings geschlossen...


Hast Du noch einen Tipp wie ich das händeln kann!?

Code:

Edit1.Text := xml_dock.Root.Items.itemNamed['Wert1'].Value;

in dieser zeile springt er raus und macht sie blau...


Gruss
lars

und zur Vollständigkeit halber einmal die XML Datei

XML-Code:

<?xml version="1.0" encoding="iso-8859-1"?>
<Config1>
  <Configtest>
    <WERT1>Testwert</WERT1>
    <cmb_Auswahl>2</cmb_Auswahl>
  </Configtest>
</Config1>

[yankee]

Zitat von noeon112:

Code:

Edit1.Text := xml_dock.Root.Items.itemNamed['Wert1'].Value;

in dieser zeile springt er raus und macht sie blau...

Ja, das passt immernoch nicht so ganz zu deiner xml-Datei
<?xml version="1.0" encoding="iso-8859-1"?>
<Config1> --root-Element
<Configtest> --Unterelement des rootelements mit dem Name configtest
<WERT1>Testwert</WERT1> --unterelement des Configtestelements mit dem Name WERT1
<cmb_Auswahl>2</cmb_Auswahl>
</Configtest>
</Config1>

Das Unterelement des rootelements mit dem Name configtest leasst du komplett weg.
Richtig:
Edit1.Text := xml_dock.Root.Items.itemNamed['Configtest'].items.itemNamed['Wert1'].Value; Wenn das immernochnicht funzt, dann solltest du mal versuchen die gross- und kleinschreibung abgleichen. Also entweder beim speichern und beim Laden gross schreiben oder beides klein...

[noeon112]

Hallo,

So nun mal Sinning,

Ich hab ein kleines Problem selber gelöst,
die XML Datei die ich mir erzeugt habe von unten nach oben auszulesen. *froi*

Jetzt will ich bestimmte Einträge suchen, also eine Art Indizierung darstellen.

Variante 1: StringList alle werte einlesen und mit Index Versehen.
variante 2: in einer Schleife die Werte der XML Datei durchlaufen lassen.

Es geht darum keine doppelten Werte vorkommen zu lassen.



Danch will ich auch noch entspreche Werte wieder löschen.

Ich bion ja mal gespannt. Ist ein echt spannendes Thema.


Wenn es ok ist stelle ich das Projekt mal rein und vielleicht kann man da ja auch was mitnehmen an Erfahrung.

Gruß
Lars

XML-Code:

<?xml version="1.0" encoding="iso-8859-1"?>
<Config1>
  <Configtest>
    <ProfilName>Profil 1</ProfilName>
    <WERT1>Hallo Versuch 1</WERT1>
    <cmb_Auswahl>2</cmb_Auswahl>
  </Configtest>
  <Configtest>
    <ProfilName>Profil 2</ProfilName>
    <WERT1>Hallo Versuch 2</WERT1>
    <cmb_Auswahl>3</cmb_Auswahl>
  </Configtest>
</Config1>

[mav]

hi all..

bin gerade an einem kleinen xml projekt.. und suchte nach guten möglichkeiten ein xml-file auszulesen. da sties ich auf dieses tut hier.
jetzt zu meinem problem:
Delphi meldet mir dass er aus "XmlDoc.Root.Count"

[Fehler] profiler_readout.pas(40): Undefinierter Bezeichner: 'Count'

kann mir dabei jemand helfen?

[Jarmen_Kell]

Das kann durchaus jemand^^

Nun, Es gibt nur einen root, daher hat root keine Eigenschaft "Count".
Root hat aber Items, die gezählt und ausgegeben werden können.
Demnach muss es also einfach nur .Root.Items.Count heißen!

[alias5000]

Erstmal ein großes dankeschön für das Tut. Sowas in der Art hab ich irgendwie schon immer gesucht. Allerdings bin ich der Meinung, dass mit dem TJvSimpleXML auch sowas

Code:

<resource_name value="VV4A"/>

möglich ist (*nachdenk*). Ich hab mit dem SImpleXML ja schonmal rumgespielt. Sollte ihc da was rausfinden, melde ich mich.

Ich hab aber eine andere Frage:
wie sieht das mit der Geschwindigkeit aus, wenn ich, sagen wir mal zu einer geladenen XML Datei so 3-4 Unterknoten einfüge (mit jeweils etwa einer Zeile Text als Inhalt) und das dann abspeichere. Ist da die JVCL Variante schnell, oder gibts da noch was besseres? Die Frage ist jetzt so eine Sache, weil ich das auch selbst testen könnte. Falls jemand so schon Ahnung hat, würde ich sie gerne hören, ansonsten werd ich selbst testen (müssen).

Gruß alias5000

[Jarmen_Kell]

Ich meine, hier mal irgendwo gelesen zu haben, dass die TJvSimpleXML keine Attribute behandeln kann. Dort wurde darauf verwiesen, dass es ja nur eine Simple-XML ist und man das daher nicht erwarten könne...
Aber interessant wäre das für mich durchaus auch einmal, wenn auch ich damit schon einiges tat und noch auf keine Möglichkeit stieß.

Bezüglich Zeitaufwand: Genaue Werte kann ich dir auch nicht geben, doch geht es wirklich raschefix^^
Ich habe eine Datei mit ~20 Unterknoten, die jeweils 7 Elemente enthalten.. Von der Speicherung merke ich dabei nichts und auch das einfügen (wenn auch sie einzeln eingefügt und vorher händisch eingegeben werden) geht ohne merklichen Verbrauch von statten.
Bei den 4 Einträgen sollte die Zeit also absolut irrelevant sein.

[alias5000]

Bloß, wenn ich schon, sagen wir mal 400 Knoten mit je den 4 Unterknoten hab, wie siehts dann aus
(Es geht um die gestaltung einer Historie in einem Chat, da muss das schnell von statten gehen)