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;                    

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:

program Transform;
// Umwandeln von Liste der Flughaefen von
// http://www.partow.net/miscellaneous/airportdatabase/
// in mathematikers Format

uses
  sysutils,classes;
const
  delimiter = ':';
  separator =#9;
var
  L,Z,Erg : tStringlist;
  s: string;
  lon,lat : double;
  i,EndPos,StartPos: integer;

begin
  L := tStringlist.create;
  Z := tStringlist.create;
  Erg := tStringlist.create;
  L.Loadfromfile('GlobalAirportDatabase.txt');

  For i := 0 to L.Count-1 do
  begin
    Z.clear;

    s := L[i];
    // Alle Zeichen zwischen delimiter kopieren
    StartPos := 1;
    For EndPos := 1 to Length(s) do
      if s[EndPos] = delimiter then
        begin
        Z.Add(copy(s,StartPos,EndPos-StartPos));
        StartPos:= EndPos+1;
        end;
    //Nach letztem delimiter
    Z.Add(copy(s,StartPos,EndPos-StartPos));
{
Field 00 - ICAO Code: 4 character ICAO code
Field 01 - IATA Code: 3 character IATA code
Field 02 - Airport Name: string of varying length
Field 03 - City,Town or Suburb: string of varying length
Field 04 - Country: string of varying length
Field 05 - Latitude Degrees: 2 ASCII characters representing one numeric value
Field 06 - Latitude Minutes: 2 ASCII characters representing one numeric value
Field 07 - Latitude Seconds: 2 ASCII characters representing one numeric value
Field 08 - Latitude Direction: 1 ASCII character either N or S representing compass direction
Field 09 - Longitude Degrees: 2 ASCII characters representing one numeric value
Field 10 - Longitude Minutes: 2 ASCII characters representing one numeric value
Field 11 - Longitude Seconds: 2 ASCII characters representing one numeric value
Field 12 - Longitude Direction: 1 ASCII character either E or W representing compass direction
Field 13 - Altitude: varying sequence of ASCII characters representing a numeric value corresponding to the airport's altitude from mean sea level (ie: "123" or "-123")
*                   ft ( wahrscheinlich ) oder m ?
* }
    //IF (z[8] <>'U') AND (z[12] <>'U')then
    begin
      // Erst IATA, ICAO, Ort, Land
      s := ''''+z[1]+','+z[0]+','+z[3]+','+z[4]+'''';
      lat := (StrToInt(z[7])/60+StrToInt(z[6]))/60+StrToInt(z[5]);
      IF z[8] = 'S' then
        lat := -lat;
      lon := (StrToInt(z[11])/60+StrToInt(z[10]))/60+StrToInt(z[9]);
      IF z[12] <> 'E' then
        lon := -lon;
      If (lat <> 0.0) AND (lon <> 0.0) then
        begin
        s:= s+separator+FloatToStr(lat)+separator+FloatToStr(lon);
        Erg.Add(s);
        end;
     end;
  end;
  Erg.Sort;
  Erg.SaveToFile('Ausgabe.txt');

  Erg.free;
  z.free;
  L.free;
end.                    

1:
2:

//     DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
      ZLib.ZDeCompress(InpBuf, sz, OutBuf, OutBytes);                    

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:

var
  Form1: TForm1;
  datenverzeichnis, DaCo: string;

const
   configfile = 'wetter10.ini';

function GetSpecialFolder(Folder: Integer): String;
begin
  SetLength(Result,MAX_PATH);
  If SHGetSpecialFolderPath(0, PChar(Result), Folder, false)
    then SetLength(Result,StrLen(PChar(Result)))
    else Result:='';
end;

procedure TForm1.FormActivate(Sender: TObject);
var ini:tinifile;
    nr:integer;
