Simple XML Datei darstellen

[jaenicke]

Und ansonsten: Wie wäre es so?

Delphi-Quellcode:

var
  MyXml: IXMLDocument;
  HttpLoader: TIdHTTP;
  MemStream: TMemoryStream;
  CurrentNode: IXMLNode;
begin
  MyXml := NewXMLDocument('');
  MemStream := TMemoryStream.Create;
  try
    HttpLoader := TIdHTTP.Create;
    try
      HttpLoader.Get('http://xml.utrace.de/?query=www.utrace.de', MemStream);
    finally
      HttpLoader.Free;
    end;
    MemStream.Position := 0;
    MyXml.LoadFromStream(MemStream);
  finally
    MemStream.Free;
  end;
  CurrentNode := MyXml.ChildNodes.FindNode('results');
  if CurrentNode <> nil then
    CurrentNode := CurrentNode.ChildNodes.FindNode('result');
  if CurrentNode <> nil then
    ShowMessage(CurrentNode.ChildNodes.FindNode('ip').Text);