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

Function WebExe(cLink)Local oDlgLocal oActiveXDEFINE 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))ReturnStatic Function Navega(oActiveX,cLink)oActiveX:Do('Navigate2',cLink)while oActiveX:Document == nil   SysRefresh()endReturn .t.Static function EventInfo( event, aParams, pParams, oActiveX , cLinkPad )   If cValToChar( event )=="NavigateError" .and. (lWebError==Nil .or. !lWebError)      lWebError := .t.      oActiveX:Navigate(cLinkPad)   EndIFreturn  

Erro:

[roberio]

eu uso com janela.
ex:

Code: Select all | Expand

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