Page 1 of 1

Ole with IE and xharbour

Posted: Wed Jun 21, 2006 9:53 am
by 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

Posted: Wed Jun 21, 2006 11:51 am
by Manuel Valdenebro
You can checking this:

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

Posted: Wed Jun 21, 2006 4:01 pm
by R.F.
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
by Antonio Linares
Jacquet,

Try this:

Code: Select all

he:=createoleobject("InternetExplorer.Application") 
MsgInfo( he )
and tell us what value you get.