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

Update to CEF 122.1.8

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-02-24 12:01:31 +01:00
parent be7fa8cb05
commit 7093cc9a6a
950 changed files with 355356 additions and 1070 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/uCEFBrowserProcessHandler.pas
View File

@ -28,6 +28,7 @@ type
procedure OnAlreadyRunningAppRelaunch(const commandLine: ICefCommandLine; const current_directory: ustring; var aResult: boolean); virtual; abstract;
procedure OnScheduleMessagePumpWork(const delayMs: Int64); virtual; abstract;
procedure GetDefaultClient(var aClient : ICefClient); virtual;
procedure GetDefaultRequestContextHandler(var aRequestContextHandler : ICefRequestContextHandler); virtual;
procedure RemoveReferences; virtual; abstract;
@ -45,6 +46,7 @@ type
procedure OnAlreadyRunningAppRelaunch(const commandLine: ICefCommandLine; const current_directory: ustring; var aResult: boolean); override;
procedure OnScheduleMessagePumpWork(const delayMs: Int64); override;
procedure GetDefaultClient(var aClient : ICefClient); override;
procedure GetDefaultRequestContextHandler(var aRequestContextHandler : ICefRequestContextHandler); override;
procedure RemoveReferences; override;
@ -168,6 +170,11 @@ begin
aClient := nil;
end;
procedure TCefBrowserProcessHandlerOwn.GetDefaultRequestContextHandler(var aRequestContextHandler : ICefRequestContextHandler);
begin
aRequestContextHandler := nil;
end;
// TCefCustomBrowserProcessHandler
@ -257,4 +264,15 @@ begin
end;
end;
procedure TCefCustomBrowserProcessHandler.GetDefaultRequestContextHandler(var aRequestContextHandler : ICefRequestContextHandler);
begin
try
if (FCefApp <> nil) then
IApplicationCoreEvents(FCefApp).doGetDefaultRequestContextHandler(aRequestContextHandler);
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.GetDefaultRequestContextHandler', e) then raise;
end;
end;
end.