Amigos Rafael Clemente e Biel, autorizando mesmo assim não me mostra veja:
porém se executar diretamente a pagina HTML utilizando o firefox ai funciona normalmente:
PRG:
#INCLUDE "FIVEWIN.CH"
FUNCTION MAIN()
LOCAL oDlg, oRadio1, oGet1, obtn
LOCAL cCurrency := "USD "
LOCAL nOption := 1
DEFINE DIALOG oDlg ;
FROM 1, 1 TO 10, 30
@ 1, 1 RADIO oRadio1 VAR nOption OF oDlg UPDATE ;
PROMPT "Estatua Libertad ", "Fortaleny - Valencia - Espa?a", "Torre Eiffel - Par?s "
@ 3, 1 BUTTON oBtn PROMPT "Ver el Mapa" ACTION VerMapa (oDlg, nOption)
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
Function VerMapa( oDlgp, nMapa )
local ownd, oactivex
LOCAL cHtml
LOCAL nLat, nLon, nZoom
DO CASE
CASE nMapa == 1
nLat := 48.858333
nLon := 2.295000
nZoom := 20
CASE nMapa == 2
nLat := 39.183994491715936
nLon := -0.31486988067626952
nZoom := 18
CASE nMapa == 3
nLat := 40.689360
nLon := -74.044400
nZoom := 20
ENDCASE
cHtml := [ <html> <head> ]+CRLF
cHtml += [ <meta http-equiv="content-type" content="text/html; charset=utf-8"/> ]+CRLF
cHtml += [ <title>Google Maps</title> ]+CRLF
cHtml += [ <script src="http://maps.google.com/maps?file=api&v=2&key=1223" type="text/javascript"></script> ]+CRLF
cHtml += [ <script type="text/javascript"> ]+CRLF
cHtml += " //<![CDATA[ " +CRLF
cHtml += " function load() "+CRLF
cHtml += " { if (GBrowserIsCompatible()) "+CRLF
cHtml += [ { var map = new GMap2(document.getElementById("map"),G_SATELLITE_TYPE); ] + CRLF
cHtml += " map.addControl(new GLargeMapControl()); "+CRLF
cHTML += " map.addControl(new GMapTypeControl()); "+CRLF
cHTML += " map.addControl(new GOverviewMapControl()); "+CRLF
cHTML += " map.setCenter(new GLatLng(<<<LAT>>>, "+CRLF
CHTML += " <<<LONG>>>),<<<ZOOM>>>); "+CRLF
CHTML += " map.setMapType(G_HYBRID_TYPE); "+CRLF
CHTML += " } } "+CRLF
CHTML += " //]]> </script> </head> "+CRLF
CHTML += [ <body scroll="no" bgcolor="#CCCCCC" topmargin="0" leftmargin="0" ] +CRLF
CHTML += [ onload="load()" onunload="GUnload()"> ] + CRLF
chtml += [ <div id="map" style="width:450px;height:300px"></div> ] + CRLF
chtml += [ </body> </html> ]
cHtml := STRTRAN(cHtml, "<<<LONG>>>",STR(nLon) )
cHtml := STRTRAN(cHtml, "<<<LAT>>>",STR(nLat) )
cHtml := STRTRAN(cHtml, "<<<ZOOM>>>",STR(nZoom) )
MemoWrit("mihtml.htm",chtml)
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",(CurDrive() + ":\"+CurDir()+"\MiHtml.htm"))
ACTIVATE WINDOW oWnd
RETUR NIL
Amigos eu utilizo FWH7.1 e xHarbour 99.71 e percebi que só esta acontecendo isso porque tento abrir uma pagina na minha maquina se estiver hospedada na rede (NET) funciona muito bem.
Grato
