在兩個已知點之間畫線

Question

使用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; 

Answer 1

你需要一個TPolyline添加到您的TGMPolyline，像這樣

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

和兩個點添加到LinePoints陣列

Poly.AddLinePoint(CurLat, CurLon); 
    Poly.AddLinePoint(DisLat, Double);