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
Gregue Petrus

Gregue Petrus

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar