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:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:

procedure Ttthermo.FormActivate(Sender: TObject);
var ini:tinifile;
      i,b,akth: integer;
begin
    listbox1.doublebuffered:=true;
    if fileexists(datenverzeichnis+'wetter.ini') then
    begin
       ini := TIniFile.create(datenverzeichnis+'wetter.ini');
       i := ini.readinteger('Start','Nr',0);
       ini.free;
       listbox1.itemindex:=i;
       ListBox1Click(self);//<- Koordinatenanzeige aktualisieren
    end
    else
      listbox1.itemindex:=574;

    tc:=30;

    //image beschriften
    With image.Picture.bitmap.canvas do
      begin
      brush.style:=bsclear;
      font.size:=10;
      b:=image.Picture.bitmap.width div 2+12;
      akth := 75;
      for i:=oben downto -40 do
      begin
        moveto(b,akth);
        if i mod 10 = 0 then
        begin
          lineto(b+30,akth);
          textout(b+20,akth-font.size-4,inttostr(i));
        end
        else
        begin
          lineto(b+15,akth);
        end;
        inc(akth,4);
      end;
    end;
end;

{$IFNDEF FPC}
function Ttthermo.GetURltxt(Url:string):string;
var
  IdHTTP1 : TIdHTTP;
  Mem : TMemoryStream;
begin
  IdHTTP1:=tidhttp.create;
  Mem := TMemoryStream.Create;
  result := '';
  try
        IdHttp1.Get(Url, Mem);
        if Idhttp1.ResponseCode = 200 then // 200 = okay
        begin
          setlength(result,mem.Size);
          move(pChar(mem.memory)^,result[1],mem.size);
        end
        else
          ShowMessage('Fehler beim Abruf der Wetterdaten!');
  finally
    Mem.Free;
    IdHttp1.Free;
  end;
end;
{$else}
function Ttthermo.GetURltxt(Url:string):string;
var
  Http : THttpSend;
begin
  result := '';
  Http:= THttpSend.create;
  try
    IF Http.HTTPMethod('GET',URL) then
      With http.Document do
        begin
        setlength(result,Size);
        move(pChar(memory)^,result[1],size);
        end;
  finally
    Http.free;
  end;
end;
{$ENDIF}
function Ttthermo.GetValue(const Was,Worin:string):string;
var
 von,bis,LenS:integer;
begin
  lenS := length(Worin);
  von:=pos(Was,Worin)+length(Was)+ length(' value=');
  // Suchen erstem nach'"'
  while (von<=lenS) and (Worin[von]<>'"') do
    inc(von);
  inc(von);
  bis := von;
  // Suchen abschliessendem '"'
  while (bis<=lenS) and (Worin[bis]<>'"') do
    inc(Bis);
  result := copy(Worin,von,bis-von);
end;

procedure Ttthermo.Button1Click(Sender: TObject);
var
  Adresse : string;
  s,s2    : string;
  r       : real;
  code,sel : integer;

begin
//Seaching by geographic coordinats  api.openweathermap.org/data/2.5/weather?lat=35&lon=139
  Adresse := 'http://openweathermap.org/data/2.5/weather?lat='
             + edit9.text
             + '&lon='
             + edit8.text
             + '&mode=xml'
             + '&units=metric'
             + '&lang=de';
  s := GetURltxt(Adresse);
  IF s <> '' then
  begin
    val(GetValue('temperature',s),r,code);
    edit5.text:=inttostr(round(r));

      sel:=listbox1.itemindex;
      if sel>=0 then begin
        listbox2.clear;
        s2:=listbox1.items[sel];
        listbox2.items.add(copy(s2,1,pos(#9,s2)-1));
        listbox2.items.add('Temperatur'+#9+format('%.1f °C',[r]));
        listbox2.items.add('Luftfeuchtigkeit'+#9+GetValue('humidity',s)+' %');

        val(GetValue('pressure',s),r,code);
        listbox2.items.add('Luftdruck'+#9+format('%.0f hPa',[r]));
        val(GetValue('speed',s),r,code);
        listbox2.items.add('Wind'+#9+format('%.1f m/s',[r]));
        listbox2.items.add('Windrichtung'+#9+GetValue('code',s));
        listbox2.items.add('Wolken'+#9+GetValue('clouds',s)+' %');
        s:=GetValue('mode',s);
        if s='no' then
          listbox2.items.add('Niederschlag'+#9+'-');
        if s='rain' then
          listbox2.items.add('Niederschlag'+#9+'Regen');
        if s='snow' then
          listbox2.items.add('Niederschlag'+#9+'Schnee');
//        val(wert('precipiation'),5,code);
//        val(wert('"rain" unit'),n2,code);
//        listbox2.items.add('Niederschlag'+#9+format('%.1f mm/h',[n1/n2]));
      end
    else
      ShowMessage('Fehler beim Abruf der Wetterdaten!');
  end;
end;					

1:
2:
3:
4:
5:

     IdHttp1.Get('http://openweathermap.org/img/w/10d.png', Mem);
     mem.position:=0;
     bild:=tpngobject.create;
     bild.loadfromstream(mem);
     bild.free;					

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

  Mem := TMemoryStream.Create;
  try
    IdHttp.Get('http://openweathermap.org/img/w/01d.png', Mem);
    if Idhttp.ResponseCode = 200 then // 200 = okay
      begin
        Mem.Position := 0;
        PNGBild := TPngImage.Create;
        try
          PNGBild.LoadFromStream(Mem);
          Image.Picture.Assign(PNGBild);
        finally
          PNGBild.Free;
        end;
      end
    else
      ShowMessage('Fehler beim Abruf des Wettericons!');
  finally
    Mem.Free;
  end;					

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

procedure TForm1.Button3Click(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create('F:\01d.png', fmCreate); //bei mir F: wegen Schreibrechten als Admin
  try
    IdHTTP1.Get('http://openweathermap.org/img/w/01d.png', fs);
  finally
    fs.Free;
  end;
end;					

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

procedure TForm1.Button4Click(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create('F:\sat-euri-0-1.jpg', fmCreate);
  //bei mir F: wegen Schreibrechten als Admin: Als Administrator ausführen
  try
    IdHTTP1.Get('http://wwwdyn.zdf.de/ext/weather/sat-euri-0-1.jpg', fs);
  finally
    fs.Free;
  end;
end;