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.3239.1720.g1ad5e2a

Browse Source 
TChromium.DeleteCookies now uses the right cookie manager in custom request contexts.
This commit is contained in:
Salvador Díaz Fau
2018-01-05 11:59:25 +01:00
parent 9888fe3e46
commit 2f89f8a609
6 changed files with 36 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
source/uCEFChromium.pas
View File

@@ -459,7 +459,7 @@ type
procedure StartDownload(const aURL : ustring);
procedure SimulateMouseWheel(aDeltaX, aDeltaY : integer);
procedure DeleteCookies;
function DeleteCookies : boolean;
procedure RetrieveHTML(const aFrameName : ustring = ''); overload;
procedure RetrieveHTML(const aFrame : ICefFrame); overload;
procedure RetrieveHTML(const aFrameIdentifier : int64); overload;
@@ -1991,15 +1991,22 @@ begin
end;
end;
procedure TChromium.DeleteCookies;
function TChromium.DeleteCookies : boolean;
var
TempTask: ICefTask;
TempManager : ICefCookieManager;
begin
if Initialized then
Result := False;
if Initialized and (FBrowser.Host <> nil) and (FBrowser.Host.RequestContext <> nil) then
begin
if (FCookiDeletercb = nil) then FCookiDeletercb := TCefCustomDeleteCookiesCallback.Create(self);
TempTask := TCefDeleteCookiesTask.Create(FCookiDeletercb);
CefPostTask(TID_IO, TempTask);
TempManager := FBrowser.Host.RequestContext.GetDefaultCookieManager(nil);
if (TempManager <> nil) then
begin
if (FCookiDeletercb = nil) then FCookiDeletercb := TCefCustomDeleteCookiesCallback.Create(self);
Result := TempManager.DeleteCookies('', '', FCookiDeletercb);
end;
end;
end;