Page 1 of 1
Html viewer for FWH?
Posted: Fri Feb 17, 2006 9:32 pm
by Luis Krause
Hello
Has anyone developed a FWH class that can view html without depending on any browse (like a sample René posted some time ago using OLE to load IE)?
I'm looking for a standalone viewer so show html file to users.
Thanks!
Posted: Fri Feb 17, 2006 9:39 pm
by Antonio Linares
Luis,
You may review samples\webexp.prg using ActiveX or do you mean you don't want to use an Explorer alike app ?
Posted: Fri Feb 17, 2006 10:39 pm
by Taiwan
Hello Antonio,
I think Luis Krause mean don't use any IE or web browse to display html file.
Regards,
Richard
Posted: Sat Feb 18, 2006 1:58 am
by James Bott
Luis,
There is one:
http://www.subsystems.com
But it is expensive, US$389, and you also have to purchase their editor for $539.
May I ask why you are looking for a standalone? Do you know that you can turn off the toolbar, address bar, and status bars of IE so it doesn't look like IE?
James
Posted: Sat Feb 18, 2006 3:58 am
by ShumingWang
May convert hwgui's html view class into fwh .
Posted: Mon Feb 20, 2006 4:44 pm
by Luis Krause
Antonio, James, Richard and Shuming
FWH AcitiveX approach might be all we need. The idea of having a non-browser dependent html viewer was just to show the user html files, but not wanting to give them web access from within the app for security reasons.
Thank you all for the input... time to analize the best solution.
Regards,
Posted: Mon Feb 20, 2006 9:11 pm
by James Bott
Luis,
The idea of having a non-browser dependent html viewer was just to show the user html files, but not wanting to give them web access from within the app for security reasons.
Then I think this is all you need.
Code: Select all
Function RunExpl(cURL)
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",cURL)
SysRefresh()
return nil
James
Posted: Tue Feb 21, 2006 1:28 am
by Luis Krause
James:
I have to check with Brian what exactly he's looking for, but your sample certainly should do the trick.
Any reason you're not using TOleAuto() class? I.e.:
Function RunExpl( cURL )
local hE
hE := TOleAuto():New("InternetExplorer.Application")
hE:Visible := .T.
hE:ToolBar := .F.
hE:StatusBar := .F.
hE:MenuBar := .F.
hE:Navigate( cURL )
return nil
James Bott wrote:Luis,
Code: Select all
Function RunExpl(cURL)
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",cURL)
SysRefresh()
return nil
James
Regards,
Luis Krause
Posted: Tue Feb 21, 2006 1:37 am
by Antonio Linares
Luis,
Class TOleAuto() is just a wrapper on top of those functions.