附加侦听器非常容易(仅在旧版本的 CEF 中):
procedure MouseDownCallback(const Event: ICefDomEvent);
begin
ShowMessage('Mouse down on '+Event.Target.Name);
end;
procedure AttachMouseDownListenerProc(const Doc: ICefDomDocument);
begin
Doc.Body.AddEventListenerProc('mousedown', True, MouseDownCallback);
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
ChromiumComponent.Browser.MainFrame.VisitDomProc(AttachMouseDownListenerProc);
end;
关于直接获取 JavaScript 结果的扩展函数:主干不包含它们(还没有?)。似乎正在进行中。
编辑:
通过扩展摆脱轮询:
您的 JavaScript 代码确实有可能使用扩展回调到您的 Delphi 代码中。此外,您可以将值从 JavaScript 发送到 Delphi - 这可以用于传输结果而无需轮询。
首先在您的initialization
部分中注册扩展,它会创建一个稍后在回调时使用的 JavaScript 对象:
procedure RegisterExtension;
var
Code:string;
begin
Code :=
'var cef;'+
'if (!cef)'+
' cef = {};'+
'if (!cef.test)'+
' cef.test = {};'+
'(function() {'+
' cef.test.__defineGetter__(''test_param'', function() {'+
' native function GetTestParam();'+
' return GetTestParam();'+
' });'+
' cef.test.__defineSetter__(''test_param'', function(b) {'+
' native function SetTestParam();'+
' if(b) SetTestParam(b);'+
' });'+
' cef.test.test_object = function() {'+
' native function GetTestObject();'+
' return GetTestObject();'+
' };'+
'})();';
CefRegisterExtension('example/v8', Code, TMyHandler.Create as ICefv8Handler);
end;
initialization
RegisterExtension;
TMyHandler
'sExecute
将在稍后调用。TMyHandler
定义为
TMyHandler = class(TCefv8HandlerOwn)
protected
function Execute(const name: ustring; const obj: ICefv8Value;
const arguments: TCefv8ValueArray; var retval: ICefv8Value;
var exception: ustring): Boolean; override;
end;
出于演示目的的实现现在很简单:
function TMyHandler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean;
begin
ShowMessage('Execute!');
end;
现在要测试从 JavaScript 调用 Delphi 只需执行以下操作:
ChromiumComponent.Browser.MainFrame.ExecuteJavaScript('cef.test.test_object().GetMessage();', 'about:blank', 0);
这应该会显示“执行!”的消息框。
我从名为cefclient的示例中提取了演示脚本,您可以在组件根目录的\demos\cefclient文件夹中找到该示例。扩展示例代码有点隐藏,并与其他演示代码混合在一起。但我们特别感兴趣的是TExtension.Execute
(相当于 my TMyHandler.Execute
)的实现。在那里您可以找到如何确定正在调用哪个函数以及如何传递参数。(链接到代码。)