Composant Delphi Google Maps / CloudMade / OpenMapQuest / LeafletBB

DistanceMatrix

  • ECMap

La propriété DistanceMatrix de type TECDistanceMatrix vous permet d'obtenir les distances et temps de voyages pour chaque couple d'adresses départ/arrivée.

Non disponible sous CloudMade

26
Fig. 45 DemoMatrix démonstration de l'utilisation de DistanceMatrix
Fig. 45 DemoMatrix démonstration de l'utilisation de DistanceMatrix

Le programme de démonstration DemoMatrix est une adaptation en Delphi de l' exemple javascript de google

L'exemple de google ne fonctionne pas sous IE car il y a une virgule en fin des arrays origins et destinations qui fait planter le moteur javascript d'IE

27

TECDistanceMatrix

Elle donne accés aux propriétés et méthodes suivantes


function Count:integer;
Retourne le nombre de couples Départ/Arrivée
procedure Update;
Lancer le calcul des distances et temps pour chaque couple.
l'évènement OnDistanceMatrix est déclenché lorsque le calcul est terminé
Property Origins:TStringList;
Liste des points de départ
Property Destinations:TStringList;
Liste des points d'arrivée
property TravelMode : TDirectionsTravelMode;
Choix du type de route tmDriving ou tmWalking
property UnitSystem : TUnitSystem;
Choix du système d'unité, usMetric ( kilometre ) ou usImperial ( miles )
property AvoidHighWays : boolean;
Éviter ou non les autoroutes
property AvoidTolls : boolean;
Éviter ou non les péages
property Cells[indexOrigine,indexDestination:integer]:TECDistanceMatrixItem; default;
Tableau permettant l'accès aux données, c'est la propriété par défaut donc vous pouvez y accéder directement par map.DistanceMatrix[indexOrigine,indexDestination] au lieu de map.DistanceMatrix.cells[indexOrigine,indexDestination]

indexDestination est l'index du point d'arrivé dans la liste Destinations

indexOrigine est l'index du point de départ dans la liste Origins

Retourne nil si les indices sont en dehors des bornes

18

// map component ECMap

map.DistanceMatrix.origins.clear;
map.DistanceMatrix.destinations.clear;
// origins
map.DistanceMatrix.origins.add('Tarbes');
map.origins.add('Lourdes');
// destinations
map.DistanceMatrix.destination.add('Aureilhan');
map.DistanceMatrix.destination.add('Séméac');
// calcul - fire OnDistanceMatrice
Map.DistanceMatrix.Update;
...

// event fired when matrix is ok, call by map.DistanceMatrix.Update
procedure TFormDemoMatrix.mapDistanceMatrix(Sender: TObject);
begin
if map.DistanceMatrix.count=0 then exit;
// Tarbes/Aureilhan
map.DistanceMatrix[0,0].distanceText;
// Tarbes/Séméac
map.DistanceMatrix[0,1].distanceText;
// Lourdes/Aureilan
map.DistanceMatrix[1,0].distanceText;
// Lourdes/Séméac
map.DistanceMatrix[1,1].distanceText;

end;

property Item[index:integer]:TECDistanceMatrixItem;

Item vous permet d'obtenir vos données de manière séquentielle, utilisez Count pour connaitre le nombre total de couples.

Ils sont rangés dans l'ordre suivant

(Départ1-Arrivée1), (Départ1-Arrivée2),...,(Départ2-Arrivée1),(Départ2-Arrivée2),...

Retourne nil si l'indice est en dehors des bornes

19

TECDistanceMatrixItem

Cette classe représente un couple Départ/Arrivée, elle vous donne accès aux propriétés

property Origin : string
Adresse de départ
property Destination : string
Adresse d'arrivée
property Distance : integer
Distance en metres
property Duration : integer
Durée en secondes
property DistanceText : string
Distance sous la forme d'un texte qui tient compte de l'unité sysème choisie (tmMetric ou tmImperial)
property DurationText : string
Durée sous forme texte
property Status : string
Indique une éventuelle erreur, OK si pas d'erreur et si un résultat a été trouvé

OnDistanceMatrix

Évènement déclenché après l'appel à DistanceMatrix.Update lorsque les résultats sont disponibles

Aller à la page
© 2012 ESCOT-SEP Christophe - Réalisé avec Help&Web
Site Meter