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

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

Aceitar