1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

uses
  ...IdHTTP, DOM, XMLRead, XMLWrite;

procedure TForm1.FormCreate(Sender: TObject);
var PassNode :TDOMNode;
    API: TIdHttp;
    Doc: TXMLDocument;
begin
  Doc:=TXMLDocument.Create;
  API:=TIdHTTP.Create;

  API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  ReadXMLFile(Doc,API);

// Die Wechselkurse sind erstmal Lokal im Programm, doch hier sollen anstadt die 
// Lokalen Werte die entsprechenden Werte aus der API stehen.
  Waehrungen[0]:=1.2332;      //Australien
  Waehrungen[1]:=8.2179;      //China
  Waehrungen[2]:=1.3129;      //Canada
  Waehrungen[3]:=7.4358;      //Dänemark
  Waehrungen[4]:=0.83625;     //Groß Britanien
  Waehrungen[5]:=65.0780;     //Indien
  Waehrungen[6]:=100.10;      //Japan
  Waehrungen[7]:=8.7791;      //Schweden
  Waehrungen[8]:=1.2061;      //Schweiz
  Waehrungen[9]:=1.3017;      //USA                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.FormCreate(Sender: TObject);
var PassNode :TDOMNode;
    API: TIdHttp;
    Doc: TXMLDocument;
    Internetverbindung: Boolean;

