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