begin
    minutealt:=0;
    listbox1.doublebuffered:=true;
    datenverzeichnis:= GetSpecialFolder(CSIDL_APPDATA) +'\Wetterdaten2\';
    if not DirectoryExists(datenverzeichnis) then mkdir(datenverzeichnis);
    DaCo:= datenverzeichnis+configfile;
    if FileExists(DaCo) then
       Label4.Caption:= ' INI-File: '+DaCo +' exists' else
       Label4.Caption:= ' INI-File: '+DaCo +' NOT exists';

       ini := TIniFile.create(DaCo);//'wetter1.ini');
    try
       nr:=ini.readinteger('Start','Nr',0);
       radiogroup1.itemindex:=ini.readinteger('Start','14Tage',1);
       listbox1.itemindex:=nr;
    finally
       ini.free;
    end;
    listbox1click(sender);
    tc:=30;
end;

procedure TForm1.FormCreate(Sender: TObject);
procedure loadliste(const kk:string);
var ms1: TResourcestream;
    ms2: TMemoryStream;
begin
Form1.WindowState:=wsMaximized;  //th
    ms1 := TResourceStream.Create(hinstance,kk,'RT_RCDATA');
    try
      ms2 := TMemoryStream.Create;
      try
        DecompressStream(ms1, ms2);
        listbox1.items.LoadFromStream(ms2);
      finally
        ms2.Free;
      end;
    finally
      ms1.Free;
    end;
end;
begin
    liste:=tstringlist.create;
    liste2:=tstringlist.create;
    loadliste('mort');
(*  datenverzeichnis:=datenverzeichnissuchen;
    if not directoryexists(datenverzeichnis) then createdir(datenverzeichnis);
    if not fileexists(datenverzeichnis+'wetter1.ini') then
    begin
       ini := TIniFile.create(datenverzeichnis+'wetter1.ini');
       ini.Writeinteger('Start','Nr',0);
       ini.Writeinteger('Start','14Tage',1); //th
       ini.free;
    end;
*)
end;

procedure TForm1.FormDestroy(Sender: TObject);
var ini:tinifile;
begin
    liste.free;
    liste2.free;
    ini := TIniFile.Create(DaCo);
    try
      ini.Writeinteger('Start','Nr',listbox1.itemindex);
      ini.Writeinteger('Start','14Tage',radiogroup1.itemindex);
    finally
      ini.free;
    end;
end;                    

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

procedure auswertung2tage;
....
// Die groß geschriebenen Werte werden geändert 
      ziel.font.size:=16;
      if radiobutton1.checked then
        ziel.textout(x-65,y,format('%.0f°C',[tr]))
      else
        ziel.textout(x-65,y,format('%.0f°F',[9*tr/5+32]));
//ein paar Zeilen darunter:
// fehlt dies
//statt ziel.textout(x,y+16,format('Temperatur %.0f °C',[tr]))
      if radiobutton1.checked then
        ziel.textout(x,y+16,format('Temperatur %.0f °C',[tr]))
      else
        ziel.textout(x,y+16,format('Temperatur %.0f°F',[9*tr/5+32]));                    

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:

{"coord":
         {"lon":-0.12574,"lat":51.50853},
          "sys":
                {"country":"GB",
                 "sunrise":1376715026,
                 "sunset":1376767104},
          "weather":[{"id":804,
                      "main":"Clouds",
                      "description":"overcast clouds",
                      "icon":"04d"}],
          "base":"gdps stations",
          "main":
                 {"temp":291.16,
                  "humidity":73,
                  "pressure":1008,
                  "temp_min":289.82,"temp_max":292.04},
          "wind":
                 {"speed":7.71,
                  "gust":8.22,
                  "deg":193},
          "rain":{"3h":0},
          "clouds":{"all":92},
          "dt":1376757953,
          "id":2643743,
          "name":"London",
          "cod":200}                    

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

...
    UnixDate := EncodeDateTime(1970, 1, 1, 0, 0, 0,0);
...
...// Zeit als int64 einlesen
    i64:= J.AsInt64;
    Tage := i64 DIV 86400;
    Sekunde := i64-86400*Dat;//mod 86400
     //GMT+1h  +1h bei Sommerzeit hier 2/24
    Zeit := UnixDate+Dat+Sek/86400+2/24;                    

1:

    ShellExecute(Handle, 'open', 'http://openweathermap.org', nil, nil, SW_SHOWNORMAL) ;                    

1:

IdHttp1.Get                    

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

    IdHttp1.ProxyParams.ProxyServer := proxyadresse;
    IdHttp1.ProxyParams.ProxyPort := proxyport;
    IdHttp1.ProxyParams.ProxyUsername := username;
    IdHttp1.ProxyParams.ProxyPassword := userpasswort;
    IdHttp1.ProxyParams.BasicAuthentication := true;   //<-- wirklich notwendig, mitunter fehlt es ???

    Mem := TMemoryStream.Create;
    try
      IdHttp1.Get(Adresse, Mem);
      if Idhttp1.ResponseCode = 200 then // 200 = okay
      begin
... usw.                    

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:

//Ereignis in IdHTTP1 aktivieren
procedure TForm1.IdHTTP1Connected(Sender: TObject);
begin
Windows.Beep(800,200); //macht Beep...
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
  GetUrlToFile('http://wwwdyn.zdf.de/ext/weather/temp-brd-3.jpg','D:\temp-brd-3.jpg');
end;

procedure TForm1.GetUrlToFile(AURL, AFile : String);
  var Output : TMemoryStream;
  begin
IdHTTP1.HTTPOptions:= [hoKeepOrigProtocol,hoForceEncodeParams];  //WICHTIG!!!------------------------
    Output := TMemoryStream.Create;
    try
      try
       IdHTTP1.Get(AURL, Output);
       IdHTTP1.Disconnect;
      except
//was man will...
      end;
      Output.SaveToFile(AFile);
    finally
      Output.Free;
    end;
  end;                    

1:

{$DEFINE EEVARIANTE}                    

1:
2:
3:
4:

  IdHttp1.Get(Adresse);
  if Idhttp1.ResponseCode <> 200 then  // 200 = okay
    ShowMessage('Fehler beim Abruf der Wetterdaten!');
  IdHTTP1.free;                    

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

  IdHTTP1:=tidhttp.create;
  Adresse := 'http://openweathermap.org/data/2.5/forecast?'
             + 'lat='
             + edit9.text   //Breite
             + '&lon='
             + edit8.text   //Länge
             + '&mode=xml'
             + '&units=metric'
             + '&lang=de';
  Mem := TMemoryStream.Create;  //zur Aufnahme des XML-Textes
  try
    IdHttp1.Get(Adresse, Mem);  //Abfrage  
    mem.savetofile('daten.000');  //<--- nur wichtig um die gelieferten Daten auf der Festplatte zu parken
    if Idhttp1.ResponseCode = 200 then // 200 = okay
    begin
      mem.position:=0;
      liste.LoadFromStream(Mem);  //Einladen in eine TStringlist
    end
  finally
    Mem.Free;
  end;
  IdHTTP1.free;                    

 
348:
349:
350:
351:
352:
353:
354:

{ ... }
      {$IFDEF CONDITIONALEXPRESSIONS}
        {$IF CompilerVersion >= 20.0}
          ZDecompress(InpBuf, sz, OutBuf, OutBytes, 0);
        {$ELSE}
          DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
        {$IFEND}
      {$ENDIF}                    

 
1265:

{ ... }
mem.savetofile(datenverzeichnis+'wert.v2');                    

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

function GetWinSpecialFolder(CSIDLFolder: integer): AnsiString;
begin
    SetLength(Result, MAX_PATH);
    SHGetSpecialFolderPath(0, PChar(Result), CSIDLFolder, false);
    SetLength(Result, StrLen(PChar(Result)));
    if (Result <> '') then
      Result := IncludeTrailingBackslash(Result);
end;

function  datenverzeichnissuchen:string; <-- hier vielleicht besser ansistring ???
begin
{$IFNDEF EEVARIANTE}
    result := IncludeTrailingBackslash(GetWinSpecialFolder(CSIDL_APPDATA)+aktuellname2);
{$ELSE}
    result := IncludeTrailingBackslash(GetWinSpecialFolder(CSIDL_APPDATA)+'Wetterdaten');
{$ENDIF}
end;                    

 
317:

{ ... }
function GetWinSpecialFolder(CSIDLFolder: integer): String;                    

 
1384:

{ ... }
if sel >= 0 then