begin
  Internetverbindung:=true;
  Doc:=TXMLDocument.Create;
  API:=TIdHTTP.Create;

  try
    API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
    ReadXMLFile(Doc,'http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  except
    Internetverbindung:=false;
    Showmessage('Keine Internet-verbindung möglich');
  end;

  if Internetverbindung=true then
    begin
      PassNode := Doc.DocumentElement.FindNode('USD');
      WriteLn(PassNode.NodeValue);
      WriteLn(PassNode.FirstChild.NodeValue);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.FormCreate(Sender: TObject);
var PassNode :TDOMNode;
    API: TIdHttp;
    Doc: TXMLDocument;
    Internetverbindung: Boolean;

begin
  Internetverbindung:=true;
  Doc:=TXMLDocument.Create;
  API:=TIdHTTP.Create;

  try
 // API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
    ReadXMLFile(Doc,API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml'));
  except
    Internetverbindung:=false;
    Showmessage('Keine Internet-verbindung möglich');
  end;

  if Internetverbindung=true then
    begin
      PassNode := Doc.DocumentElement.FindNode('USD');
      WriteLn(PassNode.NodeValue);
      WriteLn(PassNode.FirstChild.NodeValue);
    end;
end;                    

1:
2:
3:
4:
5:
6:

try
  ...
except
  on E: Exception do
    ShowMessage(E.Message);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm.Create(Sender: TObject);
Var Save: TMemoryStream;
begin
Save:=TMemoryStream.Create;

Save.LoadFromStream('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');

.
.
.
.
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.FormCreate(Sender: TObject);
var
  PassNode: TDOMNode;
  API: TIdHttp;
  Doc: TXMLDocument;
  PageContents: TMemoryStream;
begin
  Doc := TXMLDocument.Create;
  API := TIdHTTP.Create;
  try
    PageContents := TMemoryStream.Create;
    try
      try
        API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml', PageContents);
        PageContents.Position := 0;
        ReadXMLFile(Doc, PageContents);
        PassNode := Doc.DocumentElement.FindNode('USD');
        WriteLn(PassNode.NodeValue);
        WriteLn(PassNode.FirstChild.NodeValue);
      except
        on E: Exception do
          Showmessage('Keine Internetverbindung möglich:'#13#10 + E.Message);
      end;
    finally
      PageContents.Free;
    end;
  finally
    API.Free;
  end;
end;                    

1:

WriteLn(PassNode.NodeValue);                    

1:

PassNode := Doc.DocumentElement.FindNode('USD');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

program XMLSuche;
//Freepascal 2.6.0
uses 
  SysUtils,DOM,xmlread;
const 
  XMLName = 'eurofxref-daily.xml';

procedure Attribute(A:TDOMNamedNodeMap);
var
  i : longInt;
begin
   IF A = NIL then 
     begin
     writeln('No attribues');
     EXIT;
     end;

  with A do
    begin
    For i := 0 to length-1 do
      with Item[i] do
         write(NodeName+'  '+NodeValue+' ;');
    writeln;
    end;

end;

procedure SpucksAus(rootnode:TDOMNodeList);
var
  i : longint;
begin
   IF rootnode = NIL then 
     EXIT;
   with rootnode do   
     begin
     for i := 0 to (Count - 1) do     
       with Item[i] do
         begin
         writeln(NodeName,'___',NodeValue); 
         Attribute(Attributes);
         SpucksAus(ChildNodes);
       end;
    end;      

end;

procedure XML_Ausgeben;
var
   Documento: TXMLDocument;
   Suche: TDOMNode;
 begin
   ReadXMLFile(Documento, IncludeTrailingPathDelimiter(GetCurrentDir)+XMLName);
    
   //Alles ausgeben 
   SpucksAus(Documento.DocumentElement.ChildNodes);
   readln;

   // Nach 'Cube' suchen 'cube' findet nichts 
   Suche := Documento.DocumentElement.FindNode('Cube');
   IF Suche <> NIL then
     SpucksAus(Suche.Childnodes)
   else
     writeln('Suche nicht erfolgreich');

   Documento.Free;

 end;
 
Begin
XML_Ausgeben; 
readln
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

gesmes:subject___

#text___Reference rates   <-- Wo kommt #text als Nodename her, Typbezeichner ??
No attribues
gesmes:Sender___

gesmes:name___

#text___European Central Bank
No attribues
Cube___

Cube___
time  2012-02-06 ;
Cube___
rate  1.3042 ;currency  USD ;
Cube___
rate  99.97 ;currency  JPY ;
Cube___
usw......
Cube___
rate  40.404 ;currency  THB ;
Cube___
rate  9.9450 ;currency  ZAR ;


Suche nach Cube
Cube___
time  2012-02-06 ;
Cube___
rate  1.3042 ;currency  USD ;
Cube___
rate  99.97 ;currency  JPY ;
usw......
Cube___
rate  40.404 ;currency  THB ;
Cube___
rate  9.9450 ;currency  ZAR ;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

uses
  MSXML2_TLB;

var
  API: TIdHttp;
  Doc: IXMLDOMDocument3;
  CurrencyNode: IXMLDOMNode;
begin
  Doc := CoDOMDocument60.Create;
  API := TIdHTTP.Create;
  try
    try
      Doc.loadXML(API.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml'));
      CurrencyNode := Doc.selectSingleNode('/*/*/*/*[@currency=''JPY'']');
      if Assigned(CurrencyNode) then
        ShowMessage(CurrencyNode.attributes.getNamedItem('rate').nodeValue);
    except
      on E: Exception do
        Showmessage('Keine Internetverbindung möglich:'#13#10 + E.Message);
    end;
  finally
    API.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:

program XMLSuche;
(*
{$SMARTLINK ON}
{$OPTIMIZATION ON}
{$OPTIMIZATION REGVAR}
{$OPTIMIZATION PEEPHOLE}
{$OPTIMIZATION CSE}
{$OPTIMIZATION ASMCSE}
*)

uses 
  classes,SysUtils,DOM,xmlread,xpath;
const 
  XMLName = 'eurofxref-daily.xml';

procedure Attribute(A:TDOMNamedNodeMap;var sl:TStringList);
var
  i : longInt;
  s : ANSIString;
begin
   IF A = NIL then 
     begin
     writeln('No attribues');
     EXIT;
     end;

  with A do
    begin
    s := '';
    For i := 0 to length-1 do
      with Item[i] do
        s:=NodeValue+'='+s;
    if s <> '' then
      begin    
      setlength(s,system.Length(S)-1 );    
      sl.Add(s);
      end;
    end;

end;

procedure SpucksAus(rootnode:TDOMNodeList;var sl: TStringList);
var
  i : longint;
begin
   IF rootnode = NIL then 
     EXIT;
   with rootnode do   
     begin
     for i := 0 to (Count - 1) do     
       with Item[i] do
         begin
         Attribute(Attributes,sl);
         SpucksAus(ChildNodes,sl);
       end;
    end;      

end;

procedure XML_Ausgeben;
var
   Doc : TXMLDocument;
   rslt: TXPathVariable;
   Suche: TDOMNode;
   i :integer;
   S: TStringList;
   
 begin
   s := TStringList.create;
   ReadXMLFile(Doc, IncludeTrailingPathDelimiter(GetCurrentDir)+XMLName);
   rslt := EvaluateXPathExpression('/*/*/*/*[@currency=''JPY'']', doc.DocumentElement);

   For i := 0 to  rslt.AsNodeSet.Count-1 do
     begin
     Suche := TDomNode(rslt.AsNodeSet[i]);
     Suche := Doc.DocumentElement.FindNode(Suche.NodeName);
     IF Suche <> NIL then
       SpucksAus(Suche.Childnodes,S)
     else
       writeln('Suche nicht erfolgreich');
     end; 
   
   writeln(S.text);
   writeln('Ein EURO sind ',S.Values['USD'],' $');
   //Ein EURO sind 1.3042$
   writeln('Ein EURO sind ',S.Values['JPY'],' Yen');

   s.free;     
   Doc.Free;
 end;
 
Begin
XML_Ausgeben; 
readln
end.
(* Ausgabe der Stringliste
2012-02-06
USD=1.3042
JPY=99.97
BGN=1.9558
CZK=24.980
DKK=7.4342
GBP=0.82810
HUF=293.01
LTL=3.4528
LVL=0.6993
PLN=4.1770
RON=4.3420
SEK=8.8025
CHF=1.2067
NOK=7.5925
HRK=7.5830
RUB=39.4254
TRY=2.3017
AUD=1.2192
BRL=2.2549
CAD=1.3019
CNY=8.2329
HKD=10.1135
IDR=11718.28
ILS=4.8552
INR=63.9780
KRW=1463.27
MXN=16.5907
MYR=3.9374
NZD=1.5721
PHP=55.533
SGD=1.6303
THB=40.404
ZAR=9.9450

Ein EURO sind 1.3042 $
Ein EURO sind 99.97 Yen
*)                    

1:

CurrencyNode := Doc.selectSingleNode('/*/*/*/*[@currency=''JPY'']');                    

1:
2:

uses
  MSXML2_TLB;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    btnGetXML: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    btnGetXrate: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure btnGetXMLClick(Sender: TObject);
    procedure btnGetXrateClick(Sender: TObject);
  end;

procedure TForm1.btnGetXMLClick(Sender: TObject);
begin
  Memo1.Text := IdHTTP1.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
end;

procedure TForm1.btnGetXrateClick(Sender: TObject);
  var
    i: Integer;
    XML: String;
begin
  XML := Memo1.Text;
  i := Pos(Edit1.Text, XML);
  if (i > 0) then begin
    while not (XML[i] in ['0'..'9','.']) do
      Inc(i);
    Edit2.Clear;
    repeat
      Edit2.Text := Edit2.Text +XML[i];
      Inc(i);
    until not (XML[i] in ['0'..'9','.']);
  end
  else
    ShowMessage('Kurs nicht gefunden!');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var PassNode :TDOMNode;
    API: TIdHttp;
    Doc: TXMLDocument;
    i: Integer;
    XML: String;
begin
  B_New.Click;
  Memo1.Text := IdHTTP1.Get('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');

  begin
  XML := Memo1.Text;
  i := Pos('USD', XML);
  if (i > 0) then begin
    while not (XML[i] in ['0'..'9','.']) do
      Inc(i);
    repeat
      Waehrungen[9] := Waehrungen[9] + StrToFloat(XML+[i]);
      Inc(i);
    until not (XML[i] in ['0'..'9','.']);
  end
  //else
  //  ShowMessage('Kurs nicht gefunden!');
end;