Hola Amigos
Les cuento que tengo en un programa un procedimiento desarrollado por el amigo Neftali , que ingresando el domicilio ciudad y pais de un lugar te averigua la longitud y latitud, para despues entrar al google maps y marcar la ubicación. Esto anduvo perfecto hasta que hace una semana no anda mas y da el siguiente error : http/1.1 403 FORBIDDEN.
A continuacion les pego el codigo
Código Delphi
[-]Procedure TF_mapa.btn1Click(Sender: TObject);
const
STR_WEB = 'http://maps.google.com/maps/geo?q=';
STR_OUT = '&output=csv'; STR_KEY = '&key=ABQIAAAAFVb255bTSpn4DC0nkcIz3hTgmueMIh62ahlPS2dC-DIXqzciAxRZItsH3Fy4UcBpz0Q4D8XHzbxt3A';
var
Stream: TStringStream;
Str, res:string;
begin
Stream := TStringStream.Create('');
try
Str := STR_WEB + edt1.text + STR_OUT + STR_KEY;
idhttp2.Get(Str, Stream); edt2.Text := Stream.DataString;
Finally
FreeAndNil(Stream);
end;
editlatitude.text:= copy(edt2.text,7,11);
editlongitude.text:= copy(edt2.text,19,11);
End;
A mi parecer como que se vencio la KEY que estoy ingresando, lo consulte a Neftali y me dio una direccion para obtener una nueva Key, al solicitarla me dan una clave que es mas corta y sigue el mismo error. (esta es la nueva que me dio google AIzaSyAyhlyxgsf1hBzRu1j-vWcB0yF9v9QNWEc)
Alguien me podria decir que es lo que estoy haciendo mal, o que tenga una KEY habilitada que me pase.
Saludos y gracias
tulio de Argentina