Xml dosyasını okuma işlemi?

[Raskolnikov]

Merhaba

aşağıdaki değerleri nasıl okutabilirim ve ayıklayabilirim acaba?

http://api.ipinfodb.com/v2/ip_query.php ... ezone=true

[tux]

şu kod parçası işini görecektir, formuna idHTTP, XMLDocument ve Memo nesnesi eklemen yeterli

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  adres, mystring : string;
begin
  adres := 'http://api.ipinfodb.com/v2/ip_query.php?key=a069ef201ef4c1b61231b3bdaeb797b5488ef879effb23d269bda3a572dc704c&ip=&timezone=true';
  mystring := IdHTTP1.Get(adres);
  Memo1.Text := mystring;
  Memo1.Lines.SaveToFile('deneme.xml');
  XMLDocument1.LoadFromFile('deneme.xml');
  ShowMessage(XMLDocument1.DocumentElement.Childnodes[0].NodeValue); // ilk değer
  ShowMessage(XMLDocument1.DocumentElement.Childnodes[1].NodeValue); // ikinci değer
end;

[Raskolnikov]

@Tux çok teşekkürler hemen deniyeceğim.