简介这份资源面向Delphi开发者提供基于CEF4Delphi封装的Chrome浏览器控件集成方案帮助在桌面应用中嵌入Chromium内核实现现代Web渲染与本地代码的交互。包内共503个文件以pas单元源码、dfm窗体、dpr与dproj工程文件为主辅以bat构建脚本、inc头文件及少量html、png等示例素材压缩包约1.66MB结构完整便于直接编译研究。已有1877人学习下载。读者可从中了解TChromium控件的属性、方法与事件用法掌握URL加载、导航拦截、加载错误处理与标题更新等常见场景并参考JavaScript与Delphi互调、自定义界面隐藏工具栏、SSL与CORS安全设置、Cookie策略及缓存与多线程渲染配置等实现思路适合需要为Delphi项目补充内嵌浏览器能力的中级开发者参考。1. 把 Chrome 内核塞进 Delphi 窗体一个老桌面栈的续命方案手上维护着一套 Delphi 桌面系统业务逻辑稳如老狗唯独内嵌浏览器还停在 IE 控件时代前端页面一升级就白屏客户电话能打爆。换整套 UI 框架不现实重写成本够养一个团队半年。这时候「Chrome 浏览器控件 Delphi 版」这类资源就成了救命稻草——它把 Chromium 内核封装成 Delphi 能直接拖上窗体的控件让老项目在不推翻现有架构的前提下拿到现代浏览器的渲染能力。适合的人群很明确还在用 Delphi 维护存量桌面产品的开发者尤其是需要内嵌网页、做混合界面、或者对接第三方 Web 页面的场景。这篇不聊情怀只拆这个控件包怎么落地、参数怎么调、哪些坑我踩过。2. 控件选型与工程接入为什么不是简单拖一个 TChromium 就完事Delphi 生态里能封 Chromium 的方案不止一种常见的有基于 CEFChromium Embedded Framework的封装、基于 WebView2 的桥接、以及一些商业控件库。这份资源走的是 CEF 路线原因很实际CEF 对 Delphi 的兼容层成熟能拿到完整的渲染进程隔离、JS 与原生互调、自定义协议这些能力而 WebView2 在部分老版本 Delphi 上类型库导入会翻车。选型时先确认三件事你的 Delphi 版本XE 以上基本都能用老版本要看封装层是否带了对应的 DCU、目标系统位数32 位和 64 位要分别放对应的 CEF 二进制、以及是否需要离线部署CEF 的运行时文件不小得提前规划安装包体积。2.1 工程目录怎么摆运行时文件放哪CEF 的坑有一半出在文件路径上。控件本身是设计期组件但运行时它要去加载libcef.dll、icudtl.dat、locales目录、resources资源包这些文件。我一般会在工程根目录下建一个cef子目录把整套运行时文件原样放进去然后在程序启动最早期设置路径。顺序很关键必须在创建任何窗体之前完成初始化否则控件构造时会找不到资源直接抛异常。// 工程文件 dpr 中在 Application.Initialize 之前插入 program MyApp; uses Vcl.Forms, uCEFApplication, // 控件包提供的初始化单元 Unit1 in Unit1.pas {Form1}; {$R *.res} begin // 指定 CEF 运行时文件所在目录必须用绝对路径 GlobalCEFApp.FrameworkDirPath : ExtractFilePath(ParamStr(0)) cef; GlobalCEFApp.ResourcesDirPath : ExtractFilePath(ParamStr(0)) cef; GlobalCEFApp.LocalesDirPath : ExtractFilePath(ParamStr(0)) cef\locales; // 单进程模式仅用于调试正式版务必保持多进程 GlobalCEFApp.SingleProcess : False; // 初始化必须在窗体创建前完成 GlobalCEFApp.StartMainProcess; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.这段代码的逻辑是FrameworkDirPath告诉 CEF 去哪里找动态库ResourcesDirPath指向resources.pak等资源LocalesDirPath指向语言包。三个路径分开设是因为有些封装版本会默认去系统目录找导致开发机能跑、客户机报错。SingleProcess设成 False 是血泪经验——单进程模式下渲染崩溃会直接带走整个宿主程序多进程模式下子进程挂了主界面还能弹个错误提示。参数上唯一要留意的是路径末尾不要带反斜杠部分版本对尾部斜杠处理不一致。2.2 窗体上放控件与第一个页面加载设计期把控件拖到窗体上之后属性面板里最常改的是DefaultURL、ChromeContextMenu、Options。DefaultURL设成about:blank比较稳妥真正的地址在OnCreate之后用代码加载这样能控制加载时机。ChromeContextMenu建议关掉默认右键菜单里有一堆调试项交付给客户看着不专业。加载页面用LoadURL但要注意它必须在浏览器初始化完成事件之后调用否则会静默失败。procedure TForm1.FormCreate(Sender: TObject); begin // 关闭默认右键菜单避免暴露调试入口 Chromium1.ChromeContextMenu : False; // 禁用拖拽文件到页面防止误操作触发导航 Chromium1.Options.DragDropEnabled : False; end; procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const httpStatusCode: Integer); begin // 页面加载完成后注入一段脚本隐藏滚动条 if frame nil then frame.ExecuteJavaScript(document.body.style.overflowhidden;, , 0); end; procedure TForm1.btnOpenClick(Sender: TObject); begin // 加载本地 HTML 或远程地址路径用 file:/// 前缀 Chromium1.LoadURL(file:///C:/app/web/index.html); end;LoadEnd事件里拿到的frame是主框架ExecuteJavaScript的第三个参数是脚本起始行号填 0 即可。这里注入脚本隐藏滚动条是个小技巧混合界面里网页区域通常不需要滚动条交给外层 Delphi 面板控制更协调。LoadURL对本地文件要求用file:///三斜杠格式少一个斜杠在部分 Windows 版本上会被当成相对路径解析页面直接 404。3. JS 与 Delphi 双向通信把网页变成原生界面的一部分控件能显示网页只是第一步真正让混合界面好用的是双向通信。CEF 提供两条路一条是 Delphi 向页面注入 JS 并取返回值另一条是页面通过注册的扩展对象回调 Delphi 方法。前者适合「原生触发网页动作」后者适合「网页请求原生能力」比如调起本地文件选择、读写配置、触发打印。两条路都要注意线程问题——CEF 的回调不在主线程直接操作 VCL 控件会崩必须用TThread.Synchronize或Queue切回来。3.1 注册扩展对象让网页调 Delphi扩展对象需要在浏览器创建之前注册注册时机错了网页里就找不到这个对象。常见做法是在OnBeforeBrowserInitialized或者初始化配置阶段把对象挂上去。下面这个例子注册一个nativeBridge对象网页里调nativeBridge.ShowMessage(hi)就能弹原生对话框。type TNativeBridge class(TCefv8HandlerOwn) protected function Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override; end; function TNativeBridge.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; begin Result : True; if name ShowMessage then begin // 回调不在主线程必须同步回主线程再操作 VCL TThread.Synchronize(nil, procedure begin ShowMessage(arguments[0].GetStringValue); end); retval : TCefv8ValueRef.NewNull; end else Result : False; end; procedure TForm1.Chromium1BeforeBrowserInitialized(Sender: TObject); var bridge: ICefv8Value; begin // 把 handler 包装成 JS 对象并挂到 window 上 bridge : TCefv8ValueRef.NewObject(nil); bridge.SetValueByKey(ShowMessage, TCefv8ValueRef.NewFunction(ShowMessage, TNativeBridge.Create), 0); Chromium1.Browser.MainFrame.ExecuteJavaScript( window.nativeBridge {};, , 0); end;这段的关键在TThread.Synchronize——Execute方法运行在 CEF 的渲染线程直接ShowMessage在调试期可能侥幸不崩上线后偶发访问违例就是这么来的。arguments数组里取参数要用GetStringValue如果网页传的是数字得用GetIntValue类型对不上会返回空串而不是报错排查起来很费劲。注册时机上BeforeBrowserInitialized里挂对象在部分封装版本里偏早稳妥做法是监听OnLoadStart再注入一次双保险。3.2 Delphi 主动调网页函数并拿返回值反方向调用用ExecuteJavaScript只能发不能收要拿返回值得用EvaluateScript或者带回调的ExecuteJavaScriptWithResult。我一般封装一个同步等待的小工具把异步回调转成同步结果方便业务代码里直接写if EvalJS(getUser()) admin then。function TForm1.EvalJS(const script: string): string; var done: Boolean; resultStr: string; begin done : False; resultStr : ; Chromium1.Browser.MainFrame.ExecuteJavaScriptWithResult(script, , procedure(const value: ICefv8Value) begin if value nil then resultStr : value.GetStringValue; done : True; end); // 简单自旋等待正式代码建议加超时 while not done do Application.ProcessMessages; Result : resultStr; end;自旋等待里调Application.ProcessMessages是为了让 CEF 的回调有机会执行但这是个双刃剑——如果网页脚本里又触发了原生调用可能造成重入。正式项目里我会加一个超时计数超过 3 秒直接返回空串并记日志。ExecuteJavaScriptWithResult的回调参数是ICefv8Value取字符串用GetStringValue取布尔用GetBoolValue别混用。4. 避坑与排查那些让程序在客户机上闪退的细节控件在开发机上跑得好好的一到客户机就各种幺蛾子这类问题占了实际工作量的七成。下面几条是我踩过并且反复遇到的按「现象 → 原因 → 解决」记下来照着排查能省不少时间。4.1 启动即闪退事件查看器里只有 0xc0000005现象是双击程序图标窗口还没出来进程就没了Windows 事件日志里一条访问违例。原因多半是 CEF 运行时文件缺失或位数不匹配——32 位程序配了 64 位的libcef.dll或者locales目录整个没打包。解决方法是先确认编译目标平台再把cef目录完整拷到输出目录用依赖查看工具核对libcef.dll的位数。打包安装程序时记得把cef目录设为「始终复制」别用「较新则复制」否则升级时旧文件残留一样崩。4.2 页面白屏但进程正常日志里报 GPU 相关错误现象是窗体出来了网页区域一片白任务管理器里能看到子进程在跑。原因是部分客户机显卡驱动老旧CEF 的 GPU 加速初始化失败。解决办法是在初始化前禁用 GPU 加速牺牲一点渲染性能换稳定。在StartMainProcess之前加一行GlobalCEFApp.DisableGpu : True;即可。如果只是个别机器有问题也可以做成配置项让现场人员按需关闭。4.3 中文输入法在网页输入框里打不出字现象是原生 Delphi 输入框正常网页里的输入框切了中文输入法却只能出英文。原因是 CEF 的输入法桥接在某些封装版本里默认没开或者和宿主窗体的 IME 处理冲突。解决方法是确认控件属性里Options.OffScreenRendering为 False离屏渲染模式下 IME 支持很差并检查封装层是否带了 IME 处理单元。实在不行就在网页侧用compositionstart事件做兜底把输入内容通过扩展对象回传原生处理。4.4 关闭窗体时进程残留任务管理器里一堆子进程现象是主窗体关了但进程列表里还能看到好几个同名进程挂着。原因是 CEF 的多进程模型需要显式关闭直接Application.Terminate会跳过清理。解决办法是在窗体OnClose里先调Chromium1.CloseBrowser(True)再在OnDestroy里调GlobalCEFApp.Free。顺序反了会死锁这个坑我调了一下午才定位到。提示调试期可以把GlobalCEFApp.LogFile指向一个本地文件CEF 内部错误都会写进去比盲猜快得多。5. 进阶自定义协议与离线资源加载的稳定打法做到这一步控件已经能跑起来了但真正让混合界面体验接近原生应用的是自定义协议。默认情况下网页加载本地资源走file:///跨域限制多、路径拼接容易出错而且客户机上的绝对路径不可控。用RegisterSchemeHandlerFactory注册一个自定义协议比如app://把资源请求映射到程序目录下的web文件夹路径问题一次性解决还能顺手做缓存和权限校验。type TAppSchemeHandler class(TCefResourceHandlerOwn) protected function ProcessRequest(const request: ICefRequest; const callback: ICefCallback): Boolean; override; procedure GetResponseHeaders(const response: ICefResponse; var length: Int64; var redirectUrl: ustring); override; function ReadResponse(const dataOut: Pointer; bytesToRead: Integer; var bytesRead: Integer; const callback: ICefCallback): Boolean; override; end; procedure TForm1.RegisterAppScheme; begin // 注册 app:// 协议必须在浏览器创建前调用 GlobalCEFApp.RegisterSchemeHandlerFactory(app, , TAppSchemeHandlerFactory.Create); end;ProcessRequest里根据request.URL解析出相对路径拼上程序目录下的web文件夹读文件内容塞进内存流GetResponseHeaders里根据扩展名设置Content-Type.html给text/html.js给application/javascript.wasm给application/wasm类型设错会导致脚本不执行但控制台不报错属于玄学级问题。ReadResponse负责分块吐数据注意bytesRead要正确赋值返回 False 表示读取结束。这套方案落地后网页里所有资源引用都写成app://local/index.html这种形式开发环境和生产环境路径一致再也不用在代码里判断「是不是调试模式」。验证方法很简单在网页控制台里fetch(app://local/config.json)能拿到内容说明协议注册成功拿不到就检查RegisterSchemeHandlerFactory的调用时机十有八九是放在了窗体创建之后。从那以后我每次接这类控件项目都会先把「运行时文件完整性检查」写进程序启动流程——启动时核对cef目录下几个关键文件是否存在、位数是否匹配缺了就直接弹提示而不是等它闪退。这个习惯帮我挡掉了至少一半的现场故障。希望帮到你。本文还有配套的精品资源点击获取