FiveTech Software tech support forums

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!

Luis,

You may review samples\webexp.prg using ActiveX or do you mean you don't want to use an Explorer alike app ?

Hello Antonio,

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

Regards,

Richard

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

May convert hwgui's html view class into fwh .

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,

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

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

Luis,

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