pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Fix for issue #265 made by Matthias Kretschmar

Browse Source 
Added TChromium.AcceptCookies and TChormium.Block3rdPartyCookies
This commit is contained in:
Salvador Díaz Fau
2020-03-04 09:42:32 +01:00
parent 5649b6e661
commit f4dd3e69a3
5 changed files with 51 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas
View File

@ -167,6 +167,7 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.cache := 'cache';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
@ -181,7 +182,6 @@ procedure TCookieVisitorFrm.BrowserCreatedMsg(var aMessage : TMessage);
begin
CEFWindowParent1.UpdateSize;
AddressBarPnl.Enabled := True;
GoBtn.Click;
end;
procedure TCookieVisitorFrm.BrowserDestroyMsg(var aMessage : TMessage);
@ -319,10 +319,10 @@ begin
'/',
True,
True,
False,
now,
True,
now,
now,
now + 1,
False);
end;
end;
@ -384,6 +384,8 @@ procedure TCookieVisitorFrm.FormCreate(Sender: TObject);
begin
FCanClose := False;
FClosing := False;
Chromium1.DefaultURL := Edit1.Text;
end;
procedure TCookieVisitorFrm.FormShow(Sender: TObject);