Page 1 of 1
web page in a dialog
Posted: Wed Jun 25, 2008 10:15 am
by 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.
Re: web page in a dialog
Posted: Wed Jun 25, 2008 11:02 am
by Patrick Mast
MOISES wrote: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
Posted: Wed Jun 25, 2008 11:56 am
by 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
// ---------------------------------------------------------------------------