- Код: Выделить всё
http://map.nca.by/proxy.php?http://ArcGISServer:8399/arcgis/rest/services/ATEREESTR/MapServer/export?dpi=96&transparent=true&format=png8&bbox=2665676.7084694924%2C6690750.276882387%2C3563353.16865036%2C7699719.050246441&bboxSR=102100&imageSR=102100&size=734%2C825&f=image
map server. координаты не абсолютные, возможно прямоугольные.
- Код: Выделить всё
var i:integer;
xy: TPoint;
topLeftM,bottomrightM,LL :TDoublePoint;
begin
xy.x:=GetX;
xy.y:=GetY;
LL:=Converter.Pos2LonLat(XY,GetZ-1);
topLeftM:=Converter.LonLat2Metr(LL);
xy.x:=GetX+1;
xy.y:=GetY+1;
LL:=Converter.Pos2LonLat(XY,GetZ-1);
bottomrightM:=Converter.LonLat2Metr(LL);
ResultURL:=GetURLBase+
'BBOX='+RoundEx(topLeftM.x,10)+'%2С'+RoundEx(bottomrightM.y,10)+'%2С'+RoundEx(bottomrightM.x,10)+'%2С'+RoundEx(topLeftM.y,10) +'&bboxSR=102100&imageSR=102100&size=256%2C256&f=image'