diff --git a/navionics.SonarCharts.layer.zmp/18.bmp b/navionics.SonarCharts.layer.zmp/18.bmp new file mode 100644 index 00000000..a535c4b6 Binary files /dev/null and b/navionics.SonarCharts.layer.zmp/18.bmp differ diff --git a/navionics.SonarCharts.layer.zmp/24.bmp b/navionics.SonarCharts.layer.zmp/24.bmp new file mode 100644 index 00000000..686a279f Binary files /dev/null and b/navionics.SonarCharts.layer.zmp/24.bmp differ diff --git a/navionics.SonarCharts.layer.zmp/EmptyTiles/empty.png b/navionics.SonarCharts.layer.zmp/EmptyTiles/empty.png new file mode 100644 index 00000000..5071e646 Binary files /dev/null and b/navionics.SonarCharts.layer.zmp/EmptyTiles/empty.png differ diff --git a/navionics.SonarCharts.layer.zmp/GetUrlScript.txt b/navionics.SonarCharts.layer.zmp/GetUrlScript.txt new file mode 100644 index 00000000..f034a399 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/navionics.SonarCharts.layer.zmp/params.txt b/navionics.SonarCharts.layer.zmp/params.txt new file mode 100644 index 00000000..154bb368 --- /dev/null +++ b/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 diff --git a/navionics.SonarCharts.zmp/18.bmp b/navionics.SonarCharts.zmp/18.bmp new file mode 100644 index 00000000..a535c4b6 Binary files /dev/null and b/navionics.SonarCharts.zmp/18.bmp differ diff --git a/navionics.SonarCharts.zmp/24.bmp b/navionics.SonarCharts.zmp/24.bmp new file mode 100644 index 00000000..686a279f Binary files /dev/null and b/navionics.SonarCharts.zmp/24.bmp differ diff --git a/navionics.SonarCharts.zmp/EmptyTiles/empty.png b/navionics.SonarCharts.zmp/EmptyTiles/empty.png new file mode 100644 index 00000000..5071e646 Binary files /dev/null and b/navionics.SonarCharts.zmp/EmptyTiles/empty.png differ diff --git a/navionics.SonarCharts.zmp/GetUrlScript.txt b/navionics.SonarCharts.zmp/GetUrlScript.txt new file mode 100644 index 00000000..97ddb8f0 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/navionics.SonarCharts.zmp/params.txt b/navionics.SonarCharts.zmp/params.txt new file mode 100644 index 00000000..7d23eca8 --- /dev/null +++ b/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