Hola FiveWinners
Este ejemplo WebExp.prg de la version de Fwh 10.3 compilado con la version de borland 5.82, no funciona, al ejecutarlo se queda colgada la aplicacion.
Basicamente es activar explorer:
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX
local cEvents := ""
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX // To fill the entire window surface
// oActiveX:GoHome()
oActiveX:Navigate( "http://www.google.com" )
// oActiveX:StatusBar = .t.
oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) }
ACTIVATE WINDOW oWnd ;
VALID ( MemoEdit( cEvents ), .t. )
return nil
Alguien conoce el truco ?
Saludos