Valutakurser

program currency;

uses
  Classes,
  IdHTTP,
  DOM,
  XMLRead,
  XPath;

var
  con : TIdHTTP;
  xmlstr : string;
  doc : TXMLDocument;
  xmlstm : TStringStream;
  allcurr : TNodeSet;
  i : integer;
  onecurr : TDOMElement;


begin
  con := TIdHTTP.Create;
  xmlstr := con.Get('http://www.nationalbanken.dk/_vti_bin/DN/DataService.svc/CurrencyRatesHistoryXML?lang=da');
  con.Free;
  doc := TXMLDocument.Create;
  xmlstm := TStringStream.Create(xmlstr);
  ReadXMLFile(doc, xmlstm);
  xmlstm.Free;
  allcurr := EvaluateXPathExpression('//Cube/Cube/Cube', doc.DocumentElement).AsNodeSet;
  for i := 0 to allcurr.Count - 1 do begin
      onecurr := TDOMElement(allcurr[i]);
      writeln(onecurr.AttribStrings['currency'] + ' ' + onecurr.AttribStrings['rate'] + ' ' + onecurr.AttribStrings['name']);
  end;
  allcurr.Free;
  doc.Free;
  readln;
end.