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.

преди 4 години
преди 4 години
преди 4 години
преди 4 години
преди 4 години
1234567891011121314
  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.