FiveTech Software tech support forums

Posted: **Wed Jun 21, 2006 9:53 am**

This code works fine when compiled with clipper and fivewin but
with xharbour and fivewin, the program stop .

procedure TIE()
local he
he:=createoleobject("InternetExplorer.Application")

OleSetProperty(he,"Visible",.T.)
*OleSetProperty(he,"Toolbar",.F.)
*OleSetProperty(he,"Statusbar",.F.)
*OleSetProperty(he,"MenuBar",.F.)
OleInvoke(he,"Navigate","http://www.lesoir.be")
sysrefresh()
return

Thanks for some info

Philippe Jacquet

Posted: **Wed Jun 21, 2006 11:51 am**

You can checking this:

local cLink := "http://www.lesoir.be"
SHELLEXECUTE (GetActiveWindow(), nil, cLink, '', '', 5)

Posted: **Wed Jun 21, 2006 4:01 pm**

Go the OLE Automation way:

Code: Select all

procedure TIE()
local he
he:= TOleAuto():New("InternetExplorer.Application")

he:Visible := .T.
he:Toolbar := .F.
he:Statusbar :=.F.
he:MenuBar := .F.
he:Navigate("http://www.lesoir.be")
sysrefresh()
return

Posted: **Wed Jun 21, 2006 4:21 pm**

Jacquet,

Try this:

Code: Select all

he:=createoleobject("InternetExplorer.Application") 
MsgInfo( he )

and tell us what value you get.

FiveTech Software tech support forums

Ole with IE and xharbour

Ole with IE and xharbour