如何在 TWebLeafletMaps 组件中的两个坐标之间绘制一条线？

Question

在这篇博文中，他们清楚地展示了如何在坐标之间画一条线：

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 文件。

Answer 1

这是您无需使用 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;