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 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

56
source/uCEFBinaryValue.pas
View File

@@ -144,38 +144,80 @@ end;
// **********************************************
function cef_binary_value_is_valid(self: PCefBinaryValue): Integer; stdcall;
var
TempObject : TObject;
begin
Result := Ord(TCefBinaryValueOwn(CefGetObject(self)).IsValid);
Result := Ord(False);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
Result := Ord(TCefBinaryValueOwn(TempObject).IsValid);
end;
function cef_binary_value_is_owned(self: PCefBinaryValue): Integer; stdcall;
var
TempObject : TObject;
begin
Result := Ord(False);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
Result := Ord(TCefBinaryValueOwn(TempObject).IsOwned);
end;
function cef_binary_value_is_same(self, that: PCefBinaryValue):Integer; stdcall;
var
begin
TempObject : TObject;
begin
Result := Ord(False);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
Result := Ord(TCefBinaryValueOwn(TempObject).IsSame(TCefBinaryValueRef.UnWrap(that)));
end;
function cef_binary_value_is_equal(self, that: PCefBinaryValue): Integer; stdcall;
function cef_binary_value_is_equal(self, that: PCefBinaryValue): Integer; stdcall;
var
TempObject : TObject;
begin
Result := Ord(False);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
Result := Ord(TCefBinaryValueOwn(TempObject).IsEqual(TCefBinaryValueRef.UnWrap(that)));
end;
function cef_binary_value_copy(self: PCefBinaryValue): PCefBinaryValue; stdcall;
var
TempObject : TObject;
begin
Result := nil;
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
end;
Result := CefGetData(TCefBinaryValueOwn(TempObject).Copy);
end;
function cef_binary_value_get_size(self: PCefBinaryValue): NativeUInt; stdcall;
var
TempObject : TObject;
begin
Result := 0;
TempObject := CefGetObject(self);
Result := TCefBinaryValueOwn(CefGetObject(self)).GetSize;
if (TempObject <> nil) and (TempObject is TCefBinaryValueOwn) then
Result := TCefBinaryValueOwn(TempObject).GetSize;
end;
function cef_binary_value_get_data(self: PCefBinaryValue; buffer: Pointer; buffer_size, data_offset: NativeUInt): NativeUInt; stdcall;
var