入式Chromium框架(简称CEF) 是一个由Marshall Greenblatt在2008建立的开源项目，它主要目的是开发一个基于Google Chromium的Webbrowser控件。CEF支持一系列的编程语言和操作系统，并且能很容易地整合到新的或已有的工程中去。

它的设计思想政治就是易用且兼顾性能。CEF基本的框架包含C/C++程序接口，通过本地库的接口来实现，而这个库则会隔离宿主程序和Chromium&Webkit的操作细节。它在浏览器控件和宿主程序之间提供紧密的整合，它支持用户插件，协议，javascript对象以及javascript扩展，宿主程序可以随意地控件资源下载，导航，下下文内容和打印等，并且可以跟Google Chrome浏览器一起，支持高性能和Html5 技术,

————————————————

版权声明：本文为CSDN博主「vx_xtfnpgy」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/xtfnpgy/article/details/46635225

框架接口：

CefBrowser是主要的浏览器窗口类，可以用静态的函数CreateBrowser() 和CreateBrowserSync() 来创建一个新的浏览器窗口。

CefFrame 代表一个浏览器窗口的框架，每个浏览器窗口有一个顶层的主框架，而这个主框架可以用GetMainFrame() 方法得到。

CefClient是主浏览器窗口的代表接口，这个接口做为参数传递给CreateBrowser()

CefRequest 代表URL，方法，发送数据和头文件等这样的请求。

CefSchemeHandleFactory 类是被用来处理像myscheme://mydomain类似客户计划的请求

CefReadHandler和CefWriteHandle是一个读写数据的简单接口。

CefV8Handler,CefV8Value和CefV8Context是被用来创建和访问JavaScript对象。

安装完成之后，新建一个Demo1,拖一个chromium控件出来并命名为chrm1，并把bin目录下所有文件，复制到你的程序的当前文件夹；

再拖一个button，双击加入代码：

chrm1.Browser.MainFrame.LoadUrl('about:blank'); //第一次必须先加载空白页，才能浏览其他网页

chrm1.Browser.MainFrame.LoadUrl('你要浏览的网址');

获取主框架 chrm1.browser.MainFrame

获取源代码 s := chrm1.browser.MainFrame.Source;

　　其次是填表，用过google浏览器的都知道，其填表功能实在强大，在webbrowser时代，一般都是获取表单元素的各种接口，然后设置其value、checked等属性，而在TChromium中，一切皆js，把想做的事都让js去执行吧，所以，用TChromium，js功力深厚的会轻松很多了。比如：

strTemp := 'document.forms[0].inmembername.value="User_Name";';   JavaExec(strTemp); strTemp := 'document.forms[0].inpassword.value="Password";'; JavaExec(strTemp); strTemp := 'document.forms[0].submit.click();'; chrm.browser.Frame['ff'].ExecuteJavaScript(str,'about:blank',0);; //想在哪一层frame执行，就调用哪一层

注入自定义的JS

首先必须在网页加载完成之后，才可以执行，不能为空页面！

str_js := 'var oScript = document.createElement( "script" );oScript.id = "sid";alert(oScript.id);';
chrm1.browser.MainFrame.ExecuteJavaScript(str_js,'about:blank',0);

delphi与JS交互（通过ceflib实现）

Cef3的Demo里面，有一个cefclient的例子，可以看下，关键代码：

TExtension = class(TCefv8HandlerOwn)
  private
    FTestParam: ustring;
  protected
    function Execute(const name: ustring; const obj: ICefv8Value;
      const arguments: TCefv8ValueArray; var retval: ICefv8Value;
      var exception: ustring): Boolean; override;  //重写Execute事件
  end;

遍历网页元素并点击JS:

遍历所有元素

var eles=document.all;
for(var i=0;i<eles.length;i++){var a;
var d=eles[i];
var s=eles[i].getAttribute("class");
if(s!=null){
if((s=='img')||(s=='J_ItemPic img')||(s=='productImg')){
a=eles[i];
a.click();break;
}}}

遍历所有A标签

下面代码为找到淘宝宝贝页面，成交记录元素的代码：

for(var i=0;i<document.getElementsByTagName("A").length;i++){var a;
var d=document.getElementsByTagName("A")[i];
var s=document.getElementsByTagName("A")[i].innerHTML;
if(s!=null){
if(s.indexOf("成交记录")>-1){
a=document.getElementsByTagName("A")[i];alert(a.innerHTML);
ClickElement(a); //由于chromium控件元素不支持click事件，所以需要自己重新绑定事件

break;
}}}

//-----------------点击元素的代码------------------------------

function ClickElement(AObj) {
var e = document.createEvent("MouseEvent");
e.initEvent("click", false, false);
AObj.dispatchEvent(e);
}

根据ID或Name获取元素

