// ************************************************************************ // ***************************** CEF4Delphi ******************************* // ************************************************************************ // // CEF4Delphi is based on DCEF3 which uses CEF3 to embed a chromium-based // browser in Delphi applications. // // The original license of DCEF3 still applies to CEF4Delphi. // // For more information about CEF4Delphi visit : // https://www.briskbard.com/index.php?lang=en&pageid=cef // // Copyright © 2018 Salvador Díaz Fau. All rights reserved. // // ************************************************************************ // ************ vvvv Original license and comments below vvvv ************* // ************************************************************************ (* * Delphi Chromium Embedded 3 * * Usage allowed under the restrictions of the Lesser GNU General Public License * or alternatively the restrictions of the Mozilla Public License 1.1 * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for * the specific language governing rights and limitations under the License. * * Unit owner : Henri Gourvest * Web site : http://www.progdigy.com * Repository : http://code.google.com/p/delphichromiumembedded/ * Group : http://groups.google.com/group/delphichromiumembedded * * Embarcadero Technologies, Inc is not permitted to use or redistribute * this source code without explicit permission. * *) unit uCEFExtensionHandler; {$IFNDEF CPUX64} {$ALIGN ON} {$MINENUMSIZE 4} {$ENDIF} {$I cef.inc} interface uses uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes; type TCefExtensionHandlerRef = class(TCefBaseRefCountedRef, ICefExtensionHandler) protected procedure OnExtensionLoadFailed(result: TCefErrorcode); procedure OnExtensionLoaded(const extension: ICefExtension); procedure OnExtensionUnloaded(const extension: ICefExtension); function OnBeforeBackgroundBrowser(const extension: ICefExtension; const url: ustring; var client: ICefClient; var settings: TCefBrowserSettings) : boolean; function OnBeforeBrowser(const extension: ICefExtension; const browser, active_browser: ICefBrowser; index: Integer; const url: ustring; active: boolean; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings) : boolean; function GetActiveBrowser(const extension: ICefExtension; const browser: ICefBrowser; include_incognito: boolean): ICefBrowser; function CanAccessBrowser(const extension: ICefExtension; const browser: ICefBrowser; include_incognito: boolean; const target_browser: ICefBrowser): boolean; function GetExtensionResource(const extension: ICefExtension; const browser: ICefBrowser; const file_: ustring; const callback: ICefGetExtensionResourceCallback): boolean; public class function UnWrap(data: Pointer): ICefExtensionHandler; end; TCefExtensionHandlerOwn = class(TCefBaseRefCountedOwn, ICefExtensionHandler) protected procedure OnExtensionLoadFailed(result: TCefErrorcode); virtual; procedure OnExtensionLoaded(const extension: ICefExtension); virtual; procedure OnExtensionUnloaded(const extension: ICefExtension); virtual; function OnBeforeBackgroundBrowser(const extension: ICefExtension; const url: ustring; var client: ICefClient; var settings: TCefBrowserSettings) : boolean; virtual; function OnBeforeBrowser(const extension: ICefExtension; const browser, active_browser: ICefBrowser; index: Integer; const url: ustring; active: boolean; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings) : boolean; function GetActiveBrowser(const extension: ICefExtension; const browser: ICefBrowser; include_incognito: boolean): ICefBrowser; virtual; function CanAccessBrowser(const extension: ICefExtension; const browser: ICefBrowser; include_incognito: boolean; const target_browser: ICefBrowser): boolean; virtual; function GetExtensionResource(const extension: ICefExtension; const browser: ICefBrowser; const file_: ustring; const callback: ICefGetExtensionResourceCallback): boolean; virtual; public constructor Create; virtual; end; implementation uses uCEFMiscFunctions, uCEFLibFunctions, uCEFGetExtensionResourceCallback, uCEFExtension, uCEFBrowser, uCEFClient; // *************************************************************************** // ************************ TCefExtensionHandlerRef ************************** // *************************************************************************** procedure TCefExtensionHandlerRef.OnExtensionLoadFailed(result: TCefErrorcode); begin end; procedure TCefExtensionHandlerRef.OnExtensionLoaded(const extension: ICefExtension); begin end; procedure TCefExtensionHandlerRef.OnExtensionUnloaded(const extension: ICefExtension); begin end; function TCefExtensionHandlerRef.OnBeforeBackgroundBrowser(const extension : ICefExtension; const url : ustring; var client : ICefClient; var settings : TCefBrowserSettings) : boolean; begin Result := False; end; function TCefExtensionHandlerRef.OnBeforeBrowser(const extension : ICefExtension; const browser : ICefBrowser; const active_browser : ICefBrowser; index : Integer; const url : ustring; active : boolean; var windowInfo : TCefWindowInfo; var client : ICefClient; var settings : TCefBrowserSettings) : boolean; begin Result := True; end; function TCefExtensionHandlerRef.GetActiveBrowser(const extension : ICefExtension; const browser : ICefBrowser; include_incognito : boolean): ICefBrowser; begin Result := TCefBrowserRef.UnWrap(PCefExtensionHandler(FData).get_active_browser(PCefExtensionHandler(FData), CefGetData(extension), CefGetData(browser), Ord(include_incognito))); end; function TCefExtensionHandlerRef.CanAccessBrowser(const extension : ICefExtension; const browser : ICefBrowser; include_incognito : boolean; const target_browser : ICefBrowser): boolean; begin Result := PCefExtensionHandler(FData).can_access_browser(PCefExtensionHandler(FData), CefGetData(extension), CefGetData(browser), Ord(include_incognito), CefGetData(target_browser)) <> 0; end; function TCefExtensionHandlerRef.GetExtensionResource(const extension : ICefExtension; const browser : ICefBrowser; const file_ : ustring; const callback : ICefGetExtensionResourceCallback): boolean; var TempFile : TCefString; begin TempFile := CefString(file_); Result := PCefExtensionHandler(FData).get_extension_resource(PCefExtensionHandler(FData), CefGetData(extension), CefGetData(browser), @TempFile, CefGetData(callback)) <> 0; end; class function TCefExtensionHandlerRef.UnWrap(data: Pointer): ICefExtensionHandler; begin if (data <> nil) then Result := Create(data) as ICefExtensionHandler else Result := nil; end; // *************************************************************************** // ************************ TCefExtensionHandlerOwn ************************** // *************************************************************************** procedure cef_extension_handler_on_extension_load_failed(self : PCefExtensionHandler; result : TCefErrorcode); stdcall; begin TCefExtensionHandlerOwn(CefGetObject(self)).OnExtensionLoadFailed(result); end; procedure cef_extension_handler_on_extension_loaded(self : PCefExtensionHandler; extension : PCefExtension); stdcall; begin TCefExtensionHandlerOwn(CefGetObject(self)).OnExtensionLoaded(TCefExtensionRef.UnWrap(extension)); end; procedure cef_extension_handler_on_extension_unloaded(self : PCefExtensionHandler; extension : PCefExtension); stdcall; begin TCefExtensionHandlerOwn(CefGetObject(self)).OnExtensionUnloaded(TCefExtensionRef.UnWrap(extension)); end; function cef_extension_handler_on_before_background_browser(self : PCefExtensionHandler; extension : PCefExtension; const url : PCefString; var client : PCefClient; settings : PCefBrowserSettings) : Integer; stdcall; var TempClient : ICefClient; TempOldCli : pointer; begin TempClient := TCefClientRef.UnWrap(client); TempOldCli := pointer(TempClient); Result := Ord(TCefExtensionHandlerOwn(CefGetObject(self)).OnBeforeBackgroundBrowser(TCefExtensionRef.UnWrap(extension), CefString(url), TempClient, settings^)); if (TempClient = nil) then client := nil else if (TempOldCli <> pointer(TempClient)) then client := CefGetData(TempClient); end; function cef_extension_handler_on_before_browser(self : PCefExtensionHandler; extension : PCefExtension; browser : PCefBrowser; active_browser : PCefBrowser; index : Integer; const url : PCefString; active : Integer; windowInfo : PCefWindowInfo; var client : PCefClient; settings : PCefBrowserSettings) : Integer; stdcall; var TempClient : ICefClient; TempOldCli : pointer; begin TempClient := TCefClientRef.UnWrap(client); TempOldCli := pointer(TempClient); Result := Ord(TCefExtensionHandlerOwn(CefGetObject(self)).OnBeforeBrowser(TCefExtensionRef.UnWrap(extension), TCefBrowserRef.UnWrap(browser), TCefBrowserRef.UnWrap(active_browser), index, CefString(url), active <> 0, windowInfo^, TempClient, settings^)); if (TempClient = nil) then client := nil else if (TempOldCli <> pointer(TempClient)) then client := CefGetData(TempClient); end; function cef_extension_handler_get_active_browser(self : PCefExtensionHandler; extension : PCefExtension; browser : PCefBrowser; include_incognito : Integer): PCefBrowser; stdcall; begin Result := CefGetData(TCefExtensionHandlerOwn(CefGetObject(self)).GetActiveBrowser(TCefExtensionRef.UnWrap(extension), TCefBrowserRef.UnWrap(browser), include_incognito <> 0)); end; function cef_extension_handler_can_access_browser(self : PCefExtensionHandler; extension : PCefExtension; browser : PCefBrowser; include_incognito : Integer; target_browser : PCefBrowser): Integer; stdcall; begin Result := Ord(TCefExtensionHandlerOwn(CefGetObject(self)).CanAccessBrowser(TCefExtensionRef.UnWrap(extension), TCefBrowserRef.UnWrap(browser), include_incognito <> 0, TCefBrowserRef.UnWrap(target_browser))); end; function cef_extension_handler_get_extension_resource(self : PCefExtensionHandler; extension : PCefExtension; browser : PCefBrowser; const file_ : PCefString; callback : PCefGetExtensionResourceCallback): Integer; stdcall; begin Result := Ord(TCefExtensionHandlerOwn(CefGetObject(self)).GetExtensionResource(TCefExtensionRef.UnWrap(extension), TCefBrowserRef.UnWrap(browser), CefString(file_), TCefGetExtensionResourceCallbackRef.UnWrap(callback))); end; constructor TCefExtensionHandlerOwn.Create; begin inherited CreateData(SizeOf(TCefExtensionHandler)); with PCefExtensionHandler(FData)^ do begin on_extension_load_failed := cef_extension_handler_on_extension_load_failed; on_extension_loaded := cef_extension_handler_on_extension_loaded; on_extension_unloaded := cef_extension_handler_on_extension_unloaded; on_before_background_browser := cef_extension_handler_on_before_background_browser; on_before_browser := cef_extension_handler_on_before_browser; get_active_browser := cef_extension_handler_get_active_browser; can_access_browser := cef_extension_handler_can_access_browser; get_extension_resource := cef_extension_handler_get_extension_resource; end; end; procedure TCefExtensionHandlerOwn.OnExtensionLoadFailed(result: TCefErrorcode); begin end; procedure TCefExtensionHandlerOwn.OnExtensionLoaded(const extension: ICefExtension); begin end; procedure TCefExtensionHandlerOwn.OnExtensionUnloaded(const extension: ICefExtension); begin end; function TCefExtensionHandlerOwn.OnBeforeBackgroundBrowser(const extension : ICefExtension; const url : ustring; var client : ICefClient; var settings : TCefBrowserSettings) : boolean; begin Result := True; end; function TCefExtensionHandlerOwn.OnBeforeBrowser(const extension : ICefExtension; const browser : ICefBrowser; const active_browser : ICefBrowser; index : Integer; const url : ustring; active : boolean; var windowInfo : TCefWindowInfo; var client : ICefClient; var settings : TCefBrowserSettings) : boolean; begin Result := True; end; function TCefExtensionHandlerOwn.GetActiveBrowser(const extension : ICefExtension; const browser : ICefBrowser; include_incognito : boolean): ICefBrowser; begin Result := nil; end; function TCefExtensionHandlerOwn.CanAccessBrowser(const extension : ICefExtension; const browser : ICefBrowser; include_incognito : boolean; const target_browser : ICefBrowser): boolean; begin Result := True; end; function TCefExtensionHandlerOwn.GetExtensionResource(const extension : ICefExtension; const browser : ICefBrowser; const file_ : ustring; const callback : ICefGetExtensionResourceCallback): boolean; begin Result := False; end; end.