pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 3.3325.1755.g7c74b17

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-29 20:02:04 +02:00
parent 665957e132
commit 6fa50706a1
133 changed files with 7633 additions and 6008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
source/uCEFv8Accessor.pas
View File

@@ -76,23 +76,49 @@ implementation
uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFv8Value;
function cef_v8_accessor_get(self: PCefV8Accessor; const name: PCefString; obj: PCefv8Value; out retval: PCefv8Value; exception: PCefString): Integer; stdcall;
function cef_v8_accessor_get( self : PCefV8Accessor;
const name : PCefString;
obj : PCefv8Value;
out retval : PCefv8Value;
exception : PCefString): Integer; stdcall;
var
ret : ICefv8Value;
TempExcept : ustring;
TempObject : TObject;
begin
Result := Ord(False);
TempExcept := CefString(exception);
Result := Ord(TCefV8AccessorOwn(CefGetObject(self)).Get(CefString(name), TCefv8ValueRef.UnWrap(obj), ret, TempExcept));
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefV8AccessorOwn) then
Result := Ord(TCefV8AccessorOwn(TempObject).Get(CefString(name),
TCefv8ValueRef.UnWrap(obj),
ret,
TempExcept));
retval := CefGetData(ret);
exception^ := CefString(TempExcept);
end;
function cef_v8_accessor_put(self: PCefV8Accessor; const name: PCefString; obj: PCefv8Value; value: PCefv8Value; exception: PCefString): Integer; stdcall;
function cef_v8_accessor_put( self : PCefV8Accessor;
const name : PCefString;
obj : PCefv8Value;
value : PCefv8Value;
exception : PCefString): Integer; stdcall;
var
TempExcept : ustring;
TempObject : TObject;
begin
Result := Ord(False);
TempExcept := CefString(exception);
Result := Ord(TCefV8AccessorOwn(CefGetObject(self)).Put(CefString(name), TCefv8ValueRef.UnWrap(obj), TCefv8ValueRef.UnWrap(value), TempExcept));
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefV8AccessorOwn) then
Result := Ord(TCefV8AccessorOwn(TempObject).Put(CefString(name),
TCefv8ValueRef.UnWrap(obj),
TCefv8ValueRef.UnWrap(value),
TempExcept));
exception^ := CefString(TempExcept);
end;