0

使用 Delphi XE3 和 GMLib 1.2.4。应该是基本问题。如何在两个给定点之间绘制基本的非链接线。我目前在 WebBrowser 上显示 GMMap 并具有 GMPolyline 组件。使用两个经纬度对的已知值。只需要帮助在两者之间划线。使用它来绘制方位线。这是我到目前为止所拥有的：

procedure TMainGMForm.ButtonPlotLineClick(Sender: TObject);
var
  CurLat,CurLon,DisLat,DisLon: Double;
  P1,P2: TLatLng;
begin
  CurLat := StrToFloat(EditLat.Text);
  CurLon := StrToFloat(EditLon.Text);
  DisLat := StrToFloat(EditLat2.Text);
  DisLon := StrToFloat(EditLon2.Text);
  P1 := TLatLng.Create(CurLat,CurLon);
  Inc(PointIndex);
  P2 := TLatLng.Create(DisLat,DisLon);
  Inc(PointIndex);
  //what goes here to plot a line between these two points? 
  // 
  FreeAndNil(P1);
  FreeAndNil(P2);
end;
4

1 回答 1

1

您需要在 TGMPolyline 中添加一条 TPolyline，如下所示

var
  Poly: TPolyline;
begin
  Poly := TPolyline(GMPolyline1.Add);

并将这两个点添加到 LinePoints 数组中

  Poly.AddLinePoint(CurLat, CurLon);
  Poly.AddLinePoint(DisLat, Double);
于 2014-04-19T16:35:45.030 回答