From 127c56f26df4eaffc93cb43b598254a5a186d712 Mon Sep 17 00:00:00 2001
From: sasbot <>
Date: Sat, 6 Jun 2020 12:00:00 +0000
Subject: [PATCH] update zmp

---
 navionics.com.zmp/GetUrlScript.txt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/navionics.com.zmp/GetUrlScript.txt b/navionics.com.zmp/GetUrlScript.txt
index 8d20af27..37e43112 100644
--- a/navionics.com.zmp/GetUrlScript.txt
+++ b/navionics.com.zmp/GetUrlScript.txt
@@ -1,7 +1,9 @@
 var
   I: Integer;
   VEncoded: string;
+  VBox: string;
 begin 
+  VBox := RoundEx(GetLMetr ,10) + ',' + RoundEx(GetBMetr, 10) + ',' + RoundEx(GetRMetr, 10) + ',' + RoundEx(GetTMetr, 10);
   // prepare params
   VEncoded := 
     'LAYERS=osm_ram' + '&' + 
@@ -13,7 +15,7 @@ begin
     'SRS=EPSG%3A3395' + '&' +
     'WIDTH=256' + '&' +
     'HEIGHT=256' + '&' +
-    'BBOX=' + RoundEx(GetLMetr ,10) + ',' + RoundEx(GetBMetr, 10) + ',' + RoundEx(GetRMetr, 10) + ',' + RoundEx(GetTMetr, 10);
+    'BBOX=' + VBox;
   
   // crypt
   for I := 1 to Length(VEncoded) do 
@@ -25,7 +27,7 @@ begin
   //replase "+" with "%2b" charset
   VEncoded := RegExprReplaceMatchSubStr(VEncoded, '\+', '\%2b');
   
-  ResultURL:=GetURLBase + VEncoded + '&NAVKEY=NAVIONICS11WEBAPI111';
+  ResultURL:=GetURLBase + VEncoded + '&NAVKEY=NAVIONICS11WEBAPI111&TEST=' + VBox + '&ZOOM=' + IntToStr(GetZ) + '&v=1&SRC=http://www.navionics.com';
   
   RequestHead := 'Referer: http://www.navionics.com/sites/navionics.plurimedia.it/files/coverage/webapp.html?2985400';
 end.
\ No newline at end of file