GMLib简单的方向样本

时间:2013-05-05 22:41:14

标签: delphi delphi-xe2 gmlib

有人可以给我一个简单的示例如何使用GMLib实现以下情况: 我有一些地址(街道,数字,城市)我希望使用连接所有这些的谷歌地图制作路线。 我正在使用Delphi XE2。 非常感谢!

1 个答案:

答案 0 :(得分:3)

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

TGMDirection.Map - > TGMMap TGMMap.WebBrowser - > TWebBrowser

Active TGMMap(Active:= true)和AfterPageLoaded事件放入此代码:

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

现在,您只需要使用Origin和Destination地址配置TGMDirection并调用Execute方法:

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

你需要知道所有对Execute方法的调用都会在DirectionsResult数组中创建一个新的Item。此数组具有计数项(基于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

此致