mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-04-07 06:50:04 +02:00
f764c39cc1
Remove the outdated license text. Use the main cef.inc file in all Delphi demos. Fixed issue #493.
43 lines
1.0 KiB
ObjectPascal
43 lines
1.0 KiB
ObjectPascal
unit uMyV8Handler;
|
|
|
|
interface
|
|
|
|
uses
|
|
uCEFTypes, uCEFInterfaces, uCEFv8Value, uCEFv8Handler;
|
|
|
|
type
|
|
TMyV8Handler = class(TCefv8HandlerOwn)
|
|
protected
|
|
FMyParam : string;
|
|
|
|
function Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TMyV8Handler.Execute(const name : ustring;
|
|
const obj : ICefv8Value;
|
|
const arguments : TCefv8ValueArray;
|
|
var retval : ICefv8Value;
|
|
var exception : ustring): Boolean;
|
|
begin
|
|
if (name = 'GetMyParam') then
|
|
begin
|
|
retval := TCefv8ValueRef.NewString(FMyParam);
|
|
Result := True;
|
|
end
|
|
else
|
|
if (name = 'SetMyParam') then
|
|
begin
|
|
if (length(arguments) > 0) and arguments[0].IsString then
|
|
FMyParam := arguments[0].GetStringValue;
|
|
|
|
Result := True;
|
|
end
|
|
else
|
|
Result := False;
|
|
end;
|
|
|
|
|
|
end.
|