GMBase es una unit que ya no está en la GMLib. Como te he comentado antes, dame más información sobre el problema que tienes, sino no puedo ayudarte (demo que intentas ejecutar, unit donde te marca el error, ……). En fin, más información que un simple “no me va”
const
CHAR_SPACE = ‘ ‘;
CHAR_PLUS = ‘+’;
STR_WEB = ‘http://maps.google.com/maps/api/geocode/json?address=’;
STR_SENSOR = ‘&sensor=false’;
STR_REGION = ‘®ion=es’;
var
Str: string;
Stream: TStringStream;
begin
Stream := TStringStream.Create(”);
try
// sustituimos blancos por signo +
Str := AnsiReplaceStr(Edit1.Text, CHAR_SPACE, CHAR_PLUS);
// generamos url con parámetros
Str := STR_WEB + Str + STR_SENSOR + STR_REGION;
// hacemos petición a la API de Google
IdHTTP.Get(Str, Stream);
// pasamos de UTF8 a string
Memo1.Lines.Text := UTF8ToString(Stream.DataString); // el error es aqui ya que uso delphi 7
finally
if Assigned(Stream) then FreeAndNil(Stream);
end;
end;
hola buenas tardes, primero que nada una felicitación tienes muy buen contenido el de esta pagina de verdad me ha ayudado.
solo tengo una pregunta ¿y si se quiere buscar por latitud y longitud? he intentado ejecutar el script del maps (MakeMarker) y por alguna razón no pinta el marcador
Ahora me sale un error en
IPersistStreamInit
es porque tengo delphi 7 verdad??’
que hago
mejor me consigo delphi 2010
con que version de delphi estan estos ejemplo?
Gracias
de nuevo
ya solo ayudenme con IPersistStreamInit
que debo de tener para usar esto?
ActiveX en el Uses
dejando los ejemplos
al agregar a un formulario un gmmap en delphi 7 y correr el programa me marca
[Error] File not found: ‘UAboutFrm.dfm’
a que se debe esto?
ya resolvi lo de uaboutfrm
perdon
Encontre que no me instalo algunas dcu como por ejemplo gmbase
en delphi 7
porque puede haber pasado esto?
Gracias
Hola Omar
GMBase es una unit que ya no está en la GMLib. Como te he comentado antes, dame más información sobre el problema que tienes, sino no puedo ayudarte (demo que intentas ejecutar, unit donde te marca el error, ……). En fin, más información que un simple “no me va”
Nos leemos
const
CHAR_SPACE = ‘ ‘;
CHAR_PLUS = ‘+’;
STR_WEB = ‘http://maps.google.com/maps/api/geocode/json?address=’;
STR_SENSOR = ‘&sensor=false’;
STR_REGION = ‘®ion=es’;
var
Str: string;
Stream: TStringStream;
begin
Stream := TStringStream.Create(”);
try
// sustituimos blancos por signo +
Str := AnsiReplaceStr(Edit1.Text, CHAR_SPACE, CHAR_PLUS);
// generamos url con parámetros
Str := STR_WEB + Str + STR_SENSOR + STR_REGION;
// hacemos petición a la API de Google
IdHTTP.Get(Str, Stream);
// pasamos de UTF8 a string
Memo1.Lines.Text := UTF8ToString(Stream.DataString); // el error es aqui ya que uso delphi 7
finally
if Assigned(Stream) then FreeAndNil(Stream);
end;
end;
Hola Omar
Si el problema es la función UTF8ToString, y dado que ésta no está en D7, o bien la quitas, o bien puedes mirar de usas Utf8ToAnsi
Gracias…!!! me ayudó mucho….
Gracias a ti por pasarte por este blog 🙂
Saludos
hola buenas tardes, primero que nada una felicitación tienes muy buen contenido el de esta pagina de verdad me ha ayudado.
solo tengo una pregunta ¿y si se quiere buscar por latitud y longitud? he intentado ejecutar el script del maps (MakeMarker) y por alguna razón no pinta el marcador
Hola Carlos
Qué codigo usas para hacer la búsqueda? O mejor dicho, qué entiendes por “buscar por lat/lng”?
Saludos