在这篇博文中,他们清楚地展示了如何在坐标之间画一条线:
procedure TForm2.WebFileUpload1GetFileAsText(Sender: TObject; AFileIndex: Integer; AText: string);
var
ja: TJSArray;
begin
ja := GPXToCoordinates(AText);
WebLeafletMaps1.AddPolyLine(ja, clBlue, 3);
end;
因此,您可以使用
AddPolyLine
函数绘制线条,但我在传递给 AddPolyLine
函数的内容方面遇到了一些麻烦。他们使用 GPXToCoordinates
函数将 GPX 文件转换为 TJSArray
,但这个数组应该是什么样子?
如何为
AddPolyLine
函数使用自己的自定义坐标?我不想使用 GPX 文件。
这是您无需使用 GPX 文件即可在地图上的两点之间绘制直线的方法:
procedure TForm1.WebFormShow(Sender: TObject);
var
MyCoordinates: TJSArray;
begin
MyCoordinates := TJSArray.New;
asm
MyCoordinates = [
[-27.1251322, 23.1663553],
[-28.1244564, 26.1643535]
];
end;
WebLeafletMaps1.AddPolyLine(MyCoordinates, clBlue, 3);
end;