GMLib简单方向样本

GMLib Simple directions sample


GMLib简单方向样本 已获得1个解决方法 2020-08-18 18:08:28 delphi

有人可以给我一个简单的示例,我如何使用GMLib实现以下情况: 我有一些地址 (街道,号码,城市),我想使用谷歌地图连接所有的路线.我正在使用Delphi xe2.非常感谢!


GMLib简单方向样本 方法1

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

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

Active TGMMap (Active := true),并在pageloaded事件后放置以下代码:

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

现在,您只需要配置您的TGMDirection与源地址和目标地址和调用Execute方法:

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

你需要知道所有调用Execute方法创建一个新项目进入DirectionsResult数组.此数组具有计数项 (基于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

问候


.htaccess .net .net-core 2d 3d 3d-printing ab-initio abp abstract-syntax-tree actions-on-google actionscript-3 active-directory activemq activemq-artemis acumatica adobe-xd aframe ag-grid agora.io air airflow ajax akka alert alexa algorithm alignment allure amadeus amazon-cloudformation