sasgis 54 роки тому
джерело
коміт
f6a2f054e5
10 змінених файлів з 100 додано та 0 видалено
  1. BIN
      navionics.SonarCharts.layer.zmp/18.bmp
  2. BIN
      navionics.SonarCharts.layer.zmp/24.bmp
  3. BIN
      navionics.SonarCharts.layer.zmp/EmptyTiles/empty.png
  4. +33
    -0
      navionics.SonarCharts.layer.zmp/GetUrlScript.txt
  5. +17
    -0
      navionics.SonarCharts.layer.zmp/params.txt
  6. BIN
      navionics.SonarCharts.zmp/18.bmp
  7. BIN
      navionics.SonarCharts.zmp/24.bmp
  8. BIN
      navionics.SonarCharts.zmp/EmptyTiles/empty.png
  9. +33
    -0
      navionics.SonarCharts.zmp/GetUrlScript.txt
  10. +17
    -0
      navionics.SonarCharts.zmp/params.txt

BIN
navionics.SonarCharts.layer.zmp/18.bmp Переглянути файл

Перед Після

BIN
navionics.SonarCharts.layer.zmp/24.bmp Переглянути файл

Перед Після

BIN
navionics.SonarCharts.layer.zmp/EmptyTiles/empty.png Переглянути файл

Перед Після
Ширина: 256  |  Висота: 256  |  Розмір: 872 B

+ 33
- 0
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.

+ 17
- 0
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

BIN
navionics.SonarCharts.zmp/18.bmp Переглянути файл

Перед Після

BIN
navionics.SonarCharts.zmp/24.bmp Переглянути файл

Перед Після

BIN
navionics.SonarCharts.zmp/EmptyTiles/empty.png Переглянути файл

Перед Після
Ширина: 256  |  Висота: 256  |  Розмір: 872 B

+ 33
- 0
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.

+ 17
- 0
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

Завантаження…
Відмінити
Зберегти