Ole with IE and xharbour

[jacquet philippe]

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

[Manuel Valdenebro]

You can checking this:

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

[R.F.]

Go the OLE Automation way:

Code: Select all  Expand view

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

[Antonio Linares]

Jacquet,

Try this:

Code: Select all  Expand view

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


and tell us what value you get.