ActiveX shell.explorer

[digordo]

Fala Pessoal!

Estou tendo um problema usando o activex shell.explorer.
Uso ele para abrir uma pagina web em uma window ou dialog.
Acontece que, de forma intermitente, ocorre erro gpf ao abrir a pagina.
Alguem tem idéia do que pode estar ocorrendo?

Exemplo do código:

Code: Select all  Expand view  RUN

Function WebExe(cLink)
Local oDlg
Local oActiveX

DEFINE WINDOW oDlg TITLE "Help Online"

   oActiveX   := TActiveX():New( oDlg, "Shell.Explorer")
   
   oDlg:oClient = oActiveX
   
   oActiveX:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams, pParams, oActiveX ,"LINK DE ERRO") }
   
   
ACTIVATE WINDOW oDlg MAXIMIZED On Init (Navega(oActiveX,cLink))



Return


Static Function Navega(oActiveX,cLink)

oActiveX:Do('Navigate2',cLink)
while oActiveX:Document == nil
   SysRefresh()
end

Return .t.




Static function EventInfo( event, aParams, pParams, oActiveX , cLinkPad )
   If cValToChar( event )=="NavigateError" .and. (lWebError==Nil .or. !lWebError)
      lWebError := .t.
      oActiveX:Navigate(cLinkPad)
   EndIF
return
 

Erro:

[roberio]

eu uso com janela.
ex:

Code: Select all  Expand view  RUN

Function AbreWebWin()
  Local oWndWeb, oActiveX, cURL:="http://www.google.com.br"

  DEFINE WINDOW oWndWeb From 10,10 To 43,90 TITLE "teste web"

   oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" )
   oWndWeb:oClient = oActiveX
   oActiveX:Do( "Navigate", cURL)
   oWndWeb:center()

   ACTIVATE WINDOW oWndWeb ON INIT BARRABOTOESMSN(oWndWeb, oActiveX)

Return nil

 

[Antonio Linares]

Aqui samples\webexp.prg funciona bien y nunca ha dado ese problema.

Puedes probar el ejemplo estandard webexp.prg que nosotros incluimos en FWH ? gracias