mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-04-17 06:57:13 +02:00
f764c39cc1
Remove the outdated license text. Use the main cef.inc file in all Delphi demos. Fixed issue #493.
39 lines
1000 B
ObjectPascal
39 lines
1000 B
ObjectPascal
unit uMyV8Handler;
|
|
|
|
interface
|
|
|
|
uses
|
|
uCEFv8Context, uCEFTypes, uCEFInterfaces, uCEFv8Value, uCEFv8Handler;
|
|
|
|
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;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uJSExecutingFunctions;
|
|
|
|
function TMyV8Handler.Execute(const name : ustring;
|
|
const obj : ICefv8Value;
|
|
const arguments : TCefv8ValueArray;
|
|
var retval : ICefv8Value;
|
|
var exception : ustring): Boolean;
|
|
begin
|
|
Result := False;
|
|
|
|
if (name = 'register') and
|
|
(length(arguments) = 1) and
|
|
arguments[0].IsFunction then
|
|
begin
|
|
GlobalCallbackFunc := arguments[0];
|
|
GlobalCallbackContext := TCefv8ContextRef.Current;
|
|
Result := True;
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|