sasbot 4 роки тому
джерело
коміт
913cfeb717
2 змінених файлів з 30 додано та 2 видалено
  1. +29
    -1
      navionics.com.zmp/GetUrlScript.txt
  2. +1
    -1
      navionics.com.zmp/params.txt

+ 29
- 1
navionics.com.zmp/GetUrlScript.txt Переглянути файл

@@ -1,3 +1,31 @@
var
I: Integer;
VEncoded: string;
begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,10)+','+RoundEx(GetBMetr,10)+','+RoundEx(GetRMetr,10)+','+RoundEx(GetTMetr,10);
// prepare params
VEncoded :=
'LAYERS=osm_ram' + '&' +
'SERVICE=WMS' + '&' +
'VERSION=1.1.1' + '&' +
'REQUEST=GetMap' + '&' +
'STYLES=' + '&' +
'FORMAT=image%2Fpng' + '&' +
'SRS=EPSG%3A3395' + '&' +
'WIDTH=256' + '&' +
'HEIGHT=256' + '&' +
'BBOX=' + RoundEx(GetLMetr ,10) + ',' + RoundEx(GetBMetr, 10) + ',' + RoundEx(GetRMetr, 10) + ',' + RoundEx(GetTMetr, 10);
// 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';
RequestHead := 'Referer: http://www.navionics.com/sites/navionics.plurimedia.it/files/coverage/webapp.html?2985400';
end.

+ 1
- 1
navionics.com.zmp/params.txt Переглянути файл

@@ -8,7 +8,7 @@ ParentSubMenu=
ParentSubMenu_en=Other maps
ParentSubMenu_uk=²íø³ êàðòè
asLayer=0
DefURLBase=http://ec2-54-234-79-86.compute-1.amazonaws.com/MAP/rastermap?mapkey=1234567890&LAYERS=osm_ram&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&STYLES=&FORMAT=image%2Fjpeg&SRS=EPSG%3A3395&WIDTH=256&HEIGHT=256&BBOX=
DefURLBase=http://webviewer-api.navionics.com/getmap?PARAMS=
NameInCache=navionics_com
separator=0
Ext=.png


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