diff --git a/navionics.com.zmp/GetUrlScript.txt b/navionics.com.zmp/GetUrlScript.txt index 8d20af279..37e431126 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