You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-11-23 21:34:53 +02:00
bug fix #68
This commit is contained in:
Salvador Díaz Fau
@@ -53,111 +53,206 @@ uses
|
||||
Classes,
|
||||
{$ENDIF}
|
||||
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes, uCEFListValue, uCEFBrowser, uCEFFrame, uCEFRequest,
|
||||
uCEFv8Context, uCEFv8Exception, uCEFv8StackTrace, uCEFDomNode, uCEFProcessMessage;
|
||||
uCEFv8Context, uCEFv8Exception, uCEFv8StackTrace, uCEFDomNode, uCEFProcessMessage, uCEFApplication;
|
||||
|
||||
type
|
||||
TCefRenderProcessHandlerOwn = class(TCefBaseRefCountedOwn, ICefRenderProcessHandler)
|
||||
protected
|
||||
procedure OnRenderThreadCreated(const extraInfo: ICefListValue); virtual;
|
||||
procedure OnWebKitInitialized; virtual;
|
||||
procedure OnBrowserCreated(const browser: ICefBrowser); virtual;
|
||||
procedure OnBrowserDestroyed(const browser: ICefBrowser); virtual;
|
||||
function GetLoadHandler: PCefLoadHandler; virtual;
|
||||
procedure OnRenderThreadCreated(const extraInfo: ICefListValue); virtual; abstract;
|
||||
procedure OnWebKitInitialized; virtual; abstract;
|
||||
procedure OnBrowserCreated(const browser: ICefBrowser); virtual; abstract;
|
||||
procedure OnBrowserDestroyed(const browser: ICefBrowser); virtual; abstract;
|
||||
function GetLoadHandler: ICefLoadHandler; virtual;
|
||||
function OnBeforeNavigation(const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; virtual;
|
||||
procedure OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); virtual;
|
||||
procedure OnContextReleased(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); virtual;
|
||||
procedure OnUncaughtException(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context; const exception: ICefV8Exception; const stackTrace: ICefV8StackTrace); virtual;
|
||||
procedure OnFocusedNodeChanged(const browser: ICefBrowser; const frame: ICefFrame; const node: ICefDomNode); virtual;
|
||||
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; virtual;
|
||||
procedure OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); virtual; abstract;
|
||||
procedure OnContextReleased(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); virtual; abstract;
|
||||
procedure OnUncaughtException(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context; const exception: ICefV8Exception; const stackTrace: ICefV8StackTrace); virtual; abstract;
|
||||
procedure OnFocusedNodeChanged(const browser: ICefBrowser; const frame: ICefFrame; const node: ICefDomNode); virtual; abstract;
|
||||
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const aMessage: ICefProcessMessage): Boolean; virtual;
|
||||
public
|
||||
constructor Create; virtual;
|
||||
end;
|
||||
|
||||
TCefCustomRenderProcessHandler = class(TCefRenderProcessHandlerOwn)
|
||||
protected
|
||||
FCefApp : TCefApplication;
|
||||
|
||||
procedure OnRenderThreadCreated(const extraInfo: ICefListValue); override;
|
||||
procedure OnWebKitInitialized; override;
|
||||
procedure OnBrowserCreated(const browser: ICefBrowser); override;
|
||||
procedure OnBrowserDestroyed(const browser: ICefBrowser); override;
|
||||
function OnBeforeNavigation(const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; override;
|
||||
procedure OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); override;
|
||||
procedure OnContextReleased(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context); override;
|
||||
procedure OnUncaughtException(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context; const exception: ICefV8Exception; const stackTrace: ICefV8StackTrace); override;
|
||||
procedure OnFocusedNodeChanged(const browser: ICefBrowser; const frame: ICefFrame; const node: ICefDomNode); override;
|
||||
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const aMessage : ICefProcessMessage): Boolean; override;
|
||||
|
||||
public
|
||||
constructor Create(const aCefApp : TCefApplication); reintroduce;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCEFMiscFunctions, uCEFLibFunctions;
|
||||
uCEFMiscFunctions, uCEFLibFunctions, uCEFConstants;
|
||||
|
||||
procedure cef_render_process_handler_on_render_thread_created(self: PCefRenderProcessHandler; extra_info: PCefListValue); stdcall;
|
||||
procedure cef_render_process_handler_on_render_thread_created(self : PCefRenderProcessHandler;
|
||||
extra_info : PCefListValue); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnRenderThreadCreated(TCefListValueRef.UnWrap(extra_info));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnRenderThreadCreated(TCefListValueRef.UnWrap(extra_info));
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_web_kit_initialized(self: PCefRenderProcessHandler); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnWebKitInitialized;
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnWebKitInitialized;
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_browser_created(self: PCefRenderProcessHandler; browser: PCefBrowser); stdcall;
|
||||
procedure cef_render_process_handler_on_browser_created(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnBrowserCreated(TCefBrowserRef.UnWrap(browser));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnBrowserCreated(TCefBrowserRef.UnWrap(browser));
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_browser_destroyed(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser); stdcall;
|
||||
procedure cef_render_process_handler_on_browser_destroyed(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnBrowserDestroyed(TCefBrowserRef.UnWrap(browser));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnBrowserDestroyed(TCefBrowserRef.UnWrap(browser));
|
||||
end;
|
||||
|
||||
function cef_render_process_handler_get_load_handler(self: PCefRenderProcessHandler): PCefLoadHandler; stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
Result := GetLoadHandler();
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
Result := CefGetData(TCefRenderProcessHandlerOwn(TempObject).GetLoadHandler)
|
||||
else
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
function cef_render_process_handler_on_before_navigation(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; frame: PCefFrame; request: PCefRequest;
|
||||
navigation_type: TCefNavigationType; is_redirect: Integer): Integer; stdcall;
|
||||
function cef_render_process_handler_on_before_navigation(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
frame : PCefFrame;
|
||||
request : PCefRequest;
|
||||
navigation_type : TCefNavigationType;
|
||||
is_redirect : Integer): Integer; stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
Result := Ord(OnBeforeNavigation(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame), TCefRequestRef.UnWrap(request),
|
||||
navigation_type, is_redirect <> 0));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
Result := Ord(TCefRenderProcessHandlerOwn(TempObject).OnBeforeNavigation(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame),
|
||||
TCefRequestRef.UnWrap(request),
|
||||
navigation_type,
|
||||
is_redirect <> 0))
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_context_created(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; frame: PCefFrame; context: PCefv8Context); stdcall;
|
||||
procedure cef_render_process_handler_on_context_created(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
frame : PCefFrame;
|
||||
context : PCefv8Context); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnContextCreated(TCefBrowserRef.UnWrap(browser), TCefFrameRef.UnWrap(frame), TCefv8ContextRef.UnWrap(context));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnContextCreated(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame),
|
||||
TCefv8ContextRef.UnWrap(context));
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_context_released(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; frame: PCefFrame; context: PCefv8Context); stdcall;
|
||||
procedure cef_render_process_handler_on_context_released(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
frame : PCefFrame;
|
||||
context : PCefv8Context); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnContextReleased(TCefBrowserRef.UnWrap(browser), TCefFrameRef.UnWrap(frame), TCefv8ContextRef.UnWrap(context));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnContextReleased(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame),
|
||||
TCefv8ContextRef.UnWrap(context));
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_uncaught_exception(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; frame: PCefFrame; context: PCefv8Context;
|
||||
exception: PCefV8Exception; stackTrace: PCefV8StackTrace); stdcall;
|
||||
procedure cef_render_process_handler_on_uncaught_exception(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
frame : PCefFrame;
|
||||
context : PCefv8Context;
|
||||
exception : PCefV8Exception;
|
||||
stackTrace : PCefV8StackTrace); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnUncaughtException(TCefBrowserRef.UnWrap(browser), TCefFrameRef.UnWrap(frame),
|
||||
TCefv8ContextRef.UnWrap(context), TCefV8ExceptionRef.UnWrap(exception),
|
||||
TCefV8StackTraceRef.UnWrap(stackTrace));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnUncaughtException(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame),
|
||||
TCefv8ContextRef.UnWrap(context),
|
||||
TCefV8ExceptionRef.UnWrap(exception),
|
||||
TCefV8StackTraceRef.UnWrap(stackTrace));
|
||||
end;
|
||||
|
||||
procedure cef_render_process_handler_on_focused_node_changed(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; frame: PCefFrame; node: PCefDomNode); stdcall;
|
||||
procedure cef_render_process_handler_on_focused_node_changed(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
frame : PCefFrame;
|
||||
node : PCefDomNode); stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
OnFocusedNodeChanged(TCefBrowserRef.UnWrap(browser), TCefFrameRef.UnWrap(frame),
|
||||
TCefDomNodeRef.UnWrap(node));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
TCefRenderProcessHandlerOwn(TempObject).OnFocusedNodeChanged(TCefBrowserRef.UnWrap(browser),
|
||||
TCefFrameRef.UnWrap(frame),
|
||||
TCefDomNodeRef.UnWrap(node));
|
||||
end;
|
||||
|
||||
function cef_render_process_handler_on_process_message_received(self: PCefRenderProcessHandler;
|
||||
browser: PCefBrowser; source_process: TCefProcessId;
|
||||
message: PCefProcessMessage): Integer; stdcall;
|
||||
function cef_render_process_handler_on_process_message_received(self : PCefRenderProcessHandler;
|
||||
browser : PCefBrowser;
|
||||
source_process : TCefProcessId;
|
||||
message_ : PCefProcessMessage): Integer; stdcall;
|
||||
var
|
||||
TempObject : TObject;
|
||||
begin
|
||||
with TCefRenderProcessHandlerOwn(CefGetObject(Self)) do
|
||||
Result := Ord(OnProcessMessageReceived(TCefBrowserRef.UnWrap(browser), source_process,
|
||||
TCefProcessMessageRef.UnWrap(message)));
|
||||
TempObject := CefGetObject(self);
|
||||
|
||||
if (TempObject <> nil) and (TempObject is TCefRenderProcessHandlerOwn) then
|
||||
Result := Ord(TCefRenderProcessHandlerOwn(TempObject).OnProcessMessageReceived(TCefBrowserRef.UnWrap(browser),
|
||||
source_process,
|
||||
TCefProcessMessageRef.UnWrap(message_)))
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
|
||||
@@ -184,74 +279,113 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCefRenderProcessHandlerOwn.GetLoadHandler: PCefLoadHandler;
|
||||
function TCefRenderProcessHandlerOwn.GetLoadHandler: ICefLoadHandler;
|
||||
begin
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
function TCefRenderProcessHandlerOwn.OnBeforeNavigation(
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const request: ICefRequest; navigationType: TCefNavigationType;
|
||||
isRedirect: Boolean): Boolean;
|
||||
function TCefRenderProcessHandlerOwn.OnBeforeNavigation(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const request : ICefRequest;
|
||||
navigationType : TCefNavigationType;
|
||||
isRedirect : Boolean): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnBrowserCreated(
|
||||
const browser: ICefBrowser);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnBrowserDestroyed(
|
||||
const browser: ICefBrowser);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnContextCreated(
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const context: ICefv8Context);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnContextReleased(
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const context: ICefv8Context);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnFocusedNodeChanged(
|
||||
const browser: ICefBrowser; const frame: ICefFrame; const node: ICefDomNode);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TCefRenderProcessHandlerOwn.OnProcessMessageReceived(
|
||||
const browser: ICefBrowser; sourceProcess: TCefProcessId;
|
||||
const message: ICefProcessMessage): Boolean;
|
||||
function TCefRenderProcessHandlerOwn.OnProcessMessageReceived(const browser : ICefBrowser;
|
||||
sourceProcess : TCefProcessId;
|
||||
const aMessage : ICefProcessMessage): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnRenderThreadCreated(const extraInfo: ICefListValue);
|
||||
begin
|
||||
|
||||
// TCefCustomRenderProcessHandler
|
||||
|
||||
|
||||
constructor TCefCustomRenderProcessHandler.Create(const aCefApp : TCefApplication);
|
||||
begin
|
||||
inherited Create;
|
||||
|
||||
FCefApp := aCefApp;
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnUncaughtException(
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const context: ICefv8Context; const exception: ICefV8Exception;
|
||||
const stackTrace: ICefV8StackTrace);
|
||||
destructor TCefCustomRenderProcessHandler.Destroy;
|
||||
begin
|
||||
FCefApp := nil;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TCefRenderProcessHandlerOwn.OnWebKitInitialized;
|
||||
procedure TCefCustomRenderProcessHandler.OnRenderThreadCreated(const extraInfo: ICefListValue);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnRenderThreadCreated(extraInfo);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnWebKitInitialized;
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnWebKitInitialized;
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnBrowserCreated(const browser: ICefBrowser);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnBrowserCreated(browser);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnBrowserDestroyed(const browser: ICefBrowser);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnBrowserDestroyed(browser);
|
||||
end;
|
||||
|
||||
function TCefCustomRenderProcessHandler.OnBeforeNavigation(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const request : ICefRequest;
|
||||
navigationType : TCefNavigationType;
|
||||
isRedirect : Boolean): Boolean;
|
||||
begin
|
||||
Result := inherited OnBeforeNavigation(browser, frame, request, navigationType, isRedirect);
|
||||
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnBeforeNavigation(browser, frame, request, navigationType, isRedirect, Result);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnContextCreated(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const context : ICefv8Context);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnContextCreated(browser, frame, context);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnContextReleased(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const context : ICefv8Context);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnContextReleased(browser, frame, context);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnUncaughtException(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const context : ICefv8Context;
|
||||
const exception : ICefV8Exception;
|
||||
const stackTrace : ICefV8StackTrace);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnUncaughtException(browser, frame, context, exception, stackTrace);
|
||||
end;
|
||||
|
||||
procedure TCefCustomRenderProcessHandler.OnFocusedNodeChanged(const browser : ICefBrowser;
|
||||
const frame : ICefFrame;
|
||||
const node : ICefDomNode);
|
||||
begin
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnFocusedNodeChanged(browser, frame, node);
|
||||
end;
|
||||
|
||||
function TCefCustomRenderProcessHandler.OnProcessMessageReceived(const browser : ICefBrowser;
|
||||
sourceProcess : TCefProcessId;
|
||||
const aMessage : ICefProcessMessage): Boolean;
|
||||
begin
|
||||
Result := inherited OnProcessMessageReceived(browser, sourceProcess, aMessage);
|
||||
|
||||
if (FCefApp <> nil) then FCefApp.Internal_OnProcessMessageReceived(browser, sourceProcess, aMessage, Result);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user