Html viewer for FWH?

[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!

[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 ?

[Taiwan]

Hello Antonio,

I think Luis Krause mean don't use any IE or web browse to display html file.

Regards,

Richard

[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

[ShumingWang]

May convert hwgui's html view class into fwh .

[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,

[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  Expand view

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

[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

Luis,

Code: Select all  Expand view

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

[Antonio Linares]

Luis,

Class TOleAuto() is just a wrapper on top of those functions.