我正在尝试将开放式街道地图的纬度/经度转换为像素位置。我在Java中找到了这个例子。当我将代码转换为Delphi时，X结果是正确的，但Y结果略有不足。
Java代码：
double lon = -89.08805;
double lat = 30.6393;
double zoom = 6; // 6.5156731549786215 would be possible too
double lon_rad = Math.toRadians(lon);
double lat_rad = Math.toRadians(lat);
double n = Math.pow(2.0, zoom);
double tileX = ((lon + 180) / 360) * n;
double tileY = (1 - (Math.log(Math.tan(lat_rad) + 1.0/Math.cos(lat_rad)) / Math.PI)) * n / 2.0;
System.out.println("tileX = "+tileX+" tileY = "+tileY);
德尔福代码：
function LatLngToTilePixels(Lat, Lng: Double; ZoomLevel: Integer): TPointF;
var
lon_rad, lat_rad, n: Double;
TileX, TileY: Double;
begin
lon_rad := DegToRad(Lng);
lat_rad := DegToRad(Lat);
n := Power(2.0, ZoomLevel);
Result.X := ((Lng + 180) / 360) * n;
Result.Y := (1 - (Math.Log10(Math.tan(lat_rad) + 1.0/cos(lat_rad)) / PI)) * n / 2.0;
end;
使用示例中给出的输入（lat = 30.6393，lng = -89.08805，zoom = 6），结果为：
JAVA：
tileX = 16.162124444444444
tileY = 26.273150713795616
德尔福：
tileX = 16.1621244444444
tileY = 29.5128609563099 <---错误的结果
我觉得问题可能出在math.log电话上。JAVA使用日志，但是Delphi使用log10。我已经尝试过log2，但是结果甚至更糟。
您使用不同底数的对数：
Java： base e，即自然对数，请参见Math.log（double）
德尔福：显然以10为底
您可以使用以下公式来计算不支持的底数的对数：
log_a(b) = log_x(b) / log_x(a)
AFAIKLn在delphi中有一个函数，可以计算自然对数，至少在此处列出。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句