I have tried putting sysfresh() in several places but that didn't help.
Any ideas?
I am using FWH Sept 2006 build/ xHarbour. You can use any HTML or XML file to test the code.
James
Code: Select all
#include "fivewin.ch"
function main()
local oWnd, oBar
define window oWnd
define buttonbar oBar of oWnd
define button of oBar action viewXML() // Doesn't work
activate window oWnd on init viewXML() // Does work
return nil
function viewXML(cFile, cPath)
local oWnd, oActiveX, oBar
default cPath := (cFilePath( GetModuleFileName( GetInstance() ) ))
default cFile:= "test.xml"
DEFINE WINDOW oWnd TITLE "Test XML Report"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX
oActiveX:Do( "Navigate", cPath+cFile )
ACTIVATE WINDOW oWnd
oActiveX:end()
return nil