Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary / Native Maps 100% Delphi 0% WebBrowser 0% Javascript

Routes

Clefs pour les API

Par défaut TECNativeMap utilise les services d'OpenStreetMap.

Si vous souhaitez utiliser MapQuest vous devez obtenir une clef auprès de MapQuest

Faites de même pour utiliser les services de MapZen et MapBox.

Mode hors-ligne

Si vous indiquez un répertoire dans la propriété LocalCache, toutes les données des routes seront mise en cache et pourront être réutilisées en mode hors-ligne.


TECRouting

Cette classe gère les routes ainsi que la navigation tour par tour.

procedure Request(const StartAdress, EndAdress: string;const params: string = '';const futureRoute:TECShapeLine=nil); overload;

procedure Request(const dLatLngs: array of double;const params: string = '';const FutureRoute:TECShapeLine); overload;

Calculer une route entre des adresses ou des points
map.Routing.routeType := rtCar;
// get data road between Tarbes and Paris
map.Routing.Request('Tarbes','Paris');
// get data road between Tarbes and Lourdes via Aureilhan
map.Routing.Request('Tarbes','Aureilhan|Lourdes');
// you can also pass a array of coordinate pairs
map.Routing.Request([43.232858,0.0781021,43.2426749,0.0965226]);
Params vous permet de passer des paramètres supplémentaires au moteur de routage

Attention pour OpenStreetMap et OSRM vous devez vous assurez de passer des paramètres valides, voir la documentation (identique pour les deux car le moteur est le même)

35
FutureRoute est une ligne vide qui sera initialisée avec les données retournées par le moteur de routage, cela vous permet d'attacher des paramètres qui pourront vous servir lorsque la route sera finalisée dans OnAddRoute;

property routeType: TMQRouteType

Type de route ( rtCar,rtFastest, rtShortest , rtPedestrian, rtBicycle )

property OptimizeRoute : boolean

Optimisation du calcul, seul les moteurs de MapBox et MapQuest supportent cette fonctionnalité

property GroupName : string

Nom du groupe auquel appartiendra la nouvelle route (TECShapeLine), par défaut vide

function FutureRoute:TECShapeLine;

retourne une ligne vide que vous pouvez passer à Request
(*
We will directly pass a line to the routing engine
so that we can attach parameters to it
that will be used when the route is calculated,
here we store the speed of our mobile according to the type of route desired
*
)

RouteLine := map.routing.futureRoute; // return a empty line

if rbWalking.ischecked then
begin
map.Routing.RouteType := rtPedestrian ;
RouteLine.propertyValue['speed']:='6';
end
else if rbBicycling.ischecked then
begin
map.Routing.RouteType := rtBicycle ;
RouteLine.propertyValue['speed']:='20';
end
else
begin
map.Routing.RouteType := rtCar;
RouteLine.propertyValue['speed']:='50';
end;

// then empty string is for optionnal params, here none
map.Routing.Request(RouteStart.Text, RouteEnd.Text,'',RouteLine);

property Color : TColor

Couleur de la route

property Weight: integer

Épaisseur de la route

property StartMarkerFilename: string

Image utilisée pour marquer le départ, par défaut

property EndMarkerFilename: string

Image utilisée pour marquer l'arrivée, par défaut

property RouteDrawingTime: integer

Temps (en milliseconde) pour afficher la route, permet de réaliser une animation pour un affichage progressif.
Par défaut 0, la route s'affiche en une seule fois.

property EditRoute: TECShapeLine

Permet de modifier la route avec la souris

property EditOnClick : boolean

Par défaut un clic sur une route la fait basculer en mode édition, il suffit de cliquer sur les points A ou B pour quitter ce mode

Moteur de routage

procedure Engine(value:TRoutingEngine;const ApiKey:string='');

Permet de choisir un moteur de routage, au choix, OpenStreetMap, MapQuest (seul moteur disponible avant), MapZen, OSRM ou MapBox

map.routing.Engine(reOpenStreetMap);
map.routing.Engine(reMapquest,'your_key');
map.routing.Engine(reMapZen,'valhalla-your_key');
map.routing.Engine(reOSRM);
map.routing.Engine(reMapBox,'your_token');

Utilisez EngineValidUrl pour modifier l'url avant quelle ne soit envoyée au moteur

procedure doUrl(sender:TECThreadDataRoute);
begin
// Here you can change the url
// ! your are not in main thread
sender.Url := ...;
end;

procedure TFDemoNativeRoute.FormCreate(Sender: TObject);
begin
// setup routing
map.routing.Engine(reOSRM);
// intercept url before engine
map.Routing.EngineValidUrl := doUrl;

