Wetterstation Daten auslesen/speichern

[mytbo]

Bei Davis kannst du die Daten über die REST API wie folgt mit mORMot1 laden.

Delphi-Quellcode:

// USERNAME = '...';
// PASSWORD = '...';
// APITOKEN = '...';
procedure TDWSRestServer.DownloadDWData(pmSender: TSynBackgroundTimer; pmEvent: TWaitResult; const pmcMsg: RawUTF8);
const
  URL_TEMPLATE = 'https://api.weatherlink.com/v1/NoaaExt.json?user=%&pass=%&apiToken=%';
var
  log: ISynLog;
  url: SockString;
  content: SockString;
begin
  log := LogClass.Enter(Self, 'DownloadDWData');
  with FRestServiceSettings do
    url := StringToAnsi7(FormatString(URL_TEMPLATE, [DWUserName, DWUserPassword, DWUserAPIToken]));

  content := HttpGet(url);
  InitializeWeatherDataFields(content);
  ...
end;

Zum Bezug der Daten benötigst du nur die Funktion HttpGet. Wir laden im 60 Sekunden Rhythmus und blenden die Daten im Vereinsflieger ein. Die Flugleitung hat dann die aktuellen Werte unserer Wetterstation immer im Sichtfeld.

Bis bald...
Thomas