简介CEF4Delphi控件是一套面向Delphi开发者的Chromium谷歌内核浏览器集成方案适合需要在桌面应用中嵌入现代网页渲染能力的开发者覆盖从Delphi 7到Delphi 10.2的多个版本作者已亲自测试调试安装正常。资源包共462个文件约1.47MB以pas源码、dfm窗体、dpr与dproj工程文件、bat批处理脚本、inc与lrs资源文件为主另含dpk与lpk包文件、html与png示例素材及doc帮助文档结构完整便于按模块查阅。已有785人学习下载说明其在Delphi社区具有一定参考价值。包内附带详细帮助文档可辅助理解控件安装、框架配置与调用方式同时需注意Chromium 32位与64位框架需另行获取描述中已给出对应下载入口便于读者按需补齐运行依赖。整体适合希望以较低成本为Delphi项目引入Chromium内核浏览能力的开发者参考使用。1. CEF4Delphi控件把 Chromium 塞进 Delphi 窗口后我踩过的第一个坑如果你用 Delphi 做过桌面端又恰好被要求「界面里嵌一个浏览器、还要能双向调 JS」那你大概率绕不开 CEF4Delphi 控件。它本质是一套 Delphi 对 Chromium Embedded FrameworkCEF的封装让你在 VCL 或 FireMonkey 窗体里放一个基于 Chromium 内核的浏览器控件而不是去用系统自带的 TWebBrowser——后者在不少机器上还是老内核页面渲染和 JS 支持都跟不上。我第一次接这个需求时天真地以为拖个控件、设个 URL 就完事结果程序一启动就白屏日志里全是进程通信失败。后来才明白CEF 是多进程架构主进程、渲染进程、GPU 进程要各自加载对应的库文件少一个 dll 或者路径不对控件就是个黑匣子。这篇笔记就按「它是什么、怎么跑起来、参数怎么调、坑在哪」的顺序把 CEF4Delphi 控件的落地路径拆开讲适合正在选型或已经上手但被卡住的 Delphi 开发者。2. CEF4Delphi 控件的运行机制与最小可运行工程2.1 为什么它不是「一个控件」而是一套进程模型很多人第一次接触 CEF4Delphi 控件会把它当成普通 VCL 控件来理解拖到窗体上、设属性、写事件。但真正跑起来你会发现浏览器内容并不是画在你的主进程里的而是由独立的渲染子进程绘制后再把位图合成到你的窗口上。这就是 Chromium 的多进程架构主进程负责窗口和消息循环渲染进程负责解析 HTML/CSS 和执行 JSGPU 进程负责合成。CEF4Delphi 控件只是这套架构在 Delphi 侧的「遥控器」它通过进程间通信跟子进程交换指令和数据。这个模型带来两个直接后果。第一你必须把 CEF 的二进制文件libcef.dll、chrome_elf.dll、icudtl.dat、locales 目录等放到程序能找到的位置通常是 exe 同级的bin目录或者系统 PATH 里。第二任何跟浏览器内容相关的操作比如执行 JS、读取 DOM都不能直接同步返回必须走回调或事件。新手最容易在这里翻车在主线程里死等一个 JS 执行结果结果把消息循环堵死界面直接卡成白屏。常见做法是在项目里单独建一个bin目录存放 CEF 二进制然后在代码里通过GlobalCEFApp的FrameworkDirPath和ResourcesDirPath显式指定路径避免依赖系统环境变量。这样打包发布时整个bin目录跟着 exe 一起走换机器也不会因为找不到 dll 而启动失败。2.2 最小工程从零加载一个本地页面下面这段代码是一个最小可运行的 VCL 工程骨架展示 CEF4Delphi 控件的初始化顺序。注意初始化必须在窗体创建之前完成否则控件拿不到全局上下文。program CefMiniDemo; uses Vcl.Forms, uCEFApplication, // CEF 全局应用管理 uCEFConstants, Unit1 in Unit1.pas {Form1}; {$R *.res} begin // 1. 创建全局 CEF 应用对象整个进程只允许一个 GlobalCEFApp : TCefApplication.Create; // 2. 指定 CEF 二进制所在目录避免依赖系统 PATH GlobalCEFApp.FrameworkDirPath : ExtractFilePath(ParamStr(0)) bin; GlobalCEFApp.ResourcesDirPath : ExtractFilePath(ParamStr(0)) bin; GlobalCEFApp.LocalesDirPath : ExtractFilePath(ParamStr(0)) bin\locales; // 3. 单实例模式下缓存目录必须可写否则启动即失败 GlobalCEFApp.Cache : ExtractFilePath(ParamStr(0)) cache; // 4. 启动子进程并进入消息循环 if GlobalCEFApp.StartMainProcess then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; // 5. 退出时释放顺序不能反 GlobalCEFApp.Free; end.这段代码的关键点在于StartMainProcess的返回值判断。如果它返回 False说明当前进程是 CEF 拉起的子进程不应该再创建窗体直接退出即可。很多白屏问题就是因为没做这个判断子进程也去创建窗体导致消息循环错乱。参数说明FrameworkDirPath指向 libcef.dll 所在目录ResourcesDirPath指向 icudtl.dat 等资源文件LocalesDirPath必须指向 locales 子目录里面是各语言的 .pak 文件。Cache目录要确保当前用户有写权限放在 Program Files 下会因为没有写权限而启动失败这是血泪经验。2.3 在窗体里放控件并加载页面窗体侧就简单很多放一个TChromium和一个TCEFWindowParent在FormCreate里把两者关联起来。procedure TForm1.FormCreate(Sender: TObject); begin // 把 Chromium 实例绑定到窗口容器上 Chromium1.WindowParent : CEFWindowParent1; // 加载本地 HTML也可以用 https 地址 Chromium1.LoadURL(file:/// ExtractFilePath(ParamStr(0)) index.html); end;WindowParent是承载浏览器绘制结果的容器尺寸变化时要同步调整它的大小否则会出现内容不跟随窗口缩放的问题。LoadURL支持本地文件和远程地址本地文件路径要用file:///前缀并且注意反斜杠要转成正斜杠否则加载会静默失败。3. CEF4Delphi 控件的核心参数与双向通信实现3.1 三个必调参数缓存、语言、GPUCEF4Delphi 控件的默认配置能跑但要在生产环境用有三个参数我一般会显式设置。第一个是缓存路径。默认缓存可能落在系统临时目录多用户环境下会互相干扰而且临时目录被清理后登录态就丢了。显式设置GlobalCEFApp.Cache到一个程序专属目录能保证 Cookie、LocalStorage 稳定持久化。第二个是语言。GlobalCEFApp.Locale : zh-CN会影响页面里的navigator.language和部分日期格式。如果不设某些依赖语言判断的前端库会走到英文分支出现中英文混排的诡异现象。第三个是 GPU 加速。在部分老显卡或远程桌面环境下GPU 进程会崩溃导致白屏。可以通过GlobalCEFApp.DisableGPU : True关掉硬件加速用软件渲染兜底。代价是滚动和动画会略卡但稳定性优先。参数作用建议值Cache缓存与登录态存储目录程序目录下 cacheLocale页面语言环境zh-CNDisableGPU关闭硬件加速远程桌面/老显卡设 TrueFrameworkDirPathCEF 二进制目录exe 同级 binLogFile调试日志路径排查阶段必设3.2 Delphi 调 JS用 ExecuteJavaScript 拿返回值从 Delphi 侧执行 JS 是最常见的需求比如填充表单、触发页面按钮。CEF4Delphi 控件提供ExecuteJavaScript但它不直接返回结果结果要通过事件回调拿。procedure TForm1.btnFillClick(Sender: TObject); var Script: string; begin // 拼接 JS注意字符串转义 Script : document.getElementById(username).value demo; document.getElementById(username).value;; // 第二个参数是执行所在的 frame主 frame 传空 Chromium1.ExecuteJavaScript(Script, , 0); end; procedure TForm1.Chromium1JavaScriptResult(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const script: string; aResult: ICefValue); begin // 这里拿到 JS 的返回值 if Assigned(aResult) then Memo1.Lines.Add(JS 返回 aResult.GetString); end;逻辑说明ExecuteJavaScript是异步的调用后立即返回真正的结果在JavaScriptResult事件里。参数表示主 frame如果页面里有 iframe要传对应 frame 的标识。aResult是 ICefValue取值前必须判断是否 Assigned否则空指针会导致崩溃。参数说明第三个参数是起始行号一般传 0。如果 JS 里有语法错误不会抛异常而是静默失败所以调试阶段建议在 JS 末尾加console.log再通过控制台事件把日志打到 Delphi 的 Memo 里。3.3 JS 调 Delphi注册扩展对象反向调用需要注册一个扩展对象让 JS 能通过window.xxx访问到 Delphi 的方法。// 定义一个继承自 TCefv8HandlerOwn 的处理器 type TMyV8Handler class(TCefv8HandlerOwn) protected function Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override; end; function TMyV8Handler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; begin Result : True; if name saveData then begin // 从 JS 传来的参数里取值 if Length(arguments) 0 then Form1.Memo1.Lines.Add(收到 JS 数据 arguments[0].GetString); retval : TCefv8ValueRef.NewString(ok); end; end; // 在渲染进程创建完成后注册 procedure TForm1.Chromium1RenderProcessCreated(Sender: TObject; const browser: ICefBrowser); var Handler: ICefv8Handler; begin Handler : TMyV8Handler.Create; Chromium1.RegisterExtension(myapp, Handler); end;逻辑说明RegisterExtension会把myapp挂到window上JS 里就能写window.myapp.saveData(hello)。Execute方法里根据name分发不同方法arguments是参数数组retval是返回值。注意这个注册必须在渲染进程创建后做太早会拿不到上下文。参数说明扩展名myapp要和 JS 里调用的对象名一致。返回值必须是 ICefv8Value 类型字符串用NewString数字用NewDouble布尔用NewBool。如果 JS 调用时参数个数不对要在 Execute 里做防御性判断否则会读到空指针。4. CEF4Delphi 控件的避坑与常见问题排查4.1 启动白屏日志报「failed to load resource」现象程序启动后窗口一片白没有任何内容日志里反复出现资源加载失败。原因CEF 二进制文件缺失或路径不对。最常见的是只复制了 libcef.dll漏掉了 icudtl.dat、chrome_elf.dll 或者整个 locales 目录。另一个原因是FrameworkDirPath设成了相对路径而工作目录被其他代码改过。解决把 CEF 发布包里的所有文件完整复制到 bin 目录用绝对路径设置FrameworkDirPath。排查阶段打开GlobalCEFApp.LogFile看日志里具体缺哪个文件缺什么补什么。4.2 子进程反复重启CPU 占用飙升现象任务管理器里看到多个同名进程不断创建又退出CPU 占用居高不下。原因StartMainProcess的返回值没判断子进程也去执行了窗体创建逻辑导致消息循环冲突子进程启动后立即崩溃主进程又不断拉起新的子进程。解决严格按照最小工程的写法if GlobalCEFApp.StartMainProcess then才创建窗体和运行消息循环否则直接退出。这是 CEF 多进程模型的基本要求漏掉必翻车。4.3 JS 执行没有反应也不报错现象调用ExecuteJavaScript后页面没有任何变化JavaScriptResult事件也不触发。原因执行时机太早页面还没加载完。CEF4Delphi 控件的LoadURL是异步的调用后立即执行 JS此时 DOM 还不存在脚本找不到元素就静默失败。解决把 JS 执行放到LoadEnd事件里确保页面加载完成后再操作 DOM。如果页面有异步渲染还要在 JS 里用setTimeout或MutationObserver等待目标元素出现。4.4 打包发布后换机器就启动失败现象开发机上一切正常拷到客户机器上就白屏或直接闪退。原因CEF 二进制依赖 Visual C 运行库客户机器没装对应的 redistributable。另外缓存目录如果设在 Program Files 下普通用户没有写权限也会启动失败。解决发布包里带上 VC 运行库安装程序或者用静态链接版本。缓存目录改到%LOCALAPPDATA%下用GetEnvironmentVariable动态获取保证每个用户都有写权限。4.5 关闭窗口时进程残留现象主窗口关了但任务管理器里还有 CEF 相关进程没退出。原因GlobalCEFApp.Free调用时机不对或者有子进程没收到关闭通知。CEF 需要主进程主动通知所有子进程退出否则它们会一直挂着。解决在窗体OnClose里先调用Chromium1.CloseBrowser(True)等浏览器完全关闭后再Application.Terminate。GlobalCEFApp.Free放在程序最后确保所有子进程已经回收。5. 用 CEF4Delphi 控件做混合开发一个可验证的进阶技巧前面讲的都是单页面加载和基础通信。实际项目里更常见的是「Delphi 主界面 内嵌网页做业务模块」的混合架构这时候一个关键问题是怎么让网页里的操作安全地触发 Delphi 侧的业务逻辑同时又不把整个 V8 扩展暴露给任意页面。我一般会用「白名单 消息路由」的方式。核心思路是不直接注册业务方法到 window 上而是注册一个统一入口网页通过postMessage风格的调用把「方法名 参数」传过来Delphi 侧根据当前加载的页面 URL 判断是否在白名单里再路由到对应处理函数。这样即使页面被注入了恶意脚本也无法调用未授权的方法。function TMyV8Handler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; var MethodName, PageUrl: string; begin Result : True; if name invoke then begin // 第一个参数是方法名第二个参数是数据 if Length(arguments) 2 then begin retval : TCefv8ValueRef.NewString(bad args); Exit; end; MethodName : arguments[0].GetString; PageUrl : Form1.Chromium1.Browser.MainFrame.Url; // 白名单校验只有指定页面才能调用业务方法 if Pos(app.local/business, PageUrl) 0 then begin retval : TCefv8ValueRef.NewString(forbidden); Exit; end; // 路由到具体处理逻辑 if MethodName saveOrder then retval : TCefv8ValueRef.NewString(Form1.HandleSaveOrder(arguments[1].GetString)) else retval : TCefv8ValueRef.NewString(unknown method); end; end;这段代码的关键在于PageUrl的校验。MainFrame.Url拿到的是当前主 frame 的地址只有匹配白名单前缀的页面才允许调用业务方法。HandleSaveOrder是 Delphi 侧的实际业务函数返回字符串结果给 JS。这样网页侧只需要写window.myapp.invoke(saveOrder, JSON.stringify(data))不用关心底层是 Delphi 还是别的宿主。验证方法也很直接在浏览器里手动改地址栏到一个非白名单页面再调用invoke应该返回forbidden。如果返回了正常结果说明白名单逻辑没生效需要检查Pos判断的字符串是否被大小写或编码影响。参数说明arguments[0]是方法名arguments[1]是数据建议统一用 JSON 字符串传递Delphi 侧用TJSONObject.ParseJSONValue解析避免多参数顺序错乱。返回值统一用字符串复杂结构也序列化成 JSONJS 侧再JSON.parse。我自己的习惯是任何暴露给网页的入口都先过一遍白名单哪怕当前只有一个页面会调用。因为混合架构里页面来源往往不止一个今天只有自己的页面明天可能就嵌了第三方的报表到时候再补校验代码已经散得到处都是。这个习惯帮我省过好几次后悔药。希望帮到你。本文还有配套的精品资源点击获取 
长河君 · 2026/10/14 1:16:20 · 阅读 1.2k CEF4Delphi控件实战：从白屏到双向通信的避坑指南
简介CEF4Delphi控件是一套面向Delphi开发者的Chromium谷歌内核浏览器集成方案适合需要在桌面应用中嵌入现代网页渲染能力的开发者覆盖从Delphi 7到Delphi 10.2的多个版本作者已亲自测试调试安装正常。资源包共462个文件约1.47MB以pas源码、dfm窗体、dpr与dproj工程文件、bat批处理脚本、inc与lrs资源文件为主另含dpk与lpk包文件、html与png示例素材及doc帮助文档结构完整便于按模块查阅。已有785人学习下载说明其在Delphi社区具有一定参考价值。包内附带详细帮助文档可辅助理解控件安装、框架配置与调用方式同时需注意Chromium 32位与64位框架需另行获取描述中已给出对应下载入口便于读者按需补齐运行依赖。整体适合希望以较低成本为Delphi项目引入Chromium内核浏览能力的开发者参考使用。1. CEF4Delphi控件把 Chromium 塞进 Delphi 窗口后我踩过的第一个坑如果你用 Delphi 做过桌面端又恰好被要求「界面里嵌一个浏览器、还要能双向调 JS」那你大概率绕不开 CEF4Delphi 控件。它本质是一套 Delphi 对 Chromium Embedded FrameworkCEF的封装让你在 VCL 或 FireMonkey 窗体里放一个基于 Chromium 内核的浏览器控件而不是去用系统自带的 TWebBrowser——后者在不少机器上还是老内核页面渲染和 JS 支持都跟不上。我第一次接这个需求时天真地以为拖个控件、设个 URL 就完事结果程序一启动就白屏日志里全是进程通信失败。后来才明白CEF 是多进程架构主进程、渲染进程、GPU 进程要各自加载对应的库文件少一个 dll 或者路径不对控件就是个黑匣子。这篇笔记就按「它是什么、怎么跑起来、参数怎么调、坑在哪」的顺序把 CEF4Delphi 控件的落地路径拆开讲适合正在选型或已经上手但被卡住的 Delphi 开发者。2. CEF4Delphi 控件的运行机制与最小可运行工程2.1 为什么它不是「一个控件」而是一套进程模型很多人第一次接触 CEF4Delphi 控件会把它当成普通 VCL 控件来理解拖到窗体上、设属性、写事件。但真正跑起来你会发现浏览器内容并不是画在你的主进程里的而是由独立的渲染子进程绘制后再把位图合成到你的窗口上。这就是 Chromium 的多进程架构主进程负责窗口和消息循环渲染进程负责解析 HTML/CSS 和执行 JSGPU 进程负责合成。CEF4Delphi 控件只是这套架构在 Delphi 侧的「遥控器」它通过进程间通信跟子进程交换指令和数据。这个模型带来两个直接后果。第一你必须把 CEF 的二进制文件libcef.dll、chrome_elf.dll、icudtl.dat、locales 目录等放到程序能找到的位置通常是 exe 同级的bin目录或者系统 PATH 里。第二任何跟浏览器内容相关的操作比如执行 JS、读取 DOM都不能直接同步返回必须走回调或事件。新手最容易在这里翻车在主线程里死等一个 JS 执行结果结果把消息循环堵死界面直接卡成白屏。常见做法是在项目里单独建一个bin目录存放 CEF 二进制然后在代码里通过GlobalCEFApp的FrameworkDirPath和ResourcesDirPath显式指定路径避免依赖系统环境变量。这样打包发布时整个bin目录跟着 exe 一起走换机器也不会因为找不到 dll 而启动失败。2.2 最小工程从零加载一个本地页面下面这段代码是一个最小可运行的 VCL 工程骨架展示 CEF4Delphi 控件的初始化顺序。注意初始化必须在窗体创建之前完成否则控件拿不到全局上下文。program CefMiniDemo; uses Vcl.Forms, uCEFApplication, // CEF 全局应用管理 uCEFConstants, Unit1 in Unit1.pas {Form1}; {$R *.res} begin // 1. 创建全局 CEF 应用对象整个进程只允许一个 GlobalCEFApp : TCefApplication.Create; // 2. 指定 CEF 二进制所在目录避免依赖系统 PATH GlobalCEFApp.FrameworkDirPath : ExtractFilePath(ParamStr(0)) bin; GlobalCEFApp.ResourcesDirPath : ExtractFilePath(ParamStr(0)) bin; GlobalCEFApp.LocalesDirPath : ExtractFilePath(ParamStr(0)) bin\locales; // 3. 单实例模式下缓存目录必须可写否则启动即失败 GlobalCEFApp.Cache : ExtractFilePath(ParamStr(0)) cache; // 4. 启动子进程并进入消息循环 if GlobalCEFApp.StartMainProcess then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; // 5. 退出时释放顺序不能反 GlobalCEFApp.Free; end.这段代码的关键点在于StartMainProcess的返回值判断。如果它返回 False说明当前进程是 CEF 拉起的子进程不应该再创建窗体直接退出即可。很多白屏问题就是因为没做这个判断子进程也去创建窗体导致消息循环错乱。参数说明FrameworkDirPath指向 libcef.dll 所在目录ResourcesDirPath指向 icudtl.dat 等资源文件LocalesDirPath必须指向 locales 子目录里面是各语言的 .pak 文件。Cache目录要确保当前用户有写权限放在 Program Files 下会因为没有写权限而启动失败这是血泪经验。2.3 在窗体里放控件并加载页面窗体侧就简单很多放一个TChromium和一个TCEFWindowParent在FormCreate里把两者关联起来。procedure TForm1.FormCreate(Sender: TObject); begin // 把 Chromium 实例绑定到窗口容器上 Chromium1.WindowParent : CEFWindowParent1; // 加载本地 HTML也可以用 https 地址 Chromium1.LoadURL(file:/// ExtractFilePath(ParamStr(0)) index.html); end;WindowParent是承载浏览器绘制结果的容器尺寸变化时要同步调整它的大小否则会出现内容不跟随窗口缩放的问题。LoadURL支持本地文件和远程地址本地文件路径要用file:///前缀并且注意反斜杠要转成正斜杠否则加载会静默失败。3. CEF4Delphi 控件的核心参数与双向通信实现3.1 三个必调参数缓存、语言、GPUCEF4Delphi 控件的默认配置能跑但要在生产环境用有三个参数我一般会显式设置。第一个是缓存路径。默认缓存可能落在系统临时目录多用户环境下会互相干扰而且临时目录被清理后登录态就丢了。显式设置GlobalCEFApp.Cache到一个程序专属目录能保证 Cookie、LocalStorage 稳定持久化。第二个是语言。GlobalCEFApp.Locale : zh-CN会影响页面里的navigator.language和部分日期格式。如果不设某些依赖语言判断的前端库会走到英文分支出现中英文混排的诡异现象。第三个是 GPU 加速。在部分老显卡或远程桌面环境下GPU 进程会崩溃导致白屏。可以通过GlobalCEFApp.DisableGPU : True关掉硬件加速用软件渲染兜底。代价是滚动和动画会略卡但稳定性优先。参数作用建议值Cache缓存与登录态存储目录程序目录下 cacheLocale页面语言环境zh-CNDisableGPU关闭硬件加速远程桌面/老显卡设 TrueFrameworkDirPathCEF 二进制目录exe 同级 binLogFile调试日志路径排查阶段必设3.2 Delphi 调 JS用 ExecuteJavaScript 拿返回值从 Delphi 侧执行 JS 是最常见的需求比如填充表单、触发页面按钮。CEF4Delphi 控件提供ExecuteJavaScript但它不直接返回结果结果要通过事件回调拿。procedure TForm1.btnFillClick(Sender: TObject); var Script: string; begin // 拼接 JS注意字符串转义 Script : document.getElementById(username).value demo; document.getElementById(username).value;; // 第二个参数是执行所在的 frame主 frame 传空 Chromium1.ExecuteJavaScript(Script, , 0); end; procedure TForm1.Chromium1JavaScriptResult(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const script: string; aResult: ICefValue); begin // 这里拿到 JS 的返回值 if Assigned(aResult) then Memo1.Lines.Add(JS 返回 aResult.GetString); end;逻辑说明ExecuteJavaScript是异步的调用后立即返回真正的结果在JavaScriptResult事件里。参数表示主 frame如果页面里有 iframe要传对应 frame 的标识。aResult是 ICefValue取值前必须判断是否 Assigned否则空指针会导致崩溃。参数说明第三个参数是起始行号一般传 0。如果 JS 里有语法错误不会抛异常而是静默失败所以调试阶段建议在 JS 末尾加console.log再通过控制台事件把日志打到 Delphi 的 Memo 里。3.3 JS 调 Delphi注册扩展对象反向调用需要注册一个扩展对象让 JS 能通过window.xxx访问到 Delphi 的方法。// 定义一个继承自 TCefv8HandlerOwn 的处理器 type TMyV8Handler class(TCefv8HandlerOwn) protected function Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override; end; function TMyV8Handler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; begin Result : True; if name saveData then begin // 从 JS 传来的参数里取值 if Length(arguments) 0 then Form1.Memo1.Lines.Add(收到 JS 数据 arguments[0].GetString); retval : TCefv8ValueRef.NewString(ok); end; end; // 在渲染进程创建完成后注册 procedure TForm1.Chromium1RenderProcessCreated(Sender: TObject; const browser: ICefBrowser); var Handler: ICefv8Handler; begin Handler : TMyV8Handler.Create; Chromium1.RegisterExtension(myapp, Handler); end;逻辑说明RegisterExtension会把myapp挂到window上JS 里就能写window.myapp.saveData(hello)。Execute方法里根据name分发不同方法arguments是参数数组retval是返回值。注意这个注册必须在渲染进程创建后做太早会拿不到上下文。参数说明扩展名myapp要和 JS 里调用的对象名一致。返回值必须是 ICefv8Value 类型字符串用NewString数字用NewDouble布尔用NewBool。如果 JS 调用时参数个数不对要在 Execute 里做防御性判断否则会读到空指针。4. CEF4Delphi 控件的避坑与常见问题排查4.1 启动白屏日志报「failed to load resource」现象程序启动后窗口一片白没有任何内容日志里反复出现资源加载失败。原因CEF 二进制文件缺失或路径不对。最常见的是只复制了 libcef.dll漏掉了 icudtl.dat、chrome_elf.dll 或者整个 locales 目录。另一个原因是FrameworkDirPath设成了相对路径而工作目录被其他代码改过。解决把 CEF 发布包里的所有文件完整复制到 bin 目录用绝对路径设置FrameworkDirPath。排查阶段打开GlobalCEFApp.LogFile看日志里具体缺哪个文件缺什么补什么。4.2 子进程反复重启CPU 占用飙升现象任务管理器里看到多个同名进程不断创建又退出CPU 占用居高不下。原因StartMainProcess的返回值没判断子进程也去执行了窗体创建逻辑导致消息循环冲突子进程启动后立即崩溃主进程又不断拉起新的子进程。解决严格按照最小工程的写法if GlobalCEFApp.StartMainProcess then才创建窗体和运行消息循环否则直接退出。这是 CEF 多进程模型的基本要求漏掉必翻车。4.3 JS 执行没有反应也不报错现象调用ExecuteJavaScript后页面没有任何变化JavaScriptResult事件也不触发。原因执行时机太早页面还没加载完。CEF4Delphi 控件的LoadURL是异步的调用后立即执行 JS此时 DOM 还不存在脚本找不到元素就静默失败。解决把 JS 执行放到LoadEnd事件里确保页面加载完成后再操作 DOM。如果页面有异步渲染还要在 JS 里用setTimeout或MutationObserver等待目标元素出现。4.4 打包发布后换机器就启动失败现象开发机上一切正常拷到客户机器上就白屏或直接闪退。原因CEF 二进制依赖 Visual C 运行库客户机器没装对应的 redistributable。另外缓存目录如果设在 Program Files 下普通用户没有写权限也会启动失败。解决发布包里带上 VC 运行库安装程序或者用静态链接版本。缓存目录改到%LOCALAPPDATA%下用GetEnvironmentVariable动态获取保证每个用户都有写权限。4.5 关闭窗口时进程残留现象主窗口关了但任务管理器里还有 CEF 相关进程没退出。原因GlobalCEFApp.Free调用时机不对或者有子进程没收到关闭通知。CEF 需要主进程主动通知所有子进程退出否则它们会一直挂着。解决在窗体OnClose里先调用Chromium1.CloseBrowser(True)等浏览器完全关闭后再Application.Terminate。GlobalCEFApp.Free放在程序最后确保所有子进程已经回收。5. 用 CEF4Delphi 控件做混合开发一个可验证的进阶技巧前面讲的都是单页面加载和基础通信。实际项目里更常见的是「Delphi 主界面 内嵌网页做业务模块」的混合架构这时候一个关键问题是怎么让网页里的操作安全地触发 Delphi 侧的业务逻辑同时又不把整个 V8 扩展暴露给任意页面。我一般会用「白名单 消息路由」的方式。核心思路是不直接注册业务方法到 window 上而是注册一个统一入口网页通过postMessage风格的调用把「方法名 参数」传过来Delphi 侧根据当前加载的页面 URL 判断是否在白名单里再路由到对应处理函数。这样即使页面被注入了恶意脚本也无法调用未授权的方法。function TMyV8Handler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; var MethodName, PageUrl: string; begin Result : True; if name invoke then begin // 第一个参数是方法名第二个参数是数据 if Length(arguments) 2 then begin retval : TCefv8ValueRef.NewString(bad args); Exit; end; MethodName : arguments[0].GetString; PageUrl : Form1.Chromium1.Browser.MainFrame.Url; // 白名单校验只有指定页面才能调用业务方法 if Pos(app.local/business, PageUrl) 0 then begin retval : TCefv8ValueRef.NewString(forbidden); Exit; end; // 路由到具体处理逻辑 if MethodName saveOrder then retval : TCefv8ValueRef.NewString(Form1.HandleSaveOrder(arguments[1].GetString)) else retval : TCefv8ValueRef.NewString(unknown method); end; end;这段代码的关键在于PageUrl的校验。MainFrame.Url拿到的是当前主 frame 的地址只有匹配白名单前缀的页面才允许调用业务方法。HandleSaveOrder是 Delphi 侧的实际业务函数返回字符串结果给 JS。这样网页侧只需要写window.myapp.invoke(saveOrder, JSON.stringify(data))不用关心底层是 Delphi 还是别的宿主。验证方法也很直接在浏览器里手动改地址栏到一个非白名单页面再调用invoke应该返回forbidden。如果返回了正常结果说明白名单逻辑没生效需要检查Pos判断的字符串是否被大小写或编码影响。参数说明arguments[0]是方法名arguments[1]是数据建议统一用 JSON 字符串传递Delphi 侧用TJSONObject.ParseJSONValue解析避免多参数顺序错乱。返回值统一用字符串复杂结构也序列化成 JSONJS 侧再JSON.parse。我自己的习惯是任何暴露给网页的入口都先过一遍白名单哪怕当前只有一个页面会调用。因为混合架构里页面来源往往不止一个今天只有自己的页面明天可能就嵌了第三方的报表到时候再补校验代码已经散得到处都是。这个习惯帮我省过好几次后悔药。希望帮到你。本文还有配套的精品资源点击获取