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]

[yankee]

Also die JVCL-Lösung ist im Vergleich der meisten anderen Parser sehr schnell.
Das hängt aber damit zusammen, dass die Funktionalität auch sehr eingeschränkt ist... Andere xml-parser prüfen erstmal, ob das Dokument korrekt formatier ist, die richtigen Werte enthält mit richtigem Datentyp und die Baumstruktur richtig ist...
Allerdings sind die meisten dieser Prüfungen bei den meisten Anwendungsfällen meiner Meinung nach eh überflüssig....

[alias5000]

Wenn ich die XML-Datei eh mit JvSimpleXNL erstelle auf jeden Fall.

[DGL-luke]

Hallo, ich bin gerade dabei, ein OO.o Spreadsheet zu verhackstücken.

Ich hätte gerne auf die Text-nodes zugriff, die in der hierarchie ungefähr so liegen:

XML-Code:

- <office:body>
- <office:spreadsheet>
- <table:table table:name="Tabelle1" table:style-name="ta1" table:print="false">
  <office:forms form:automatic-focus="false" form:apply-design-mode="false" /> 
  <table:table-column table:style-name="co1" table:default-cell-style-name="Default" /> 
- <table:table-row table:style-name="ro1">
- <table:table-cell office:value-type="string">
  <text:p>A</text:p>

Muss ich mich da komplett durchhangeln, oder kann ich das jvsimplexml auch suchen lassen nach "text:p"-elementen?

[SteffenSchm]

@Yankee:
Danke für das Tutorial. Hat mir sehr wweitergeholfen!

Ein Frage - du schreibst

Zitat:

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.

Ich habe aber keine überladene Version von Add gefunden, die einen Float-Wert ausgibt. Man könnte natürlich selbst immer in einen String hin- und zurückkonvertieren. Aber bestimmt gibt es eine bessere Möglichkeit. Wie macht man das am besten?

[yankee]

Zitat von SteffenSchm:

Ich habe aber keine überladene Version von Add gefunden, die einen Float-Wert ausgibt. Man könnte natürlich selbst immer in einen String hin- und zurückkonvertieren. Aber bestimmt gibt es eine bessere Möglichkeit. Wie macht man das am besten?

Erstmal sry, dass ich erst jetzt antworte...
Ich bekomme auf diesen Thread von der DP nie eine Benachrichtigungsmail und das war jetzt gerade reiner Zufall, das ich Antworten gefunden habe .

Ich glaube nicht, dass es eine bessere Möglichkeit gibt. jvcl kann schliesslich am Ende auch nichts anderes machen als mit strtofloat die Daten zu konvertieren. Es geht höchstesn eleganter, aber nicht performanter oder irgendsowas.

@DGL-luke:
Eine Suchfunktion wäre mir neu. Du musst dir also selbst eine Suchroutine schreiben.
Wie gesagt es ist eine simplexml-Komponente, die entsprechend einfach ist.
Um solch komplexe Sachen zu parsen ist eventuell ein komplexerer Parser emphelenswerter...

[elundril]

hallo! ich fand dein tutorial recht gut nur eine anmerkung hab ich!

wenn man am formular dieses Ding hat und man speichert die XML datei und will nachher noch einmal speicher sollte man die vorher gespeicherten daten mit

XMLDoc.Data:=''

verwerfen sonst wird alles doppelt geschrieben!

dabei hab ich auch gleich ein bitte: vielleicht kannst du mir bei dem Problem weiterhelfen:

http://www.delphi-forum.de/viewtopic...958&highlight=



lg elundril

[WizoHulk]

hallo..

auch wenn der Thread ja doch ziemlich alt ist vileicht bekommt man ja doch noch eine Antwort.

Wie kann ich in einen vorhandenen Root einen Wert eingeben.
Da die Funktion Add nur hinzufügt.

[ConnorMcLeod]

Ungefähr so?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  lXML       : TJvSimpleXML;
begin
  lXML := TJvSimpleXML.Create(nil);
  try
    lXML.Root.Name := 'myroot';
    lXML.Root.Value := 'blah';
  finally
    FreeAndNil(lXML);
  end;
end;

[WizoHulk]

ich glaub ich habe mich etwas falsch ausgedrückt.

ich habe einen Knoten unter Root und in diesen Knoten möchte ich einen Wert zuweisen.

[haentschman]

Hallo...

die "Unterknoten" erreichst du über Items bzw Item jeweils über den Index z.B. ItemNamed gibt es auch noch...