Thema: Delphi XML Einlesen

Einzelnen Beitrag anzeigen

DelTurbo

Registriert seit: 12. Dez 2009
Ort: Troisdorf
1.077 Beiträge
 
Delphi 2007 Architect
 
#1

XML Einlesen

  Alt 27. Mai 2019, 17:25
Hallo,
ich peil das einfach nicht. Ich soll aus folgendem XML die <ticket> Daten auslesen. Ich komme leider nur an das erste dran. Wäre super wenn jemand einen Link hätte wie ich das machen muss. Oder mein kleine Beispiel ergänzen könnte damit ich auch an das 2. <ticket> usw. komme. Späer sind natürlich mehr als 2 Tickets enthalten.

Vielen dank im Voraus

Code:
  <?xml version="1.0" encoding="utf-8" ?>
- <ticketapi>
- <meta>
  <name>Test</name>
  <datum>09.07.2019</datum>
  <tickets>2</tickets>
  <in>0</in>
  <out>2</out>
  </meta>
- <ticket>
  <code>1234</code>
  <vorname>John</vorname>
  <nachname>Doe</nachname>
  <eingecheckt>0</eingecheckt>
  </ticket>
- <ticket>
  <code>5678</code>
  <vorname>Jane</vorname>
  <nachname>Doe</nachname>
  <eingecheckt>0</eingecheckt>
  </ticket>
  </ticketapi>
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  XMLDoc :IXMLDocument;
  Buffer :TMemoryStream;
  i :Integer;
begin
    Buffer:=TMemoryStream.Create;
    IdHTTP1.Get('http://test.homesrv/app-api.php',Buffer);
    Buffer.Seek(0,0);
    XMLDoc:=newXMLDocument;
    XMLDoc.LoadFromStream(Buffer);
    XMLDoc.Active:=True;
    ShowMessage(XMLDoc.DocumentElement.ChildNodes['ticket'].ChildNodes['code'].NodeValue);
    ShowMessage(XMLDoc.DocumentElement.ChildNodes['ticket'].ChildNodes['code'].NodeValue);
    Buffer.Free;
end;
Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
  Mit Zitat antworten Zitat