delphi根据经纬度画地图

Posted 2023-04-28

delphi根据经纬度画地图，经纬度为文本文件
如厦门区域经纬度.txt
厦门 32.2325632 69.6589632
厦门 32.3698541 69.3532486
…………………………
delphi刚入门，请提供详细的控件以及代码
谢谢
谢谢，这方面的书能给我提供点吗？书名什么的
我在书店网上找不到

参考技术A 估计这个有现成控件的可能性不大。还是得自己写代码。
程序其实不难。就是把经纬度转成坐标，在图上标出来即可。
但是从经纬度往坐标的转换有各种投影方法，这就不是编程的问题了，需要对地图绘制有相当的了解。建议你先找一点这种书来看看，再来做程序的实现。

百度地图根据经纬度

var map = new BMap.Map("map");
var point = new BMap.Point(116.404, 39.915);
map.centerAndZoom(point, 15);
map.enableScrollWheelZoom(); // 开启鼠标滚轮缩放
map.addControl(new BMap.ScaleControl()); // 添加比例尺控件

var pointStr = "104.038748,30.641821,104.047789,30.648128,104.063959,30.655336,104.067264,30.660307,104.067264,30.664438,104.064008,30.665316".split(",");
var pointArr = [];

for (var k = 0; k < pointStr.length; k += 2)
pointArr.push(
lng: pointStr[k],
lat: pointStr[k + 1]
);


// 生成坐标点
var trackPoint = [];
for (var i = 0, j = pointArr.length; i < j; i++)
trackPoint.push(new BMap.Point(pointArr[i].lng, pointArr[i].lat));

map.centerAndZoom(trackPoint[0], 15);

// 画线
var polyline = new BMap.Polyline(trackPoint,
strokeColor: "#1869AD",
strokeWeight: 3,
strokeOpacity: 1
);
map.addOverlay(polyline);

// 配置图片
var size = new BMap.Size(26, 26);
var offset = new BMap.Size(0, -13);
var imageSize = new BMap.Size(26, 26);
var icon = new BMap.Icon("./express-position.png", size,
imageSize: imageSize
);