topic-3352

Board index FiveWin for Harbour/xHarbour Ole with IE and xharbour

Posts: 22

Joined: Fri Nov 04, 2005 09:05 PM

Ole with IE and xharbour
Posted: Wed Jun 21, 2006 09: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

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

Ole with IE and xharbour
Posted: Wed Jun 21, 2006 11:51 AM

You can checking this:

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

Un saludo

Manuel

R.F.

Posts: 840

Joined: Thu Oct 13, 2005 07:05 PM

Ole with IE and xharbour
Posted: Wed Jun 21, 2006 04:01 PM

Go the OLE Automation way:

Code: Select all Collapse

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

Saludos

R.F.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Ole with IE and xharbour
Posted: Wed Jun 21, 2006 04:21 PM

Jacquet,

Try this:

Code: Select all Collapse

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

and tell us what value you get.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion