Discussion :

[jojo86]

Bonjour,

Je cherche un moyen pour calculer le nombre de kilomètres entre deux adresses.
Savez-vous s'il existe des API pour lazarus avec une documentation claire ?

Sinon, avez-vous une solution autre à me proposer ?

Merci d'avance,

[BeanzMaster]

Bonjour

Du genre nombre de kilomètres entre le 2 rue du tondu et le 4 avenue du Coupetifs ? entre 2 coordonnées GPS ?

Soit plus précis. Merci

[jojo86]

Bonjour

Du genre nombre de kilomètres entre le 2 rue du tondu et le 4 avenue du Coupetifs ? entre 2 coordonnées GPS ?

Soit plus précis. Merci

Quand tu demandes l’adresse a quelqu’un pour se rendre chez lui tu as l’habitude de demander des coordonnées gps?

Il s’agit de l’adresse postal, en passant par la route. Entre le 2 rue des poulettes 86270 City et 14 route des moutons à cinq pattes 79210 City2.

Merci de ton aide.

[BeanzMaster]

C'est bien ce que je disais il te faut donc les coordonnées GPS Longitude/Latitude

Pour les récupérer il existe les Apis Google présente dans FPC Cherche sur le forum Anglais et si je me souviens bien il existe un composant TMapViewer qui utilise google map. et n'oublis pas Google est ton ami

Puis pour le calcul voir cette discussion

A+

[jojo86]

J'ai déjà lu tout ça et épluché les forums anglophones depuis des semaines.
Mais ces calculs ne vont pas me calculer la distance en passant par les routes. Ça va me calculer une distance à vol d'oiseau et c'est trop approximatif...

[tourlourou]

Il s’agit de l’adresse postale, en passant par la route

Ce calcul s'adresse donc à des véhicules, ou également à des piétons ou cyclistes, qui peuvent emprunter des voies inaccessibles aux véhicules à moteur ?

[EDIT] Une piste ici avec openrouteservice

[jojo86]

Ce calcul s'adresse donc à des véhicules, ou également à des piétons ou cyclistes, qui peuvent emprunter des voies inaccessibles aux véhicules à moteur ?

[EDIT] Une piste ici avec openrouteservice

Ce calcul s’adresse aux voitures uniquement.
Merci de ton aide!

[jojo86]

C'est bien ce que je disais il te faut donc les coordonnées GPS Longitude/Latitude

Pour les récupérer il existe les Apis Google présente dans FPC Cherche sur le forum Anglais et si je me souviens bien il existe un composant TMapViewer qui utilise google map. et n'oublis pas Google est ton ami

Puis pour le calcul voir cette discussion

A+

TMapViewer ne permet pas de retrouver une adresse postale. On peut retrouver une ville, mais pas une rue avec numéro.

[jojo86]

J'ai réussi avec les API google.
Marche à suivre :
1 : S'inscrire pour obtenir sa clé API :
https://developers.google.com/maps/d...ng/get-api-key
Choisir l'option "Routes".
INFORMATION : Nous devrez renseigner un moyen de paiement. J'ai parcouru la chartre google, j'ai contacté le service commercial, et voila ce qui en ressort : Vous avez une valeur de 200$ par mois offert suivant ce calcul $5 * (40,000 elements / 1000 elements) = $200
En gros, avec la politique actuelle de google, vous avez droit tous les mois à 40 000 requêtes mensuelles gratuites sur DistanceMatrix.

L'utilisation est assez simple.
Le principe : Vous lancer une URL avec vos données d'itinéraire, le site vous retourne les données sous forme de code structuré. il ne reste plus qu'à lire les données que l'on souhaite.

Par default, DistanceMatrix calcul le trajet voiture.
Plus d'info concernant l'utilisation ici : https://developers.google.com/maps/d...distancematrix

2 : Lancer l'URL depuis lazarus et exploiter l'information :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses fphttpclient,fpjson,jsonparser;
procedure TForm1.FormCreate(Sender: TObject);
var
  Resultat : TJSONObject;
  AdresseDepart : String;
  AdresseDestination : String;
begin
  AdresseDepart:='26+rue+de+la+somme+32000+auch';
  AdresseDestination:='parc+du+futuroscope+86360+Chasseneuil-du-Poitou';
 
  with TJSONObject(GetJSON(TFPHTTPClient.SimpleGet('https://maps.googleapis.com/maps/api/distancematrix/json?units=metric&origins='+AdresseDepart+'&destinations='+AdresseDestination+'&key=VOTRE_Cle_Google_API'))) do
    try
      Resultat := TJSONObject(FindPath('rows[0].elements[0].distance'));
      showmessage('Le trajet fera une distance de : ' + Resultat['text'].AsString);
    finally
      Free;
    end;
end;