Delphi - GoogleMap Retornar coordenadas pelo endereço
15/07/2021
0
Olá, bom dia !
Consegui essa rotina na internet que retorna o endereço através da latitude e longitude, entro com a latitude e longitude e me retona o endereço, pelos testes que eu fiz funciona direitinho
function TForm8.RetornaEndereco2(Latitude, Longitude: String): String;
var
s: string;
IndIni: integer;
IndFim: integer;
begin
//try //http://maps.googleapis.com/maps/api/geocode/xml?latlng='' +
s := IdHTTP1.Get(''https://maps.googleapis.com/maps/api/geocode/xml?key=AIzaS...&address=''+
Latitude +
'','' +
Longitude );
IndIni := Pos(''<formatted_address>'', s) + 19;
IndFim := Pos(''</formatted_address>'', s);
Result := Copy(s, IndIni, IndFim - IndIni);
//except
// Result := ''NÃO FOI POSSÍVEL RETORNAR UM ENDEREÇO VÁLIDO.'';
//end;
end;
O que eu preciso é adaptar essa rotina, ou uma nova rotina pra que me retorne a latitude e longitude pelo endereço, entro com o endereço e me retorna a latitude e longitude. Sou meio leigo, não consegui fazer essa adaptação na rotina.
Se alguém puder me ajudar, agradeço
Consegui essa rotina na internet que retorna o endereço através da latitude e longitude, entro com a latitude e longitude e me retona o endereço, pelos testes que eu fiz funciona direitinho
function TForm8.RetornaEndereco2(Latitude, Longitude: String): String;
var
s: string;
IndIni: integer;
IndFim: integer;
begin
//try //http://maps.googleapis.com/maps/api/geocode/xml?latlng='' +
s := IdHTTP1.Get(''https://maps.googleapis.com/maps/api/geocode/xml?key=AIzaS...&address=''+
Latitude +
'','' +
Longitude );
IndIni := Pos(''<formatted_address>'', s) + 19;
IndFim := Pos(''</formatted_address>'', s);
Result := Copy(s, IndIni, IndFim - IndIni);
//except
// Result := ''NÃO FOI POSSÍVEL RETORNAR UM ENDEREÇO VÁLIDO.'';
//end;
end;
O que eu preciso é adaptar essa rotina, ou uma nova rotina pra que me retorne a latitude e longitude pelo endereço, entro com o endereço e me retorna a latitude e longitude. Sou meio leigo, não consegui fazer essa adaptação na rotina.
Se alguém puder me ajudar, agradeço
Gregue Petrus
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)