update zmp

_water/navionics.SonarChart.layer.zmp/GetUrlScript.txt

@@ -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;

_water/navionics.SonarChart.zmp/GetUrlScript.txt

@@ -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;

_water/navionics.layer.zmp/GetUrlScript.txt

@@ -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;

_water/navionics.zmp/GetUrlScript.txt

@@ -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;