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