Blog |
Documentation |
Tutorials |
Terms |
Privacy Policy
© 2024 The MathWorks, Inc.
© 2024 The MathWorks, Inc.
APIKEY4 = write
@To get access weather thingspeak API you need an own API key whatever account you chose!
function GetGeoWeatherALUP(const location: string;
const UrlRestAPI, APIKey, value: ansistring): string;
var alHTTP: TALWinHttpClient; //TALHTTPClient ;
lStream: TStringStream;
ast: string;
begin
alHTTP:= TALWinHttpClient.Create;
//lStream:= TStringStream.Create('');
try
alhttp.requestmethod:= HTTPmt_Get; //HTTPmt_Put
try
ast:= alHTTP.get1(Format(UrlRestAPI,[APIKey,value]));
sleep(500)
writeln(alhttp.url);
except
//if something wrong try using a backup server.
//writeln('html back: '+GetURLAsString('http://api.openweathermap.org'));
writeln('OWMap Exception: '+Gethtm(UrlRestAPI))
end;
//lStream.Seek(0,0);
//result:= 'GEO_Weather_Report: '+UTF8ToString(lStream.ReadString(lStream.Size));
result:= 'maxboxthingsup back: '+ast;
finally
alHTTP.Free;
//lStream.Free;
end;
end;