end;

Définir son propre moteur

Utilisez EngineUrl, EngineExcute pour utiliser votre propre moteur.

property EngineUrl : TECThreadRoutingUrl

property EngineExecute : TECThreadRoutingExecute

procedure TFForm.FormCreate(Sender: TObject);
begin
map.Routing.Engine(reCustom);
map.Routing.EngineName := yourRouting_Name;
map.Routing.EngineUrl := YourRoutingUrl;
map.Routing.EngineExecute := YourRoutingExecute;
end;

// build url here
procedure YourRoutingUrl(sender:TECThreadDataRoute);
begin
// sender:TECThreadDataRoute content all necessary info

sender.url := ...
end;

// build route here
procedure YourRoutingExecute(sender:TECThreadDataRoute; var valid:boolean);
begin
// sender.RequestResult content data
end;
// see source of engine supported in uecNativeMapShape.pas



EngineUrl et EngineExecute sont exécutés dans un autre thread !

97

property EngineName : string

Donne un nom au moteur, utilisé pour le stockage local

property EngineKey : string

Clef pour utiliser le moteur, vous devez obtenir les votres auprès de MapQuest, MapZen ou MapBox

property TurnByTurn: TECTurnByTurn

Gestion de la navigation tour par tour

4 événements sont disponibles

property OnAddRoute : TOnAddRoute
Déclenché lorsque la route a été crée
property OnChangeRoute : TOnChangeRoute
Déclenché lorsque la route a été modifiée
property OnErrorRoute : TOnErrorRoute
Déclenché si la route n'a pas été créée
property OnDrawRoute : TOnDrawRoute
Déclenché lorsque la route a été affichée intégralement (utile si RouteDrawingTime > 0)
map.Routing.OnAddRoute := doOnAddRoute;
map.routing.OnErrorRoute := doOnErrorRoute ;
map.Routing.OnChangeRoute:= doOnChangeRoute;

procedure TFDemoNativeRoute.doOnAddRoute(sender: TECShapeLine;const params:string);
begin
// sender is the route (TECShapeLine)
// params this is the URL sent to the routing engine
end;

procedure TFDemoNativeRoute.doOnErrorRoute(sender: TObject;const params:string);
begin
// sender is a TECThreadDataRoute
ShowMessage('Route not found !');
end;

procedure TFDemoNativeRoute.doOnChangeRoute(sender: TECShapeLine;const params:string);
begin
if not assigned(sender) then exit;

showMessage ( doubleToStrDigit(sender.Distance, 2) + 'km - ' +
doubleToStrDigit(sender.Duration / 3600, 2)+'h' ) ;
end;


TECTurnByTurn

property line: TECShapeLine

Route à suivre

function Position(const Lat, Lng: double):boolean

Indiquez votre position GPS

property AlertDistance: integer

Par défaut 300 mètres

property ExecutionDistance: integer

Par défaut 100 mètres

property ErrorDistance: integer

Par défaut 30 mètres

property NextInstruction:string

Prochaine instruction à suivre

Disponible dans l'événement OnInstruction

98

property NextManeuver: string ;