1.根据ID

var a=document.getElementById("元素id");

2.根据Name

var b=document.getElementsByName("元素name").item(0);

b.setAttribute("value","输入值");

3.根据TagName

var c=document.getElementsByTagName("INPUT")[0];

var d=document.getElementsByTagName("INPUT").item(0);

如何在Delphi中直接操作Document接口

Button1.OnClick：

chrm1.Browser.MainFrame.VisitDomProc(ChrmDomProc);

procedure ChrmDomProc(const doc : ICefDomDocument); //其他接口有待自己研究
var
s : string;
begin
doc.GetElementById('txtUsername').SetElementAttribute('Value','abc');
s := doc.GetElementById('txtUsername').GetValue;
showmessage(s);
end;

简单实例：

var ele;

ele=document.getElementById('ID');
ele=document.getElementsByName('Name').iteme(0);
ele=docuemnt.getElementsByTagName('TAG');

ele.click();

var e=document.createEvent("MouseEvent");
e.initEvent("Click",false,false);
ele.dispatchEvent(e);

var c=document.getElementsByTagName("INPUT").item(0);

模拟移动鼠标

// SetCursorPos(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); //相对屏幕位置
SetCursorPos(Self.Left+chrm1.Left+strtoint(Edit1.Text),Self.Top+chrm1.Top+strtoint(Edit2.Text)); //相对Chrm位置

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。

　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。

　　keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); //按下SHIFT键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),0,0);//按下R键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),KEYEVENTF_KEYUP,0);//放开R键。
　　keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);//放开SHIFT键。

Chromiume控件指定坐标点击

