dmvlpol
/
maps
geforked van sasgis/maps
1
0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
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.
253 Commits
1 Branch
6.1 MiB
 
Tree: 6e73792f6a
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '6e73792f6a'
${ noResults }
maps/_Rosreestr/rosreestr_cadastr.zmp/GetUrlScript.txt

14 regels
529 B
Ruw Blame Geschiedenis 

  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)+'&bboxSR=102100&imageSR=102100&size=256,256&f=image';

  14. end.