Liste des manoeuvres (sous la forme d'une chaine json contenant divers paramètres en fonction du moteur utilisé)

Disponible dans l'événement OnInstruction

99

property NextInstructionInKm: double ;

Distance en KM pour la prochaine instruction

Disponible dans l'événement OnInstruction

100

property NextInstructionPosition: TLatLng ;

Position géographique de la prochaine instruction

Disponible dans l'événement OnInstruction

101

événements disponibles

property OnAlert: TOnTurnByTurnAlert

Déclenché lorsque vous arrivez à moins de AlertDistance mètres de la cible

property OnInstruction: TOnTurnByTurnInstruction

Déclenché lorsque vous arrivez à moins de ExecutionDistance mètres de la cible

property OnArrival: TNotifyEvent

property OnError: TOnTurnByTurnError

property OnAfterInstruction: TOnTurnByTurnInstruction

property OnConnectRoute: TNotifyEvent

Déclenché par la connection d'une route

property OnDeconnectRoute: TNotifyEvent

Déclenché par la déconnection d'une route
map.Routing.TurnByTurn.OnInstruction := doOnTurnByTurnInstruction;
map.Routing.TurnByTurn.OnAfterInstruction := doOnTurnByTurnInstruction;
map.Routing.TurnByTurn.OnAlert := doOnTurnByTurnAlert;
map.Routing.TurnByTurn.OnArrival := doOnTurnByTurnArrival;
map.Routing.TurnByTurn.OnError := doOnTurnByTurnError;

procedure TFDemoNativeRoute.doOnTurnByTurnAlert(sender : TECTurnByTurn;const Instruction:string;const Distance:double);
begin
// alert is fired before OnInstruction
end;


procedure TFDemoNativeRoute.doOnTurnByTurnInstruction(sender : TECTurnByTurn;const Instruction:string;const Distance:double);
begin
// execute instruction in Distance (km)
end;

Fig. 137 DemoNativeRoute

La demo DemoNativeRoute a été réécrite pour utiliser ces nouvelles fonctionnalité.

33

Anciennes méthodes, privilégiez les nouvelles fonctionnalités disponible depuis la version 2.7

37

Recherche de routes

Vous avez à votre disposition 4 routines (2 synchrones et 2 asynchrones) pour calculer un itinéraire.

function GetRoutePathByAddress(const StartAdress, EndAdress: string;const routeType:TMQRouteType = rtFastest const params: string = '' ): TECRoutePath

function GetRoutePathFrom(const dLatLngs: array of double;const routeType:TMQRouteType = rtFastest ;const params: string = '' ): TECRoutePath

procedure GetASyncRoutePathByAddress(const StartAdress, EndAdress: string;const routeType:TMQRouteType = rtFastest ;const params: string = '' )

procedure GetASyncRoutePathFrom(const dLatLngs: array of double;const routeType:TMQRouteType = rtFastest ;const params: string = '' )


Ces fonctions permettent d'obtenir les informations d'une route sans effectuer de tracé, les procedures asynchrones vont s'exécuter en arrière-plan et déclencher l'évenement OnRoutePath lorsque les données sont disponibles.

Voir open.mapquestapi.com/directions/ pour le paramètre Params

102

Si vous ne libérez pas le TECMapRoutePath obtenu, il le sera automatiquement lors de la destruction de TECNativeMap

103

Afficher la route

Vous pouvez créer une TECShapeLine à partir d'un TECMapRoutePath avec la fonction AddRoute

// Delphi map component ECMap

var line : TECShapeLine;
...
// ge data road between Tarbes and Lourdes via Aureilhan
routePath := map.GetRoutePathByAddress('Tarbes','Aureilhan|Lourdes');
// draw polyline from routePath
if routePath<>nil then
begin

Line := map.AddRoute(routePath);
// see the entire route
map.fitBounds(line.NorthEastLatitude,line.NorthEastLongitude,line.SouthWestLatitude,line.SouthWestLongitude);

routePath.free;
end;

Vous pouvez aussi directement modifier une TECShapeLine avec la procedure setRoutePath

// Delphi map component ECMap

var line : TECShapeLine;
...
// ge data road between Tarbes and Lourdes via Aureilhan
routePath := map.GetRoutePathByAddress('Tarbes','Aureilhan|Lourdes');
// draw polyline from routePath
if routePath<>nil then
begin

// change line 0 with new data
if map.shapes.lines.count>0 then
map.shapes.lines[0].setRoutePath(routePath);
// see the entire route
map.fitBounds(line.NorthEastLatitude,line.NorthEastLongitude,line.SouthWestLatitude,line.SouthWestLongitude);

routePath.free;
end;

Modifier la route à la souris

Pour cela vous allez devoir rajouter l'unité uecEditNativeLine ( FMX.uecEditNativeLine sous FireMonkey)

Vous pourrez alors utiliser la classe TecNativeLineToRoute pour pouvoir modifier dynamiquement le trajet.

property Line : TECShapeLine
TECShapeLine à modifier
property RouteType : TMQRouteType
type de route ( rtFastest, rtShortest, rtPedestrian, rtBicycle )
property Modified : boolean
Indique si la route à été modifié
property OnClick : TOnShapeMousePoint
Permet de réagir au clic sur la route
property OnMouseOver : TOnShapeMousePoint
Permet de réagir au survol de la route
property OnChange : TNotifyEvent
Évenement déclenché a chaque modification de la route

Exemple d'utilisation

// Delphi map component ECMap

var ecNativeLineToRoute : TecNativeLineToRoute;
...
ecNativeLineToRoute := TecNativeLineToRoute.create;

// edit route
ecNativeLineToRoute.Line := map.shapes.Lines[0];

// end edit route
ecNativeLineToRoute.Line := nil;
...
ecNativeLineToRoute.free;

DemoNativeRoute

Une démonstration est disponible pour bien comprendre la gestion des routes.

Fig. 138 DemoNativeRoute

Aller à la page
Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary© 2016 ESCOT-SEP Christophe - Réalisé avec Help&Web - RSS - RSS - Google+