25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

GetUrlScript.txt 477 B

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.