GMLib Простой пример маршрута

Question

Кто -то может дать мне простой пример, как я могу реализовать следующую ситуацию, используя GMLib: у меня есть некоторый адрес (улица, номер, город), и я хотел бы составить маршрут, используя карты Google, соединяющие их все. Я использую Delphi XE2. Спасибо большое!

Answer 1

Вам нужен TWebBrowser, TGMMap и TGMDirection и соедините компоненты так:

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

Активный TGMMap (Active:= true) и на событие AfterPageLoaded поместите этот код:

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. В этом массиве есть элементы 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

С уважением