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

Fixed GlobalCEFApp.DeleteCache and GlobalCEFApp.DeleteCookies

Browse Source 
Added mote Chrome URLs to uCEFConstants
This commit is contained in:
Salvador Díaz Fau
2024-12-18 11:21:16 +01:00
parent ba4ca3af3a
commit 54d4bd1243
3 changed files with 35 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
source/uCEFApplicationCore.pas
View File

@ -269,6 +269,7 @@ type
function GetApiHashCommit : ustring;
function GetExitCode : TCefResultCode;
function GetBrowserById(aID : integer) : ICefBrowser;
function GetCookiesDir(const aRootDirectory : string) : string;
{$IFDEF LINUX}
function GetXDisplay : PXDisplay;
function GetArgc : longint;
@ -376,7 +377,7 @@ type
function InitializeLibrary(const aApp : ICefApp) : boolean;
procedure RenameAndDeleteDir(const aDirectory : string; aKeepCookies : boolean = False);
procedure DeleteCacheContents(const aDirectory : string);
procedure DeleteCookiesDB(const aDirectory : string);
procedure DeleteCookiesDB(const aRootDirectory : string);
procedure MoveCookiesDB(const aSrcDirectory, aDstDirectory : string);
function MultiExeProcessing : boolean;
function SingleExeProcessing : boolean;
@ -2919,6 +2920,7 @@ end;
function TCefApplicationCore.InitializeLibrary(const aApp : ICefApp) : boolean;
var
TempArgs : TCefMainArgs;
TempRootDir : string;
begin
Result := False;
@ -2926,14 +2928,19 @@ begin
try
if (aApp <> nil) then
begin
if (length(FRootCache) > 0) then
TempRootDir := FRootCache
else
TempRootDir := FCache;
if FDeleteCache and FDeleteCookies then
RenameAndDeleteDir(FCache)
RenameAndDeleteDir(TempRootDir)
else
if FDeleteCookies then
DeleteCookiesDB(IncludeTrailingPathDelimiter(FCache) + 'Network')
DeleteCookiesDB(TempRootDir)
else
if FDeleteCache then
RenameAndDeleteDir(FCache, True);
RenameAndDeleteDir(TempRootDir, True);
InitializeSettings(FAppSettings);
InitializeCefMainArgs(TempArgs);
@ -2970,15 +2977,25 @@ begin
end;
end;
procedure TCefApplicationCore.DeleteCookiesDB(const aDirectory : string);
function TCefApplicationCore.GetCookiesDir(const aRootDirectory : string) : string;
begin
Result := IncludeTrailingPathDelimiter(aRootDirectory) + 'Default';
Result := IncludeTrailingPathDelimiter(Result) + 'Network';
Result := IncludeTrailingPathDelimiter(Result);
end;
procedure TCefApplicationCore.DeleteCookiesDB(const aRootDirectory : string);
var
TempFiles : TStringList;
TempCookiesDir : string;
begin
TempFiles := TStringList.Create;
try
TempFiles.Add(IncludeTrailingPathDelimiter(aDirectory) + 'Cookies');
TempFiles.Add(IncludeTrailingPathDelimiter(aDirectory) + 'Cookies-journal');
TempCookiesDir := GetCookiesDir(aRootDirectory);
TempFiles.Add(TempCookiesDir + 'Cookies');
TempFiles.Add(TempCookiesDir + 'Cookies-journal');
DeleteFileList(TempFiles);
finally
@ -2994,12 +3011,12 @@ begin
TempFiles := TStringList.Create;
try
TempFiles.Add('LocalPrefs.json');
TempFiles.Add('Local State');
MoveFileList(TempFiles, aSrcDirectory, aDstDirectory);
TempSrc := IncludeTrailingPathDelimiter(aSrcDirectory) + 'Network';
TempDst := IncludeTrailingPathDelimiter(aDstDirectory) + 'Network';
TempSrc := GetCookiesDir(aSrcDirectory);
TempDst := GetCookiesDir(aDstDirectory);
TempFiles.Clear;
TempFiles.Add('Cookies');
@ -3034,7 +3051,8 @@ begin
if RenameFile(TempOldDir, TempNewDir) then
begin
if aKeepCookies then MoveCookiesDB(TempNewDir, TempOldDir);
if aKeepCookies then
MoveCookiesDB(TempNewDir, TempOldDir);
TempThread := TCEFDirectoryDeleterThread.Create(TempNewDir);
{$IFDEF DELPHI14_UP}

5
source/uCEFConstants.pas
View File

@ -4885,6 +4885,11 @@ const
CEF_SETTINGS_URL = 'chrome://settings';
CEF_DOWNLOADS_URL = 'chrome://downloads';
CEF_EXTENSIONS_URL = 'chrome://extensions';
CEF_INSPECT_URL = 'chrome://inspect';
CEF_GPU_URL = 'chrome://gpu';
CEF_PREFS_URL = 'chrome://prefs-internals';
CEF_CERTMANAGER_URL = 'chrome://certificate-manager';
CEF_MEMORY_URL = 'chrome://memory-internals';
// These contants are declared in the "Windows" unit but
// some old Delphi versions don't have them.

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 686,
"InternalVersion" : 687,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "131.3.4"
}