25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

GetUrlScript.txt 477 B

4 yıl önce
4 yıl önce
4 yıl önce
4 yıl önce
4 yıl önce
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.