Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Intraweb y googlemaps (https://www.clubdelphi.com/foros/showthread.php?t=65415)

edgwin 12-12-2009 17:01:50

Intraweb y googlemaps
 
Que tal amigos del foro.

Alguien ha intentando hacer algo con Intraweb y googlemaps? ¿saben como implementarlo?

Saludos!

Neftali [Germán.Estévez] 14-12-2009 12:41:06

¿Exactamente qué quieres hacer?
El código para Google Maps puedes colocarlo directamente en una página HTML.
¿Utilizas plantillas?

En código a utilizar en la página puedes buscarlo por Internet, es bastante sencillo y está en muchas páginas web. También puedes echarle un vistazo a mi página; Hay varias entradas relacionadas con cómo trabajar desde Delphi con Googles Maps, Geocodificación,...

Nasca 15-12-2009 18:49:28

Neftali, supongo que a estas alturas ya has descubierto que las peticiones para georeferenciar direcciones ya no aceptan ISO-8859-1 y hay que pasárselas en UTF8 (unicode).

Me llevé una sorpresa recientemente en ese pequeño detalle. Cuando cruzamos información en tus magníficas entradas todavía funcionaba de la otra forma.

No es nada grave ya que se soluciona con un simple AnsiToUTF8. Entiendo que en Delphi 2009 y 2010 ya no será necesario.

edgwin 15-12-2009 19:47:37

Gracias por responder.

Lo que necesito hacer es que me aparezca el mapa, se me ocurre poner dos botones en la parte inferior, uno que diga "obtener coordenadas" y que estas las coloque en un par de IWEdit's y otro boton que diga "Guardar coordenadas". Aun lo estoy estudiando, pero estoy atorado en la parte de mostrar el mapa (ya lo logre utilizando "WebApplication.Response.ContentStream := f" (donde "f" es un TFileStream que contiene el archivo "mapa.html") Pero estoy intentando colocar el mapa en tiempo de ejecucion pero me marcan errores ...

Código Delphi [-]
procedure TIWForm2.IWAppFormRender(Sender: TObject);
begin
   JavaScriptOnce := 'var map = null;'+chr(13)+'var geocoder = null;'+chr(13)+''+chr(13)+'<_script language=JavaScript src="'+chr(13)+'<_script" target="_blank">http://maps.google.com/maps?file=api&v=2.x&key=abcd_local">'+chr(13)+'<_script type="text/javascript">';
   PageContext.AddToInitProc('map = new GMap2(document.getElementById("map"));');
   PageContext.AddToInitProc('map.addControl(new GOverviewMapControl());');
   PageContext.AddToInitProc('map.addControl(new GHierarchicalMapTypeControl());');
   PageContext.AddToInitProc('map.addControl(new GMapTypeControl());');
   PageContext.AddToInitProc('map.addControl(new GScaleControl());');
   PageContext.AddToInitProc('map.addControl(new GSmallZoomControl());');
   PageContext.AddToInitProc('map.addControl(new GSmallMapControl());');
   PageContext.AddToInitProc('map.addControl(new GLargeMapControl());');
   PageContext.AddToInitProc('map.setMapType(G_HYBRID_MAP);');
   PageContext.AddToInitProc('map.setCenter(new GLatLng(20.678989402134355,-103.37575525045395),15); // GDL');
   PageContext.AddToInitProc('var html="'http://neftali.clubdelphi.com/images/imagen_neftali_60x54.jpg'' width=''60'' height=''54''/> 
by Neftalí -Germán Estévez- 2009
'http://neftali.clubdelphi.com'
' target=''_blank''>http://neftali.clubdelphi.com
";'); PageContext.AddToInitProc('var point = new GLatLng(20.678989402134355,-103.37575525045395);'); PageContext.AddToInitProc('var marker = new GMarker(point);'); PageContext.AddToInitProc('map.addOverlay(marker);'); PageContext.AddToInitProc('geocoder = new GClientGeocoder();'); end;

Al correrlo me marca un error en javascript:

Mensaje: Object required
Línea: 252
Carácter: 26
Código: 0
URI: http://maps.gstatic.com/intl/es_ALL/...s2.api/main.js

¿Sabes a que se deba el error? yo por mi parte sigo investigando ...

saludos!

Neftali [Germán.Estévez] 15-12-2009 23:09:46

Cita:

Empezado por Nasca (Mensaje 348885)
Neftali, supongo que a estas alturas ya has descubierto que las peticiones para georeferenciar direcciones ya no aceptan ISO-8859-1 y hay que pasárselas en UTF8 (unicode).

Me llevé una sorpresa recientemente en ese pequeño detalle. Cuando cruzamos información en tus magníficas entradas todavía funcionaba de la otra forma.

No es nada grave ya que se soluciona con un simple AnsiToUTF8. Entiendo que en Delphi 2009 y 2010 ya no será necesario.

Gracias Nasca por el comentario; en cuanto tenga un hueco revisaré las entradas y los ejemplos. :)

edgwin 15-12-2009 23:10:16

Neftali, quiero hacer algo como esto:

http://www.anumex.com/setMap.jsp?reg...&lat=-1&lng=-1

Neftali [Germán.Estévez] 15-12-2009 23:16:12

Cita:

Empezado por edgwin (Mensaje 348916)
Neftali, quiero hacer algo como esto:

http://www.anumex.com/setMap.jsp?reg...&lat=-1&lng=-1

Revisa el código de la página, está bastante claro.
Creo que no necesitas Intraweb para eso.


La franja horaria es GMT +2. Ahora son las 20:26:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi