|
|
@@ -1,14 +0,0 @@ |
|
|
|
var i:integer;
|
|
|
|
xy:TPoint;
|
|
|
|
topLeftM,bottomrightM,LL:TExtendedPoint;
|
|
|
|
begin
|
|
|
|
xy.x:=GetX*256;
|
|
|
|
xy.y:=GetY*256;
|
|
|
|
LL:=Converter.Pos2LonLat(XY,GetZ+7);
|
|
|
|
topLeftM:=Converter.LonLat2Metr(LL);
|
|
|
|
xy.x:=(GetX+1)*256;
|
|
|
|
xy.y:=(GetY+1)*256;
|
|
|
|
LL:=Converter.Pos2LonLat(XY,GetZ+7);
|
|
|
|
bottomrightM:=Converter.LonLat2Metr(LL);
|
|
|
|
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';
|
|
|
|
end. |