sasgis
/
maps
2
0
Fork 4
Code Issues 0 Pull Requests 0 Releases 0 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
254 Commits
1 Branch
15 MiB
 
Tree: 41ae930fa2
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '41ae930fa2'
${ noResults }
maps/_Rosreestr/rosreestr_cadastr.zmp/GetUrlScript.txt

14 lines
477 B
Raw Blame History 

  1. var i:integer;

  2.         xy:TPoint;

  3.         topLeftM,bottomrightM,LL:TDoublePoint;

  4. begin

  5.  xy.x:=GetX*256;

  6.  xy.y:=GetY*256;

  7.  LL:=Converter.Pos2LonLat(XY,GetZ+7);

  8.  topLeftM:=Converter.LonLat2Metr(LL);

  9.  xy.x:=(GetX+1)*256;

  10.  xy.y:=(GetY+1)*256;

  11.  LL:=Converter.Pos2LonLat(XY,GetZ+7);

  12.  bottomrightM:=Converter.LonLat2Metr(LL);

  13.  ResultURL:=GetURLBase+'&bbox='+RoundEx(topLeftM.x,8)+','+RoundEx(topLeftM.y,8)+','+RoundEx(bottomrightM.x,8)+','+RoundEx(bottomrightM.y,8);

  14. end.