update zmp

navionics.SonarCharts.layer.zmp/GetUrlScript.txt

@@ -0,0 +1,33 @@
+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=config_1_1_1_0' + '&' + 
+    'TRANSPARENT=TRUE' + '&' +
+    'SERVICE=WMS' + '&' +
+    'VERSION=1.1.1' + '&' +
+    'REQUEST=GetMap' + '&' +
+    'FORMAT=image%2Fpng' + '&' +
+    'SRS=EPSG%3A6859' + '&' +
+    'BBOX=' + VBox + '&' +
+    'WIDTH=256' + '&' +
+    'HEIGHT=256';
+  
+  // crypt
+  for I := 1 to Length(VEncoded) do 
+  VEncoded[I] := Chr(Ord(VEncoded[I]) xor 42);
+  
+  // Base64 encode
+  VEncoded := Base64Encode(VEncoded);
+  
+  //replase "+" with "%2b" charset
+  VEncoded := RegExprReplaceMatchSubStr(VEncoded, '\+', '\%2b');
+  
+  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.

navionics.SonarCharts.layer.zmp/params.txt

@@ -0,0 +1,17 @@
+[PARAMS]
+GUID={BF5C7247-0543-4DBB-B4B1-5E969C9EB942}
+name=Navonics SonarCharts
+name_en=Navionics SonarCharts
+name_uk=Navionics SonarCharts
+ParentSubMenu=Ìîðñêèå êàðòû
+ParentSubMenu_en=Marine maps
+ParentSubMenu_uk=Marine maps
+asLayer=1
+DefURLBase=http://webviewer-api.navionics.com/getmap?PARAMS=
+NameInCache=navionics.SonarCharts.layer
+Ext=.png
+UseDwn=1
+ContentType=image/png
+projection=2
+sradiusa=6378388
+sradiusb=6356912

navionics.SonarCharts.zmp/GetUrlScript.txt

@@ -0,0 +1,33 @@
+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=config_1_1_1_0' + '&' + 
+    'TRANSPARENT=FALSE' + '&' +
+    'SERVICE=WMS' + '&' +
+    'VERSION=1.1.1' + '&' +
+    'REQUEST=GetMap' + '&' +
+    'FORMAT=image%2Fpng' + '&' +
+    'SRS=EPSG%3A6859' + '&' +
+    'BBOX=' + VBox + '&' +
+    'WIDTH=256' + '&' +
+    'HEIGHT=256';
+  
+  // crypt
+  for I := 1 to Length(VEncoded) do 
+  VEncoded[I] := Chr(Ord(VEncoded[I]) xor 42);
+  
+  // Base64 encode
+  VEncoded := Base64Encode(VEncoded);
+  
+  //replase "+" with "%2b" charset
+  VEncoded := RegExprReplaceMatchSubStr(VEncoded, '\+', '\%2b');
+  
+  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.

navionics.SonarCharts.zmp/params.txt

@@ -0,0 +1,17 @@
+[PARAMS]
+GUID={AF5C7247-0543-4DBB-B4B1-5E969C9EB942}
+name=Navionics SonarCharts
+name_en=Navionics SonarCharts
+name_uk=Navionics SonarCharts
+ParentSubMenu=Ìîðñêèå êàðòû
+ParentSubMenu_en=Marine maps
+ParentSubMenu_uk=Marine maps
+asLayer=0
+DefURLBase=http://webviewer-api.navionics.com/getmap?PARAMS=
+NameInCache=navionics.SonarCharts
+Ext=.png
+UseDwn=1
+ContentType=image/png
+projection=2
+sradiusa=6378388
+sradiusb=6356912