|
|
@@ -34,7 +34,7 @@ var |
|
|
|
VTimeStamp: AnsiString;
|
|
|
|
VResponseCode: Cardinal;
|
|
|
|
VResponseHeader, VResponseData: AnsiString;
|
|
|
|
VRequestUrl: AnsiString;
|
|
|
|
VRequestUrl, VRequestHeader: AnsiString;
|
|
|
|
begin
|
|
|
|
Result := '';
|
|
|
|
|
|
|
@@ -51,9 +51,10 @@ begin |
|
|
|
if (Result = '') and Assigned(Downloader) then begin
|
|
|
|
VTimeStamp := IntToStr(GetUnixTime);
|
|
|
|
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp;
|
|
|
|
VRequestHeader := 'Origin: https://webapiv2.navionics.com' + #13#10 + 'Referer: https://webapiv2.navionics.com/examples/4000_gNavionicsOverlayExample.html';
|
|
|
|
VResponseHeader := '';
|
|
|
|
VResponseData := '';
|
|
|
|
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
|
|
|
|
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
|
|
|
|
|
|
|
|
if VResponseCode = 200 then begin
|
|
|
|
Result := VResponseData;
|
|
|
|