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

19
source/uCEFSetCookieCallback.pas
View File

@@ -73,25 +73,30 @@ implementation
uses
uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_set_cookie_callback_on_complete(self: PCefSetCookieCallback; success: Integer); stdcall;
procedure cef_set_cookie_callback_on_complete(self : PCefSetCookieCallback;
success : Integer); stdcall;
var
TempObject : TObject;
begin
with TCefSetCookieCallbackOwn(CefGetObject(self)) do
OnComplete(success <> 0);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefSetCookieCallbackOwn) then
TCefSetCookieCallbackOwn(TempObject).OnComplete(success <> 0);
end;
constructor TCefSetCookieCallbackOwn.Create;
begin
inherited CreateData(SizeOf(TCefSetCookieCallback));
with PCefSetCookieCallback(FData)^ do
on_complete := cef_set_cookie_callback_on_complete;
PCefSetCookieCallback(FData).on_complete := cef_set_cookie_callback_on_complete;
end;
// TCefFastSetCookieCallback
constructor TCefFastSetCookieCallback.Create(
const callback: TCefSetCookieCallbackProc);
constructor TCefFastSetCookieCallback.Create(const callback: TCefSetCookieCallbackProc);
begin
inherited Create;
FCallback := callback;
end;