cef delphi js 交互

cef4delphi是一个为Delphi语言提供Chromium Embedded Framework（CEF）的开源项目。CEF是一个由Google开发的基于Chromium的浏览器内核，使得开发者可以在自己的应用程序中嵌入功能强大的浏览器功能。 CEF4Delphi的主要目标是为Delphi开发者提供一个简单易用的接口，以便在自己的应用程序中集成CEF。通过使用CEF4Delphi，开发者可以方便地在自己的Delphi应用程序中嵌入通过HTML、CSS和JavaScript等技术构建的交互式网页内容。 在嵌入Flash方面，CEF4Delphi提供了一些便捷的方法和属性来实现Flash的嵌入和交互。开发者可以通过CEF4Delphi提供的接口，将Flash文件直接嵌入到自己的Delphi应用程序中，并且可以通过代码控制Flash的加载、播放、停止等操作。 嵌入Flash的好处是可以为应用程序增加丰富的多媒体内容和交互性，比如播放视频、音频、动画等。开发者可以通过Flash来实现一些特定的功能需求，比如在线游戏，多媒体播放器等。 总之，CEF4Delphi提供了一个简化的接口，使得开发者可以方便地将CEF和Flash技术集成到自己的Delphi应用程序中，从而增加应用程序的功能和娱乐性。

### CEF4Delphi 事件处理 CEF4Delphi 提供了丰富的接口用于处理各种事件，这些事件涵盖了从页面加载到用户交互等多个方面。为了更好地理解如何使用 CEF4Delphi 进行事件处理，下面将介绍一些常见的事件及其对应的处理方式。 #### 创建自定义事件处理器 当需要创建特定类型的事件处理器时，可以继承 `TCustomDisplayHandler` 类来实现定制化功能： ```delphi type TMyDisplayHandler = class(TCustomDisplayHandler) protected procedure OnAddressChange(const browser: ICefBrowser; const frame: ICefFrame; const url: ustring); override; procedure OnTitleChange(const browser: ICefBrowser; const title: ustring); override; end; procedure TMyDisplayHandler.OnAddressChange(const browser: ICefBrowser; const frame: ICefFrame; const url: ustring); begin inherited; ShowMessage('URL changed to ' + url); end; procedure TMyDisplayHandler.OnTitleChange(const browser: ICefBrowser; const title: ustring); begin inherited; Caption := title; end; ``` 这段代码展示了如何重载 `OnAddressChange` 和 `OnTitleChange` 方法，在地址栏变化或标题更新时触发相应的逻辑[^2]。 #### 注册全局事件监听器 如果希望在整个应用程序范围内捕获某些重要时刻，则可以通过设置全局事件处理器来进行统一管理： ```delphi uses cefvcl, ceflib; var MyEvents: TCefClientEvents; initialization GlobalCEFApp := TCefApplication.Create(nil); finalization FreeAndNil(GlobalCEFApp); // 设置客户端事件响应函数 function CreateClientEvents: ICefClientEvents; begin Result := TCefClientEvents.Create(Self); with Result do begin MustCreateDisplayHandler := True; if MustCreateDisplayHandler then DisplayHandler := TMyDisplayHandler.Create(Result); // 添加其他必要的事件处理器... end; end; ``` 这里的关键在于配置 `MustCreateDisplayHandler` 属性以及关联具体的显示处理器实例。 #### 处理 JavaScript 调用 除了上述提到的标准事件外，CEF4Delphi 还允许开发人员通过绑定 JavaScript 函数的方式实现在网页端调用本地 Delphi 方法的功能。这通常涉及到注册回调对象并指定可被外部访问的方法名列表： ```delphi type TForm1 = class(TForm) Chromium1: TChromium; procedure FormCreate(Sender: TObject); private { Private declarations } JSBinding: ICefJSDialogHandler; public { Public declarations } end; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var BindingInfo: PCefV8HandlerRegister; begin JSBinding := TCefFastJsdialogHandler.Create(Chromium1.Browser.MainFrame.JSContext); BindingInfo := JSBinding.RegisterMethod('callNativeCode', Self.CallFromJavaScript); end; function TForm1.CallFromJavaScript(const name: string; objArray: TCefJSONArray): Boolean; begin MessageBox(Handle, PChar(name), nil, MB_OK or MB_ICONINFORMATION); Result := true; end; ``` 此示例说明了怎样建立一个简单的桥梁以便于 Web 页面能够直接调用宿主程序内的过程[^4]。