SendMessage(GetWindow(GetWindow(form1.chrm1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONDOWN,MK_LBUTTON, MAKELONG(StrToIntDef(Edit1.Text,100),StrToIntDef(Edit2.Text,100)));

SendMessage(GetWindow(GetWindow(form1.chrm1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONUP,MK_LBUTTON, MAKELONG(StrToIntDef(Edit1.Text,100),StrToIntDef(Edit2.Text,100)));

MK_LBUTTON可以改为0，MAKELONG可以改为MAKELParam

JS控制滚动条的位置：
window.scrollTo(x,y);

竖向滚动条置顶(window.scrollTo(0,0);
竖向滚动条置底 window.scrollTo(0,document.body.scrollHeight)
或： window.scrollByo(0,document.body.scrollHeight)

设置代理ip

ceflib.pas单元：

uses iniFiles;

procedure TInternalApp.OnBeforeCommandLineProcessing(const processType: ustring;
const commandLine: ICefCommandLine);
var
ini : TIniFile;
str_ip : string;
begin
ini := TIniFile.Create(StringReplace(ParamStr(0),'.exe','.ini',[]));
str_ip := ini.ReadString('default','Proxy','');
ini.Free;
commandLine.AppendSwitchWithValue('proxy-server',str_ip);
if Assigned(CefOnBeforeCommandLineProcessing) then
CefOnBeforeCommandLineProcessing(processType, commandLine);
end;

[default]
Proxy=218.189.26.20:8080
Proxy1=218.207.212.79:80

Proxy2=120.203.159.18:8118

TML Compiler 2023.20 (x64)

使用DecSoft HTML编译器，您可以轻松地将现代HTML应用程序（例如单页应用程序）编译为Microsoft Windows® 32和64位的独立可执行文件。您的应用程序文件永远不会提取到用户的计算机中，也不会在基于 Chromium 的现代浏览器环境中运行。

这是安全的

HTML 应用程序在 Windows 32 和 64 位可执行文件中编译Microsoft。除非你想要提取某些特定文件，否则永远不会在最终用户计算机中提取应用的文件。

没有限制！

把你的想象力放在这里。您几乎可以将任何现代HTML应用程序转换为Windows的可执行程序，例如电子书，调查，测验，杂志，演示文稿，相册和画廊，游戏等。

超级简单

您可以使用用户图形界面或命令行工具来编译您的 HTML 应用程序，只需指示应用程序“index.html”文件的路径即可。

看一看！

下一个视频展示了DecSoft HTML编译器的工作原理！在短短一分钟内，您可以看到DecSoft HTML编译器如何获取DecSoft App Builder的“数据库”应用程序示例，并将其转换为独立的Microsoft Windows可执行文件。

CLI支持

DecSoft HTML编译器除了可视化环境外，还包括命令行编译器。通过这种方式，您可以从命令行简单快速地编译应用程序。

非常简单的

DecSoft HTML编译器不会向用户显示任何界面元素。但这很好，因为这样您的应用程序看起来完全符合您的要求，没有任何不希望的干扰！

非常强大的

DecSoft HTML编译器为您的应用程序提供了一些外部Javascript，以超越现代HTML应用程序的功能，例如，提供编写文件，执行程序，浏览文件夹等的能力。

更新

内容* 将我们与 OpenAI 助手一起使用的 Delphi 库更新到最新版本。在所引用库的最新版本中，“[...]截至 13 年 2023 月 <> 日，API 已根据官方 [OpenAI] 版本进行了全面更新”。该库还有其他更改、修复和增强功能，因此我们的 OpenAI 助手。

.控制嵌入式Chrome浏览器

在上一节《1.基于Chrome开发浏览器》中，我们开发了一个简单的能够打开某个网页的浏览器。这一节我们来学习如何控制这个简单的浏览器。

2.1 控制浏览器

现在我们可以稍微扩展浏览器。浏览器的控制是通过 TChromium 实例完成的。浏览器中的一些常见操作是在浏览器历史中前进和后退。TChromium 类对此提供了一些方法：

• CanGoBack：如果浏览器在浏览历史记录中后退，则该函数返回 True。
• CanGoForward：如果浏览器在浏览历史记录中前进，则该函数返回 True。
• GoBack：在浏览器历史记录中后退一步。
• GoForward：在浏览器历史记录中前进一步。

使用这些功能，很容易在浏览器中添加 2 个按钮来回移动。为了演示这一点，我们在顶部面板 btnForward 和btnBack 中添加了2个按钮。它们的 OnClick 处理程序相当简单：

procedure TForm1.btnForwordClick(Sender: TObject);
begin
  if bwBrowser.Chromium.CanGoForward then
    bwBrowser.Chromium.GoForward;
end;

procedure TForm1.btnBackClick(Sender: TObject);
begin
  if bwBrowser.Chromium.CanGoBack then
    bwBrowser.Chromium.GoBack;
end; 

CanGoBack 和 CanGoForward 功能在界面中控制按钮的可用性，从而启用或禁用按钮，具体取决于是否有前进或后退的历史记录。

作为开发人员，能够显示浏览器开发人员工具很有用，这样我们可以检查 HTML，CSS 或调试网页中的 JavaScript 脚本。chromium 组件提供了一种方法可以帮助解决这个问题：ShowDevtools 和 HideDevTools 。

• ShowDevtools

该方法有 2 个参数：一个 point 和一个 TWinControl 实例。point 是浏览器窗口中的一个坐标；TWinControl 实例是将与开发人员工具一起放置的 TWinControl 实例。。后者可以为 Nil，在这种情况下，开发人员工具显示在浮动窗口中。

我们将创建一个底部对齐的面板，最初，面板是不可见的，当用户要求查看开发人员工具时，我们将使面板可见。当用户要求关闭开发人员工具时，我们要求浏览器关闭它们并隐藏面板。

procedure TForm1.btnToolClick(Sender: TObject);
begin
  if toolPanel.Visible then
  begin
    toolPanel.Visible:=False;
    bwBrowser.Chromium.CloseDevTools(toolPanel);
  end
  else
  begin
    toolPanel.Visible:=True;
    bwBrowser.Chromium.ShowDevTools(Point(0,0),toolPanel);
  end;
end;

2.2 浏览器事件

TChromium 组件有很多事件处理程序。这些被 CEFframework 用来通知你的程序很多事情。但是，使用这些事件处理程序时必须小心：浏览器在单独的进程中运行，因此所有通信都是通过发送消息进行的，这些消息由CEF4Delphi 转换为事件。这些事件到达一个不一定必须是主 UI 线程的线程。由于 LC L使用的 widgets 不是线程安全的，这意味着您不能仅在事件处理程序中更新 GUI。幸运的是，Lazarus 有一种可以用于此的机制：Appliction.QueueAsyncCall。

QueueAsyncCall 调度一个回调，当主应用程序循环完成处理挂起消息时，将调用该回调。因此，此回调在主应用程序线程中调用，因此可以用于更新 UI。

为了演示这一点，我们将使用一个简单的事件。TChromium 组件的 OnTitleChange 事件会在 HTML 页面中包含标题标签时通知您，并向您发送标题。我们可以使用此事件来更新表单的标题栏：

procedure TForm1.ChromiumTitleChange(Sender: TObject;
  const browser: ICefBrowser; const title: ustring);
begin
  if (length(title)>0) then
    FNewTitle:=UTF8enCode(title)
  else
    FNewTitle:=UTF8enCode(bwBrowser.Chromium.DocumentURL);
  Application.QueueAsyncCall(@DoSetTitle, 0);
end;

新标题保存到一个临时变量，并安排一个异步调用: DoSetTitle：

procedure TForm1.DoSetTitle(Data: PtrInt);
begin
  Caption:=FNewTitle;
end;   

由于此调用是在主线程中执行的，因此更新表单标题是安全的。