XML Einlesen

[DelTurbo]

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;

[Luckie]

Eine Schleife über alle Ticket-Knooten?

[DeddyH]

Aus dem Kopf im Editor getippt:

Delphi-Quellcode:

var 
  Node: IXMLNode;
  XMLDoc :IXMLDocument;
  Buffer :TMemoryStream;
begin
  Buffer:=TMemoryStream.Create;
  try
    IdHTTP1.Get('http://test.homesrv/app-api.php',Buffer);
    Buffer.Seek(0, soFromBeginning);
    XMLDoc:=newXMLDocument;
    XMLDoc.LoadFromStream(Buffer);
    XMLDoc.Active:=True;
    Node := XMLDoc.DocumentElement.ChildNodes['ticket'];
    while Assigned(Node) do
      begin
        ShowMessage(Node.ChildNodes['code'].NodeValue);
        Node := Node.NextSibling;
      end;
  finally
    Buffer.Free;
  end;  
end;

[DelTurbo]

Vielen Dank @DeddyH.
@Lukie Ja in einer Schleife. Das von DeddyH klappt wunderbar.

Vielen dank!!!! :thumb: