delphi - GMLib 简单方向示例

Question

有人可以给我一个简单的示例，我如何使用 GMLib 实现以下情况:我有一些地址(街道、号码、城市)，我想使用连接所有地址的谷歌地图创建一条路线。我使用的是德尔福XE2。非常感谢!

Answer 1

您需要一个 TWebBrowser、一个 TGMMap 和一个 TGMDirection，并连接这些组件:

TGMDirection.Map -> TGMMapTGMMap.WebBrowser -> TWebBrowser

Active TGMMap (Active := true) 并在 AfterPageLoaded 事件上放置以下代码:

procedure TMainFrm.GMMap1AfterPageLoaded(Sender: TObject; First: Boolean);
begin
  if First then GMMap1.DoMap;
end;

现在，您只需使用起始地址和目标地址配置 TGMDirection 并调用执行方法即可:

// minimum config
TGMDirection.DirectionsRequest.Origin.Address := 'Origin address';
TGMDirection.DirectionsRequest.Destination.Address := 'Destination address';
TGMDirection.Execute;

您需要知道所有对 Execute 方法的调用都会在 DirectionsResult 数组中创建一个新项目。该数组有 Count 个项目(从 0 开始)。此外，您还需要知道每个结果都可以返回(如果 Status = dsOK)1 个或多个存储到 Routes 数组中的结果(也基于 0)。

TGMDirection.DirectionsResult -> array with all request
TGMDirection.DirectionsResult[X].Routes -> array with all results of a request if Status = dsOK

问候