web page in a dialog

[MOISES]

Hi,

I want a web page in a dialog, as Activex example but without using Activex, as I have experienced some errors in some cases, where it hangs up the app, for example in some PCs using Vista Service Pack 1.

Thank you.

[Patrick Mast]

I want a web page in a dialog, as Activex example but without using Activex, as I have experienced some errors in some cases, where it hangs up the app, for example in some PCs using Vista Service Pack 1.

Just tested here with Vista SP1 and works as expected. Can you show a reduced sample that shows your error?

Patrick

[MOISES]

very simple code:

// ---------------------------------------------------------------------------
FUNCTION NavegadorWeb( cTituloVentana, cServidor, cParametros )

LOCAL oDlg, oActiveX, lSave := .F.


DEFINE DIALOG oDlg RESOURCE "NAVEGADORWEB" TITLE cTituloVentana


REDEFINE ACTIVEX oActiveX ID 201 OF oDlg PROGID "Shell.Explorer"


REDEFINE BUTTON ID 101 OF oDlg ACTION( oActiveX:Do( "ExecWB", 6, 1 ) )
REDEFINE BUTTON ID 102 OF oDlg ACTION( lSave := .T., oDlg:End() )
REDEFINE BUTTON ID 103 OF oDlg ACTION( Ayuda() )




ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oActiveX:Do( "Navigate2", cServidor + cParametros )



Return nil
// ---------------------------------------------------------------------------