[Delphi 10 Seattle] Localiser un endroit avec une adresse civique

**mario9** · 19/01/2016, 19h10

Bonjour

Je cherche la méthode pour localiser un endroit à partir d'une adresse civique.

J'ai fait l'exemple d'Embarcadero
http://docwiki.embarcadero.com/RADStudio/XE8/fr/Tutoriel_mobile_:_Utilisation_de_d%C3%A9tecteurs_d'emplacement_(iOS_et_Android)

Localiser un endroit par latitude et longitude ça va mais ça serait plus facile d'entrer l'adresse civique pour la localiser sur la carte. Avec Geocoder on peut avoir l'adresse mais je voudrais entrer l'adresse pour localiser l'endroit sur mon téléphone Android

Comme https://maps.google.com/maps?q=(Lati...ongitude-value remplacer (Latitude-value),(Longitude-value) par l'adresse civique, ville etc.

Merci de votre aide.

Mario

**Thierry Laborde** · 19/01/2016, 21h40

Bonsoir,

Il faut utiliser le service Geocoding de google maps :

https://developers.google.com/maps/d...eocoding/intro

**SergioMaster** · 20/01/2016, 07h52

Bonjour, sous windows je fait de la manière suivante

1- une constante

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
const
GoogleMapsPage: String =
'<html> '+
'<head> '+
'<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> '+
'<script type="text/javascript" src="http://maps.google.com/maps/api/js?v=3&sensor=true"></script> '+
'<script type="text/javascript"> '+
'  var map;'+
'  function initialize() { '+
'    geocoder = new google.maps.Geocoder();'+
'    geocoder.geocode( { ''address'': [Adresse]}, function(results, status) {'+
'        map.setCenter(results[0].geometry.location);'+
'        var marker = new google.maps.Marker({map: map,position: results[0].geometry.location});'+
'        });'+
 
'    var latlng = new google.maps.LatLng([Lat],[Lng]); '+
'    var myOptions = { '+
'      zoom: 12, '+
'      center: latlng, '+
'      mapTypeId: google.maps.MapTypeId.[Type] '+
'    }; '+
'    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions); '+
'    var marker = new google.maps.Marker({'+
'      position: latlng, '+
'      title: "[Title]", '+
'      map: map '+
'  });'+
'  } '+
''+'</script> '+
'</head> '+
'<body onload="initialize()"> '+
'  <div id="map_canvas" style="width:100%; height:100%"></div> '+
'</body>'+
'</html>';

à remarquer, la fonction initialize() qui va faire appel au service geocoding

2- Remplacement des tags (variables entre []) et chargement de la page
pour les curieux ma localisation et celle de l'entreprise

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
 
procedure TFormCarte.Button1Click(Sender: TObject);
var MapStr : String;
    function ReplaceTag(const PageStr,Tag,NewValue:string):String;
    begin
       Result:=StringReplace(PageStr,Tag,NewValue,[rfReplaceAll]);
    end;
begin
  MapStr:=GoogleMapsPage;
  MapStr:=ReplaceTag(MapStr,'[Adresse]',QuotedStr('14 rue du moulinier 44115 HAUTE GOULAINE'));
  MapStr:=ReplaceTag(MapStr,'[Lat]','45.8518378');
  MapStr:=ReplaceTag(MapStr,'[Lng]','1.1587193');
  MapStr:=ReplaceTag(MapStr,'[Title]','Danse Azur SARL');
  MapStr:=ReplaceTag(MapStr,'[Type]','HYBRID');
  WebBrowser1.LoadFromStrings(MapStr,'');
end;

pourquoi ce type de code ? parce que je peux également utiliser Bings et OpenStreet de la même manière , juste en changeant MapStr
la seule chose que je ne sais pas faire c'est, sous windows 10, récupérer la localisation (qui pourtant semble être enregistrée quelque part au niveau des paramètres)

**mario9** · 20/01/2016, 18h24

Bonjour

Merci a vous M.Thierry Laborde et SergioMaster

J'ai bien lu https://developers.google.com/maps/d...eocoding/intro ca ma permis de bien comprendre et utiliser l'exemple de SergiMaster qui fonctionne très bien c'est ce que je cherchais pour afficher la carte de localisation.

Juste une question supplémentaire le pointeur de l'adresse disparait quand je fais une copie écran sur l'image copié.

Code :

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

1
2
3
4
 
               Image1.Bitmap:=webBrowser1.MakeScreenshot;
               WebBrowser1.Visible:=false;
               image1.Visible:=true;

Merci beaucoup

Mario

[Delphi 10 Seattle] Localiser un endroit avec une adresse civique

Composants FMX Delphi

Discussions similaires

Partager

Partager