Difference between revisions of "fpCEF3"

From Lazarus wiki
Jump to navigationJump to search
(Update link to CEF)
 
(11 intermediate revisions by 7 users not shown)
Line 5: Line 5:
 
<div class="floatright"> [[Image:SimpleChromium.png|320px]] </div>
 
<div class="floatright"> [[Image:SimpleChromium.png|320px]] </div>
  
Chromium is a open source project (from Google), to create an own browser for different platforms. Among other things the browser Chrome is based on this source data.
+
Chromium is an open source project (from Google) to create a browser for different platforms. Among other things the browser Chrome is based on it.
  
The Chromium Embedded Framework (CEF) is an open source framework for embedding a browser control based on Chromium. It can be used on Linux, Mac OS X and Windows in 32 and 64 bit versions.
+
The Chromium Embedded Framework (CEF) is an open source framework for embedding Chromium into user applications. It can be used on Linux, macOS and Windows in 32 and 64 bit versions.
CEF is there in the versions CEF1 and CEF3 where CEF1 is no longer maintained.
+
Originally there were two versions of CEF, CEF1 and CEF3, but CEF1 is no longer maintained.
  
There is a framework for Delphi (Delphi Chromium Embedded Framework - DCEF3) and two branches, which can be used for Lazarus/FreePascal ([https://github.com/dliw/fpCEF3 fpCEF3] and [[WACEF]]).
+
CEF can be used in Delphi via the Delphi Chromium Embedded Framework (DCEF3). For Lazarus/Free Pascal there is the equivalent framework [https://github.com/dliw/fpCEF3 fpCEF3] (or alternative [https://github.com/salvadordf/CEF4Delphi CEF4Delphi] with examples for Lazarus including newest versions of Chromium Embedded Framework).
  
 
==Installation==
 
==Installation==
  
In addition to Lazarus package even the framework itself must be downloaded and made available to the project. It is important that the framework for the package fits. Which it is and some more helpful installation instructions can be found at Github: [https://github.com/dliw/fpCEF3 https://github.com/dliw/fpCEF3]
+
Besides the Lazarus package, the CEF framework itself is needed. It is important to use the correct version of the CEF framework for the fpCEF release used. Further specific installation instructions can be found on Github: [https://github.com/dliw/fpCEF3 https://github.com/dliw/fpCEF3]
  
At the time of the revision of this description (October 2015), CEF 3.2454.1342 is the required framework.
+
The latest release and its corresponding CEF version can be found on [https://github.com/dliw/fpCEF3/releases/latest]
 +
 
 +
CEF releases can be found on https://cef-builds.spotifycdn.com/index.html (use the version filter or click "Show more builds" to find the release)
  
 
===Download Package===
 
===Download Package===
Line 46: Line 48:
 
[http://www.magpcss.net/cef_downloads http://www.magpcss.net/cef_downloads] (or a older version from [http://www.magpcss.net/cef_downloads/index.php?query=label%3ADeprecated#list here])
 
[http://www.magpcss.net/cef_downloads http://www.magpcss.net/cef_downloads] (or a older version from [http://www.magpcss.net/cef_downloads/index.php?query=label%3ADeprecated#list here])
  
{{Note|You'll be sure which framework version with the current [https://github.com/dliw/fpCEF3 fpCEF3] can be used! See [[#Installation|Installation]]}}
+
{{Note|Make sure to use the correct framework version for the fpCEF version! See [[#Installation|Installation]]}}
  
 
==Usage==
 
==Usage==
Line 74: Line 76:
 
* Create the <tt>OnButtonClick</tt> event handler for the TEditButton <tt>edtURL</tt>. Select the <tt>OnButtonClick</tt> in the Object Inspector tab <tt>events</tt> and click on the button [...]
 
* Create the <tt>OnButtonClick</tt> event handler for the TEditButton <tt>edtURL</tt>. Select the <tt>OnButtonClick</tt> in the Object Inspector tab <tt>events</tt> and click on the button [...]
 
* Write following code (chromium should open at each click the URL in the text box):
 
* Write following code (chromium should open at each click the URL in the text box):
<syntaxhighlight>procedure TForm1.edtURLClick(Sender: TObject);
+
<syntaxhighlight lang=pascal>procedure TForm1.edtURLClick(Sender: TObject);
 
begin
 
begin
 
   Chromium.Load(UTF8Decode(edtURL.Text));
 
   Chromium.Load(UTF8Decode(edtURL.Text));
 
end; </syntaxhighlight>
 
end; </syntaxhighlight>
 
* <tt>Chromium</tt> must be initialized at the start of the program, you can do this with the <tt>OnCreate</tt> event handler of the form:
 
* <tt>Chromium</tt> must be initialized at the start of the program, you can do this with the <tt>OnCreate</tt> event handler of the form:
<syntaxhighlight>procedure TForm1.FormCreate(Sender: TObject);
+
<syntaxhighlight lang=pascal>procedure TForm1.FormCreate(Sender: TObject);
 
var
 
var
 
   PrjPath: ustring;
 
   PrjPath: ustring;
 
   Lang, FallbackLang: string;
 
   Lang, FallbackLang: string;
 
begin
 
begin
   PrjPath := UTF8Decode(ExtractFilePath(ParamStr(0)));
+
   PrjPath := UTF8Decode(GetCurrentDir + PathDelim);
 
   CefLocalesDirPath := PrjPath + 'locales';
 
   CefLocalesDirPath := PrjPath + 'locales';
 
   GetLanguageIDs(Lang, FallbackLang);
 
   GetLanguageIDs(Lang, FallbackLang);
Line 91: Line 93:
 
end; </syntaxhighlight>
 
end; </syntaxhighlight>
 
* If a identifier wouldn't be found, you have to put some units to the uses clause. These units should be in there:
 
* If a identifier wouldn't be found, you have to put some units to the uses clause. These units should be in there:
<syntaxhighlight>uses
+
<syntaxhighlight lang=pascal>uses
 
   sysutils, Forms, EditBtn, cef3lcl, cef3intf, cef3types, cef3lib, gettext;  </syntaxhighlight>
 
   sysutils, Forms, EditBtn, cef3lcl, cef3intf, cef3types, cef3lib, gettext;  </syntaxhighlight>
 
* Run your program, if all goes well it might look like:
 
* Run your program, if all goes well it might look like:
Line 102: Line 104:
 
* Create the <tt>OnLoadEnd</tt> event handler for <tt>Chromium</tt>
 
* Create the <tt>OnLoadEnd</tt> event handler for <tt>Chromium</tt>
 
* Write following code (URL should be updated after any browsing):
 
* Write following code (URL should be updated after any browsing):
<syntaxhighlight>procedure TForm1.ChromiumLoadEnd(Sender: TObject; const Browser: ICefBrowser;
+
<syntaxhighlight lang=pascal>procedure TForm1.ChromiumLoadEnd(Sender: TObject; const Browser: ICefBrowser;
 
   const Frame: ICefFrame; httpStatusCode: Integer);
 
   const Frame: ICefFrame; httpStatusCode: Integer);
 
begin
 
begin
Line 111: Line 113:
  
 
* Create the <tt>OnBeforeDownload</tt> event handler for <tt>Chromium</tt> and write in it:
 
* Create the <tt>OnBeforeDownload</tt> event handler for <tt>Chromium</tt> and write in it:
<syntaxhighlight>procedure TForm1.ChromiumBeforeDownload(Sender: TObject;
+
<syntaxhighlight lang=pascal>procedure TForm1.ChromiumBeforeDownload(Sender: TObject;
 
   const Browser: ICefBrowser; const downloadItem: ICefDownloadItem;
 
   const Browser: ICefBrowser; const downloadItem: ICefDownloadItem;
 
   const suggestedName: ustring; const callback: ICefBeforeDownloadCallback);
 
   const suggestedName: ustring; const callback: ICefBeforeDownloadCallback);
Line 121: Line 123:
  
 
* Add a <tt>TButton</tt> on your form and write in its <tt>OnClick</tt> event handler:
 
* Add a <tt>TButton</tt> on your form and write in its <tt>OnClick</tt> event handler:
<syntaxhighlight>procedure TForm1.Button1Click(Sender: TObject);
+
<syntaxhighlight lang=pascal>procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
begin
 
   Chromium.Browser.Host.Print;
 
   Chromium.Browser.Host.Print;
Line 130: Line 132:
 
* Add a <tt>TSaveDialog</tt> on your form
 
* Add a <tt>TSaveDialog</tt> on your form
 
* Add a <tt>TButton</tt> on your form and write in its <tt>OnClick</tt> event handler:
 
* Add a <tt>TButton</tt> on your form and write in its <tt>OnClick</tt> event handler:
<syntaxhighlight>procedure TForm1.Button1Click(Sender: TObject);
+
<syntaxhighlight lang=pascal>procedure TForm1.Button1Click(Sender: TObject);
 
var
 
var
 
   CefPdfPrintSettings: TCefPdfPrintSettings;
 
   CefPdfPrintSettings: TCefPdfPrintSettings;
Line 164: Line 166:
  
 
* If your program doesn't start, maybe a Antivirus program prevent this.
 
* If your program doesn't start, maybe a Antivirus program prevent this.
* If your program start but your TChromium window keeps empty, maybe a firewall block it (see [http://forum.lazarus.freepascal.org/index.php/topic,31361.0.html Chromium Embedded Framework for Free Pascal (fpCEF3) BRUNCH 2556).
+
* If your program start but your TChromium window keeps empty, maybe a firewall block it (see [http://forum.lazarus.freepascal.org/index.php/topic,31361.0.html Chromium Embedded Framework for Free Pascal (fpCEF3) BRUNCH 2556]).
 
* If your file structure isn't correct (see [[#Minimal_example|Minimal example]]) and therefore some libraries wouldn't be found, you can get optical errors (see [http://forum.lazarus.freepascal.org/index.php/topic,30763.0.html Fpcef red borders in the browser]).
 
* If your file structure isn't correct (see [[#Minimal_example|Minimal example]]) and therefore some libraries wouldn't be found, you can get optical errors (see [http://forum.lazarus.freepascal.org/index.php/topic,30763.0.html Fpcef red borders in the browser]).
  
==Further Informations==
+
==Further Information==
 
+
* [http://www.lazarusforum.de/viewtopic.php?f=18&t=7676 Thread in the German Lazarusforum]
* [http://www.lazarusforum.de/viewtopic.php?f=18&t=7676 Thread in the German Lazarusforum]<br>
 
 
* [[Webbrowser]]
 
* [[Webbrowser]]
  
Line 175: Line 176:
 
[[Category:Components]]
 
[[Category:Components]]
 
{{AutoCategory}}
 
{{AutoCategory}}
--[[User:Michl|Michl]] 22:58, 1 June 2015 (CEST)
 

Latest revision as of 00:50, 16 January 2021

Deutsch (de) | English (en)

Description

SimpleChromium.png

Chromium is an open source project (from Google) to create a browser for different platforms. Among other things the browser Chrome is based on it.

The Chromium Embedded Framework (CEF) is an open source framework for embedding Chromium into user applications. It can be used on Linux, macOS and Windows in 32 and 64 bit versions. Originally there were two versions of CEF, CEF1 and CEF3, but CEF1 is no longer maintained.

CEF can be used in Delphi via the Delphi Chromium Embedded Framework (DCEF3). For Lazarus/Free Pascal there is the equivalent framework fpCEF3 (or alternative CEF4Delphi with examples for Lazarus including newest versions of Chromium Embedded Framework).

Installation

Besides the Lazarus package, the CEF framework itself is needed. It is important to use the correct version of the CEF framework for the fpCEF release used. Further specific installation instructions can be found on Github: https://github.com/dliw/fpCEF3

The latest release and its corresponding CEF version can be found on [1]

CEF releases can be found on https://cef-builds.spotifycdn.com/index.html (use the version filter or click "Show more builds" to find the release)

Download Package

fpCEF3 with Git

git://github.com/dliw/fpCEF3.git

You can also download a zipped package:

master.zip

Package Installation

Chromium.png

After downloading of package fpCEF3, it can be installed in Lazarus:

  • Start Lazarus and open main menu Package -> Open package file (.lpk)...
  • Select the file cef3.lpk in the fpCEF3 subdirectory Component
  • The package editing window will open
  • Click on Compile, the package will be compiled
  • Click on Use...-> Install and confirm the dialog window with Yes
  • Lazarus is now compiling and create a new tab Chromium in the component palette

Download Framework CEF3

You can now download the framework and made the libraries available for a particular project. You can download it from the following pages:
https://cefbuilds.com
http://www.magpcss.net/cef_downloads (or a older version from here)

Light bulb  Note: Make sure to use the correct framework version for the fpCEF version! See Installation

Usage

Minimal example

A minimal example with a simple browser is created.

Windows

The CEF libraries are needed for loading, so it makes sense to create a new project folder, to save the project and the libraries in it together.

  • Create a new directory for the project to a location of your choice such as C:\SimpleBrowser
  • Copy the complete CEF3 directory Resources to C:\SimpleBrowser
  • Copy the contents of the CEF3 directory Release in the directory C:\SimpleBrowser

The files (libcef.dll, natives_blob.bin, icudtl.dat etc.) are in the same directory as the project and the directory locales in C:\SimpleBrowser\locales.
To prevent misunderstands, here is a picture how the file and directory structure of the Simplebrowser should look:

FilesForSimplebrowser.png

Now build the project with Lazarus

  • Create a new empty GUI application
  • Save the project in the directory you specify for Windows (e.g. under C:\SimpleBrowser)
  • Drop a TEditButton on the form
  • With Object Inspector set the Name to edtURL, Align on alTop and ButtonCaption to go
  • Put a TChromium on the form and set the Name to Chromium and its Align to alClient
  • Create the OnButtonClick event handler for the TEditButton edtURL. Select the OnButtonClick in the Object Inspector tab events and click on the button [...]
  • Write following code (chromium should open at each click the URL in the text box):
procedure TForm1.edtURLClick(Sender: TObject);
begin
  Chromium.Load(UTF8Decode(edtURL.Text));
end;
  • Chromium must be initialized at the start of the program, you can do this with the OnCreate event handler of the form:
procedure TForm1.FormCreate(Sender: TObject);
var
  PrjPath: ustring;
  Lang, FallbackLang: string;
begin
  PrjPath := UTF8Decode(GetCurrentDir + PathDelim);
  CefLocalesDirPath := PrjPath + 'locales';
  GetLanguageIDs(Lang, FallbackLang);
  CefLocale := UTF8Decode(FallbackLang);
  edtURL.Text:='http://www.lazarus-ide.org/';
end;
  • If a identifier wouldn't be found, you have to put some units to the uses clause. These units should be in there:
uses
  sysutils, Forms, EditBtn, cef3lcl, cef3intf, cef3types, cef3lib, gettext;
  • Run your program, if all goes well it might look like:

SimpleChromium.png

Show URL of loaded page

Based on Minimal example

  • Create the OnLoadEnd event handler for Chromium
  • Write following code (URL should be updated after any browsing):
procedure TForm1.ChromiumLoadEnd(Sender: TObject; const Browser: ICefBrowser;
  const Frame: ICefFrame; httpStatusCode: Integer);
begin
  edtURL.Text:=UTF8Encode(Browser.MainFrame.Url);
end;

Allow downloading of files

  • Create the OnBeforeDownload event handler for Chromium and write in it:
procedure TForm1.ChromiumBeforeDownload(Sender: TObject;
  const Browser: ICefBrowser; const downloadItem: ICefDownloadItem;
  const suggestedName: ustring; const callback: ICefBeforeDownloadCallback);
begin
  callback.Cont(suggestedName, True);
end;

Printing per code

  • Add a TButton on your form and write in its OnClick event handler:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Chromium.Browser.Host.Print;
end;

Creating a pdf

  • Add a TSaveDialog on your form
  • Add a TButton on your form and write in its OnClick event handler:
procedure TForm1.Button1Click(Sender: TObject);
var
  CefPdfPrintSettings: TCefPdfPrintSettings;
  EmptyCefStringUtf16: TCefStringUtf16;
begin
  SaveDialog1.DefaultExt := 'pdf';
  SaveDialog1.Filter     := 'Portable Document Format (pdf)|*.pdf';
  if SaveDialog1.Execute then
  begin
    FillByte(EmptyCefStringUtf16, SizeOf(EmptyCefStringUtf16), 0);

    CefPdfPrintSettings.backgrounds_enabled := 1;
    CefPdfPrintSettings.header_footer_enabled := 0;
    CefPdfPrintSettings.header_footer_title := EmptyCefStringUtf16;
    CefPdfPrintSettings.header_footer_url := EmptyCefStringUtf16;
    CefPdfPrintSettings.landscape := 0;
    CefPdfPrintSettings.margin_bottom := 0;
    CefPdfPrintSettings.margin_left := 0;
    CefPdfPrintSettings.margin_right := 0;
    CefPdfPrintSettings.margin_top := 0;
    CefPdfPrintSettings.margin_type := PDF_PRINT_MARGIN_DEFAULT;
    CefPdfPrintSettings.page_height := 0;
    CefPdfPrintSettings.page_width := 0;
    CefPdfPrintSettings.selection_only := 0;

    Chromium.Browser.Host.PrintToPdf(UTF8Decode(SaveDialog1.FileName), CefPdfPrintSettings, Nil);
  end;
end;

The description of the TCefPdfPrintSettings you will find by the declaration of the TCefPdfPrintSettings

Known Problems

Further Information