Я в этой теме нашел старый zmp от 2011 года, исправил в param.txt сервер на новый и подменил скрипт. Заработало до z16. Но на сайте доступно еще z17, 18 и 19.
- Код: Выделить всё
function addzero2(i:integer):string;
var rs:string;
begin
rs:=inttostr(i);
while length(rs)<2 do rs:='0'+rs;
result:=rs;
end;
begin
if GetZ=7 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-11,8))+'/C'+ansilowercase(inttohex(GetX-22,8))+'.png';
if GetZ=8 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-21,8))+'/C'+ansilowercase(inttohex(GetX-44,8))+'.png';
if GetZ=9 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-52,8))+'/C'+ansilowercase(inttohex(GetX-103,8))+'.png';
if GetZ=10 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-104,8))+'/C'+ansilowercase(inttohex(GetX-207,8))+'.png';
if GetZ=11 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-209,8))+'/C'+ansilowercase(inttohex(GetX-415,8))+'.png';
if GetZ=12 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-360,8))+'/C'+ansilowercase(inttohex(GetX-746,8))+'.png';
if GetZ=13 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-720,8))+'/C'+ansilowercase(inttohex(GetX-1493,8))+'.png';
if GetZ=14 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-1441,8))+'/C'+ansilowercase(inttohex(GetX-2986,8))+'.png';
if GetZ=15 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-2881,8))+'/C'+ansilowercase(inttohex(GetX-5973,8))+'.png';
if GetZ=16 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-4600,8))+'/C'+ansilowercase(inttohex(GetX-10263,8))+'.png';
if GetZ=17 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-[color=#FF0000]???[/color],8))+'/C'+ansilowercase(inttohex(GetX-[color=#FF0000]???[/color],8))+'.png';
и так до 19го
end.
Это HEX числа, как я понял берутся из имени тайла, но как узнать какое с следующий зум значение вставить?
Нужны Ортофото 2012-2014 не 2015.
http://www.maps.lt/map/default.aspx?lang=en
Ну плиз, кто шарит?