Simple XML Datei darstellen

[himitsu]

[werbung]
himXML

Delphi-Quellcode:

Var XML: TXMLFile;

XML := TXMLFile.Create;
XML.asXML := MyIdHttp.Get('http://...');
With XML.RootNode.Node['result'] do Begin  //With XML.Nodes['results\result'] do Begin
  S := Node['ip'].Data;
  S := Node['host'].Data;
  //...
End;
XML.Free;

[/werbung]

und mit MS-Mitteln, eventuell auch so ähnlich

Delphi-Quellcode:

Var XML: IXMLDocument;  // Var XML: TXMLDocument;

XML := TXMLDocument.Create(nil);
XML.Active := True;
XML.LoadFromXML(MyIdHttp.Get('http://...'));
With XML.DocumentElement.ChildNodes['result'] do Begin
  S := ChildNodes['ip'].Text;
  S := ChildNodes['host'].Text;
  //...
End;
//XML.Free;