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.
76 Commits
1 Branch
15 MiB
 
Tree: dd66a36262
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'dd66a36262'
${ noResults }
maps/dataplus.ru_landsat.zmp/GetUrlScript.txt

14 lines
596 B
Raw Blame History 

  1. var i:integer;

  2.         xy:TPoint;

  3.         topLeftM,bottomrightM,LL:TExtendedPoint;

  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={"xmin":'+RoundEx(topLeftM.x,8)+',"ymin":'+RoundEx(topLeftM.y,8)+',"xmax":'+RoundEx(bottomrightM.x,8)+',"ymax":'+RoundEx(bottomrightM.y,8)+',"spatialReference":{"wkid":102113}}&bboxSR=102113&imageSR=102113&size=256,256&f=image';

  14. end.