Delphi - GoogleMap Retornar coordenadas pelo endereço

15/07/2021

4

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
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar