XML Einlesen

[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;