您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

GetUrlScript.txt 477 B

54 年前
54 年前
54 年前
54 年前
54 年前
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.