Delphi使用CEF4Delphi制作Chromium谷歌内核浏览器

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

什么是CEF4Delphi？

CEF4Delphi是由Salvador Díaz Fau创建的一个开源项目，用于在基于Delphi或Lazarus/FPC的应用程序中嵌入基于谷歌内核

（-based）的浏览器。

Github地址

https://github.com/salvadordf/CEF4Delphi

控件下载

控件安装

在最新版本的Delphi中构建和安装CEF4delphi

1、下载CEF4Delphi

查看更多关于 CEF4Delphi 的文章

的最新版本。
2、将CEF4Delphi解压到一个目录中，并确保您的用户在该目录中拥有写入权限。
3、运行Delphi。
4、把CEF4Delphi的source目录添加到Delphi的开发环境中去，
在开发环境导航栏中点击Tools->Options-> Environment Options->Delphi Options->Library，
选择一个正确的平台（32或64），把目录添加到Library path中。

5、如果您只想要VCL组件，请从Delphi打开文件CEF4Delphi.dproj文件。如果您想要VCL和FireMonkey （FMX）组件，请打开CEF4Delphi_FMX.dproj。6、在项目管理器Project manager中右键CEF4Delphi.bpl，点击 Build 选项。7、在项目管理器Project manager中右键CEF4Delphi.bpl，点击 Install 选项。

在Delphi7中构建和安装CEF4delphi

1、下载CEF4Delphi的最新版本。
2、将CEF4Delphi解压到一个目录中，并确保您的用户在该目录中拥有写入权限。
3、运行Delphi。
4、把CEF4Delphi的source目录添加到Delphi的开发环境中去，
在开发环境导航栏中点击Tools->Options-> Environment Options->Delphi Options->Library，
选择一个正确的平台（32或64），把目录添加到Library path中。
5、在Delphi中打开CEF4Delphi_D7.dpk文件。
6、点击 Compile 编译按钮。
7、点击 Install 安装按钮。

在Lazarus中构建和安装CEF4delphi

1、下载CEF4Delphi的最新版本。
2、将CEF4Delphi解压到一个目录中，并确保您的用户在该目录中拥有写入权限。
3、运行Lazarus。
4、在Package->Open Package File (*.lpk)菜单中打开cef4delphi_lazarus.lpk文件
5、在 package窗口点击 Compile 编译按钮
6、点击 Use 按钮，选择 Install 选项。

支持的操作系统版本

Google宣布，他们在2015放弃Windows XP支持Chrome。与WindowsXP兼容的最后一个CEF3分支是2623，发布于2016。

由于CEF4Delphi使用了最新的CEF3分支，它与WindowsXP、WindowsVista、Windows Server 2003和Windows Server 2008不兼容。

CEF4Delphi需要Windows 7, 8，8.1，10或更高的操作系统。

如果您需要支持应用程序中的Windows XP和Vista，请使用OLDCEF4Delphi。

用法

在首次使用CEF4Delphi之前，强烈建议阅读关于CEF3和 Chromium设计文档的所有信息。

CEF3使用多个进程，并且运行相同的可执行文件或不同的进程来创建它们。这就是为什么在TApplication运行之前需要对CEF3进行初始化的原因。

CEF4Delphi使用TCEFApplication类中的GlobalCEFApp简化了所有CEF3 初始化。

由于TApplication必须只在主进程中初始化和运行，所以有必要创建GlobalCEFApp并调用GlobalCEFApp.StartMainProcess来检测这是否是主进程。

Delphi应用程序在.Dpr文件中使用此代码：

program Project1;
 
uses

  Vcl.Forms,

  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin

  Application.Initialize;

  Application.MainFormOnTaskbar := True;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.

要包含CEF4Delphi，您只需将uCEFApplication 和WinApi.Windows添加到USER子句，创建GlobalCEFApp全局变量，调用GlobalCEFApp.StartMainProcess函数和GlobalCEFApp在最后一步中。您还必须添加SetPEFlags指令。

program Project1;
 
uses

  Vcl.Forms,

  WinApi.Windows,

  uCEFApplication,

  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
begin

  GlobalCEFApp := TCefApplication.Create;
 
  if GlobalCEFApp.StartMainProcess then

    begin

      Application.Initialize;

      Application.MainFormOnTaskbar := True;

      Application.CreateForm(TForm1, Form1);

      Application.Run;

    end;
 
  GlobalCEFApp.Free;

end.