Bom dia João e Claudio.
Claudio, usei o programa da pasta SAMPLES, ACTIVEX.1, tentando abrir o Google Maps. Ele retorna a mensagem:
"Parece que você está usando um navegador incompatível.
Os navegadores antigos podem colocar sua segurança em risco, são lentos e não funcionam com os recursos mais recentes do Google Maps. Para acessar o Google Maps, é necessário um navegador moderno."
Assim está no Demo.prg:
Código: Selecionar todos
/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//
* Activex Sample: Inspired by Freewin Activex inplementation by
* Oscar Joel Lira Lira (http://sourceforge.net/projects/freewin).
*/
#include "hmg.ch"
FUNCTION Main()
DEFINE WINDOW Win1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 500 ;
TITLE 'HMG ActiveX Support Demo' ;
MAIN
DEFINE MAIN MENU
POPUP "Test"
MENUITEM "Navigate" ACTION TestNavigate()
END POPUP
END MENU
@ 10 , 50 ACTIVEX Test ;
WIDTH 700 ;
HEIGHT 400 ;
PROGID "shell.explorer.2"
END WINDOW
Center Window Win1
Activate Window Win1
RETURN NIL
*------------------------------------------------------------------------------*
Procedure TestNavigate()
*------------------------------------------------------------------------------*
Local oObject
Local cAddress := ''
* Look at other samples for alternatives
//cAddress := InputBox ('Navigate:','Enter Address','http://www.hmgforum.com/')
//cAddress := InputBox ('Navigate:','Enter Address','https://www.google.com.br/maps/?q=')
cAddress := InputBox ('Navigate:','Enter Address','https://www.showmystreet.com/')
If .Not. Empty ( cAddress )
Win1.Test.Object:Navigate(cAddress)
EndIf
Return
Penso ser algo na propriedade PROGID = "shell.explorer.2"
Eu tenho o Internet Explorer 11 e pelo navegador o mapa funciona normalmente.
Sds,
Mario.