XML döviz kuru

[rahim_azeri]

Merhaba arkadaslar.Ben bu xlm -den doviz kurun nasil bula bilirim.XML web sayfasi (http://www.cbr.ru/scripts/XML_daily.asp)Onceden tesekkurler.
<Valute ID="R01020A">
<NumCode>944</NumCode>
<CharCode>AZN</CharCode>
<Nominal>1</Nominal>
<Name>Аzeri manat</Name>
<Value>38,2094</Value>
</Valute>

<Valute ID="R01035">
<NumCode>826</NumCode>
<CharCode>GBP</CharCode>
<Nominal>1</Nominal>
<Name>Funt </Name>
<Value>47,3972</Value>
</Valute>

[rahim_azeri]

Kardesler bu konuda bir bilen yolkmu?

[SimaWB]

Öncelikle bu dosyayı bilgisayarına kaydetmen lazım. Sonra; mesela NumCode'u 51 olanın değerini şu şekilde alabilirsin:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  StartNode : IXMLNode;
  ANode : IXMLNode;
  NumCode: WideString;
begin
  XMLDoc.FileName := 'C:\XML_daily.asp.xml';
  XMLDoc.Active:=True;

  StartNode := XMLDoc.DocumentElement.ChildNodes.FindNode('Valute');
  ANode := StartNode;
  repeat
    NumCode := ANode.ChildNodes['NumCode'].Text;
    if NumCode = '051' then
    begin
      Caption := ANode.ChildNodes['Value'].Text;
      Break;
    end;
    ANode := ANode.NextSibling;
  until ANode = nil;

  XMLDoc.Active:=False;
end;