Crossplatform WebBrowser component

[LazaruX]

Hello everybody, I was wondering if there is anyway to have a webbrowser component for Lazarus apps. I am also fine with webkit as long as it's easy to use and works on the 3 main platforms.

What I want to do is display a webpage.

[Never]

[ http://wiki.freepascal.org/Webbrowser ]
THtmlPort <--not a browser
fpbrowser <--- [ http://wiki.freepascal.org/fpbrowser ] a bit closer to a browser
LazActiveX<---only for ie
LazWebKit<---only GTK2
QT Webkit<---only qt
GeckoPort<---only with xulrunner version 1.9.2.19 you need to redist about 23mb

browser is a problem i think

[Zittergie]

Very basic: lazbro: http://forum.lazarus.freepascal.org/index.php/topic,26296.0.html

[engkin]

Very basic: lazbro: http://forum.lazarus.freepascal.org/index.php/topic,26296.0.html

If you don't mind text limited to ASCII characters #33..#126:

Code: [Select]

//Version 0.1 and 0.4
procedure TLazbro.CreateText(const ANode: TDOMText; const AParent: TWinControl);
const
  LSetOfAllow = [#33..#126];
...


[LazaruX]

Thanks everybody.
LazActiveX is not an option I like because it uses IE and because it's Windows Only.
THtmlPort
fpBrowser
Lazbro
are no optionbecause as I understand they have limited functionality.


GeckoPort is interesting, annoying is that it has many files as redistribution.

I now think my best option is QT webkit.
Is there a way to use something like webkit.dll in my project even if it's not a QT project?
If not, can somebody point me or explain me a bit how to use this?

Thanks

[stocki]

https://code.google.com/p/thtmlviewer/

[zeljko]

Thanks everybody.
LazActiveX is not an option I like because it uses IE and because it's Windows Only.
THtmlPort
fpBrowser
Lazbro
are no optionbecause as I understand they have limited functionality.


GeckoPort is interesting, annoying is that it has many files as redistribution.

I now think my best option is QT webkit.
Is there a way to use something like webkit.dll in my project even if it's not a QT project?
If not, can somebody point me or explain me a bit how to use this?

Thanks

Qt have qtwebkit.dll. If you have webkit.dll then I suppose that you can use it with all ws which works under windows.

[engkin]

https://code.google.com/p/thtmlviewer/

Thanks for pointing that one out.

[taazz]

https://code.google.com/p/thtmlviewer/

Thanks for pointing that one out.

This is the THtmlPort before any lazarus/fpc support.

[engkin]

https://code.google.com/p/thtmlviewer/

Thanks for pointing that one out.

This is the THtmlPort before any lazarus/fpc support.

According to its "What's New page", it seems that it started "supporting Lazarus" since version 10, while THtmlPort is standing at version 9.45.

[taazz]

https://code.google.com/p/thtmlviewer/

Thanks for pointing that one out.

This is the THtmlPort before any lazarus/fpc support.

According to its "What's New page", it seems that it started "supporting Lazarus" since version 10, while THtmlPort is standing at version 9.45.

It does not, in some internal VCS checkin they removed all code specific to lazarus, if memory serves me right, the documentation is outdated.

[engkin]

https://code.google.com/p/thtmlviewer/

Thanks for pointing that one out.

This is the THtmlPort before any lazarus/fpc support.

According to its "What's New page", it seems that it started "supporting Lazarus" since version 10, while THtmlPort is standing at version 9.45.

It does not, in some internal VCS checkin they removed all code specific to lazarus, if memory serves me right, the documentation is outdated.

It works. Not impressed by its page rendering speed on local html files. But it does work.

Downloaded HtmlViewer-115-r472.7z.
Expanded it.
Opened HtmlViewer\Demos\Main Demos\FrameDemLaz.lpi
Removed some required package (FrameViewer09 I think) from within the Project Inspector window.
Tried to compile it, failed and complained about TBaseForm at:
HtmlViewer\Demos\Main Demos\FDemUnit.pas

Code: [Select]

{$ifdef UseTNT}
    TBaseForm = TTntForm;
{$else}
    TBaseForm = TForm
{$endif}

  { TForm1 }

  TForm1 = class(TBaseForm)    //<----------------
replaced it with

Code: [Select]

{$ifdef UseTNT}
    TBaseForm = TTntForm;
{$else}
{$MACRO on}
    {$define TBaseForm := TForm}
{$endif}

  { TForm1 }

  TForm1 = class(TBaseForm)
tried again, failed at:
HtmlViewer\source\vwPrint.pas

Code: [Select]

{$ifdef LCL}
      PrnDev := TPrinterDevice(Printer.Printers.Objects[Printer.PrinterIndex]);
{$if lcl_fullversion >= 1020000}
      DevMode := PrnDev.DevModeA;
{$else}
      DevMode := PrnDev.DevMode;  //<-----------
{$ifend}
Commented it out and tried again.
Passed and worked!

[taqtaq]

Check this https://github.com/dliw/fpCEF3

[LazaruX]

I managed to recompile Lazarus using QT (very bad and unclear documentation IMHO). I try to run the qtwebkit example and it compiles. The "browser" provided as a sample lclwebkit doesn't load some pictures. And it crashes. Is this the best I can expect???

[Leledumbo]

I managed to recompile Lazarus using QT (very bad and unclear documentation IMHO).

Which part do you think is "very bad and unclear"? http://wiki.freepascal.org/Qt_Interface

I try to run the qtwebkit example and it compiles. The "browser" provided as a sample lclwebkit doesn't load some pictures. And it crashes. Is this the best I can expect???

I really have no idea what you're talking about... see the attached screenshot