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