mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-15 07:45:56 +01:00
Added the JSExtensionSubProcess demo
This commit is contained in:
salvadordf
parent
a06bcbaa15
commit
161b2e3187
@ -0,0 +1,18 @@
|
||||
del /s /q *.dcu
|
||||
del /s /q *.exe
|
||||
del /s /q *.res
|
||||
del /s /q *.rsm
|
||||
del /s /q *.log
|
||||
del /s /q *.dsk
|
||||
del /s /q *.identcache
|
||||
del /s /q *.stat
|
||||
del /s /q *.local
|
||||
del /s /q *.~*
|
||||
rmdir Win32\Debug
|
||||
rmdir Win32\Release
|
||||
rmdir Win32
|
||||
rmdir Win64\Debug
|
||||
rmdir Win64\Release
|
||||
rmdir Win64
|
||||
rmdir __history
|
||||
rmdir __recovery
|
||||
@ -0,0 +1,40 @@
|
||||
program JSExtension;
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Vcl.Forms,
|
||||
{$ELSE}
|
||||
Forms,
|
||||
{$ENDIF }
|
||||
uCEFApplication,
|
||||
uJSExtension in 'uJSExtension.pas' {JSExtensionFrm},
|
||||
uSimpleTextViewer in 'uSimpleTextViewer.pas' {SimpleTextViewerFrm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
const
|
||||
IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020;
|
||||
|
||||
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
|
||||
{$IFDEF WIN32}{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}{$ENDIF}
|
||||
|
||||
begin
|
||||
// GlobalCEFApp creation and initialization moved to a different unit to fix the memory leak described in the bug #89
|
||||
// https://github.com/salvadordf/CEF4Delphi/issues/89
|
||||
CreateGlobalCEFApp;
|
||||
|
||||
if GlobalCEFApp.StartMainProcess then
|
||||
begin
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI11_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.CreateForm(TJSExtensionFrm, JSExtensionFrm);
|
||||
Application.CreateForm(TSimpleTextViewerFrm, SimpleTextViewerFrm);
|
||||
Application.Run;
|
||||
end;
|
||||
|
||||
DestroyGlobalCEFApp;
|
||||
end.
|
||||
1180
demos/Delphi_VCL/JavaScript/JSExtensionSubProcess/JSExtension.dproj
Normal file
1180
demos/Delphi_VCL/JavaScript/JSExtensionSubProcess/JSExtension.dproj
Normal file
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{898EF1FF-A3E5-45E8-9D69-68E86985BB25}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="JSExtension.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="JSExtension_sp.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="JSExtension">
|
||||
<MSBuild Projects="JSExtension.dproj"/>
|
||||
</Target>
|
||||
<Target Name="JSExtension:Clean">
|
||||
<MSBuild Projects="JSExtension.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="JSExtension:Make">
|
||||
<MSBuild Projects="JSExtension.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="JSExtension_sp">
|
||||
<MSBuild Projects="JSExtension_sp.dproj"/>
|
||||
</Target>
|
||||
<Target Name="JSExtension_sp:Clean">
|
||||
<MSBuild Projects="JSExtension_sp.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="JSExtension_sp:Make">
|
||||
<MSBuild Projects="JSExtension_sp.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="JSExtension;JSExtension_sp"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="JSExtension:Clean;JSExtension_sp:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="JSExtension:Make;JSExtension_sp:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
@ -0,0 +1,18 @@
|
||||
program JSExtension_sp;
|
||||
|
||||
uses
|
||||
uCEFApplicationCore,
|
||||
uTestExtensionHandler in 'uTestExtensionHandler.pas',
|
||||
uJSExtension_sp in 'uJSExtension_sp.pas';
|
||||
|
||||
const
|
||||
IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020;
|
||||
|
||||
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
|
||||
{$IFDEF WIN32}{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}{$ENDIF}
|
||||
|
||||
begin
|
||||
CreateGlobalCEFApp;
|
||||
DestroyGlobalCEFApp;
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,97 @@
|
||||
object JSExtensionFrm: TJSExtensionFrm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'JSExtension'
|
||||
ClientHeight = 589
|
||||
ClientWidth = 978
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Position = poScreenCenter
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
TextHeight = 13
|
||||
object NavControlPnl: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 978
|
||||
Height = 30
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Enabled = False
|
||||
Padding.Left = 5
|
||||
Padding.Top = 5
|
||||
Padding.Right = 5
|
||||
Padding.Bottom = 5
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 974
|
||||
object Edit1: TEdit
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 937
|
||||
Height = 20
|
||||
Margins.Right = 5
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
Text = 'http://www.google.com'
|
||||
ExplicitWidth = 933
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
object GoBtn: TButton
|
||||
Left = 942
|
||||
Top = 5
|
||||
Width = 31
|
||||
Height = 20
|
||||
Margins.Left = 5
|
||||
Align = alRight
|
||||
Caption = 'Go'
|
||||
TabOrder = 1
|
||||
OnClick = GoBtnClick
|
||||
ExplicitLeft = 938
|
||||
end
|
||||
end
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Top = 570
|
||||
Width = 978
|
||||
Height = 19
|
||||
Panels = <
|
||||
item
|
||||
Width = 50
|
||||
end>
|
||||
ExplicitTop = 569
|
||||
ExplicitWidth = 974
|
||||
end
|
||||
object CEFWindowParent1: TCEFWindowParent
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 978
|
||||
Height = 540
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 974
|
||||
ExplicitHeight = 539
|
||||
end
|
||||
object Chromium1: TChromium
|
||||
OnProcessMessageReceived = Chromium1ProcessMessageReceived
|
||||
OnBeforeContextMenu = Chromium1BeforeContextMenu
|
||||
OnContextMenuCommand = Chromium1ContextMenuCommand
|
||||
OnBeforePopup = Chromium1BeforePopup
|
||||
OnAfterCreated = Chromium1AfterCreated
|
||||
OnBeforeClose = Chromium1BeforeClose
|
||||
OnClose = Chromium1Close
|
||||
Left = 32
|
||||
Top = 224
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Enabled = False
|
||||
Interval = 300
|
||||
OnTimer = Timer1Timer
|
||||
Left = 32
|
||||
Top = 288
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,477 @@
|
||||
unit uJSExtension;
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls,
|
||||
{$ELSE}
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
|
||||
{$ENDIF}
|
||||
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants,
|
||||
uCEFWinControl, uCEFChromiumCore;
|
||||
|
||||
const
|
||||
MINIBROWSER_SHOWTEXTVIEWER = WM_APP + $100;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_SETJSEVENT = MENU_ID_USER_FIRST + 1;
|
||||
MINIBROWSER_CONTEXTMENU_JSVISITDOM = MENU_ID_USER_FIRST + 2;
|
||||
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 3;
|
||||
MINIBROWSER_CONTEXTMENU_OFFLINE = MENU_ID_USER_FIRST + 4;
|
||||
|
||||
MOUSEOVER_MESSAGE_NAME = 'mouseover';
|
||||
CUSTOMNAME_MESSAGE_NAME = 'customname';
|
||||
|
||||
type
|
||||
TJSExtensionFrm = class(TForm)
|
||||
NavControlPnl: TPanel;
|
||||
Edit1: TEdit;
|
||||
GoBtn: TButton;
|
||||
StatusBar1: TStatusBar;
|
||||
CEFWindowParent1: TCEFWindowParent;
|
||||
Chromium1: TChromium;
|
||||
Timer1: TTimer;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure GoBtnClick(Sender: TObject);
|
||||
|
||||
procedure Chromium1BeforeContextMenu(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const params: ICefContextMenuParams; const model: ICefMenuModel);
|
||||
procedure Chromium1ProcessMessageReceived(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId; const message: ICefProcessMessage; out Result: Boolean);
|
||||
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
|
||||
procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess: Boolean; var Result: Boolean);
|
||||
procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
|
||||
procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
|
||||
procedure Chromium1ContextMenuCommand(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; commandId: Integer;
|
||||
eventFlags: Cardinal; out Result: Boolean);
|
||||
|
||||
protected
|
||||
FText : string;
|
||||
// Variables to control when can we destroy the form safely
|
||||
FCanClose : boolean; // Set to True in TChromium.OnBeforeClose
|
||||
FClosing : boolean; // Set to True in the CloseQuery event.
|
||||
|
||||
FOffline : boolean;
|
||||
|
||||
procedure BrowserCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
|
||||
procedure BrowserDestroyMsg(var aMessage : TMessage); message CEF_DESTROY;
|
||||
procedure ShowTextViewerMsg(var aMessage : TMessage); message MINIBROWSER_SHOWTEXTVIEWER;
|
||||
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
|
||||
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
|
||||
procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
|
||||
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
|
||||
|
||||
function SwitchOfflineMode : integer;
|
||||
end;
|
||||
|
||||
var
|
||||
JSExtensionFrm: TJSExtensionFrm;
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSimpleTextViewer, uCEFMiscFunctions, uTestExtensionHandler, uCEFDictionaryValue;
|
||||
|
||||
// BASIC CONCEPTS
|
||||
// ==============
|
||||
|
||||
// Chromium uses several processes to carry out all the tasks needed to handle a web page :
|
||||
// 1. The main application process is called "BROWSER PROCESS" and it runs the UI.
|
||||
// 2. The layout and interpretation of HTML is done in the "RENDERER PROCESS".
|
||||
|
||||
// Read this for more details about Chromium's architecture :
|
||||
// http://www.chromium.org/developers/design-documents/multi-process-architecture
|
||||
|
||||
// Each process is isolated from the rest and you need to use some kind of inter-process
|
||||
// communication (IPC) to send information between them. This isolation and protection is
|
||||
// guaranteed by the operating system and it's the main reason Chromium uses several processes.
|
||||
|
||||
// In many cases, you need to use JavaScript or visit the DOM to return some results to Delphi.
|
||||
// The DOM and JavaScript live in the RENDERER PROCESS, while the Delphi code of your application
|
||||
// lives in the BROWSER PROCESS.
|
||||
|
||||
// As commented before, the operating system isolates each process and this means that you
|
||||
// can't access anything declared in one process like variables, fields, classes, controls, etc.
|
||||
// from a different process.
|
||||
|
||||
// However, CEF has several ways to send information between processes and you can also use your
|
||||
// own inter-process communication methods.
|
||||
|
||||
// If you need to execute some JavaScript code all you need is to call TChromium.ExecuteJavaScript
|
||||
// from your application's code in the BROWSER PROCESS and CEF will take care of executing that
|
||||
// code in the RENDERER PROCESS.
|
||||
|
||||
// If you need to send a message to the RENDERER PROCESS from the BROWSER PROCESS you can use
|
||||
// TChromium.SendProcessMessage.
|
||||
|
||||
// To send messages to the BROWSER PROCESS from the RENDERER PROCESS you can use
|
||||
// ICefFrame.SendProcessMessage
|
||||
|
||||
|
||||
// -------------- TChromium.SendProcessMessage --------------
|
||||
// | | ------------------------------> | |
|
||||
// | BROWSER | | RENDERER |
|
||||
// | | | |
|
||||
// | PROCESS | ICefFrame.SendProcessMessage | PROCESS |
|
||||
// | | <------------------------------ | |
|
||||
// -------------- --------------
|
||||
|
||||
|
||||
// To receive the messages sent from the RENDERER PROCESS you need to use the
|
||||
// TChromium.OnProcessMessageReceived event. This event is executed in a CEF thread that belongs
|
||||
// to the BROWSER PROCESS.
|
||||
|
||||
// To receive the messages sent from the BROWSER PROCESS you need to use the
|
||||
// TCefApplication.OnProcessMessageReceived event (GlobalCEFApp.OnProcessMessageReceived).
|
||||
// This event is executed in a CEF thread that belongs to the RENDERER PROCESS.
|
||||
|
||||
|
||||
// JAVASCRIPT EXTENSIONS
|
||||
// =====================
|
||||
|
||||
// CEF exposes a large number of JS features for integration in client applications.
|
||||
// You can use JS types, arrays, functions, extensions, objects, etc.
|
||||
|
||||
// All of those features are described in detail here :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
// One of the most interesting JS features available in CEF are the JavaScript extensions because they
|
||||
// can be used to execute custom Delphi code from JavaScript.
|
||||
|
||||
// If you put all you know so far together you can get any result or information in Delphi from
|
||||
// JavaScript following these steps :
|
||||
// 1. Use TChromium.ExecuteJavaScript to execute your custom JavaScript code.
|
||||
// 2. That custom JavaScript code is executed in the RENDERER PROCESS and it can call functions in your
|
||||
// custom JavaScript extension, which executes Delphi code. This Delphi code is also executed in
|
||||
// the RENDERER PROCESS.
|
||||
// 3. The Delphi code in the JavaScript extension can use ICefFrame.SendProcessMessage to send
|
||||
// information back to the BROWSER PROCESS.
|
||||
// 4. The BROWSER PROCESS receives the information in the TChromium.OnProcessMessageReceived event.
|
||||
|
||||
// To create a JavaScript extension in CEF you have to create a new class that inherits from
|
||||
// TCefv8HandlerOwn and it has to override the "execute" function. Open uTestExtensionHandler.pas
|
||||
// to see an example and read this for more details about the "execute" parameters :
|
||||
// https://magpcss.org/ceforum/apidocs3/projects/(default)/CefV8Handler.html
|
||||
|
||||
// In order to use that extension, you must register it in the GlobalCEFApp.OnWebKitInitialized event
|
||||
// as you can see in the GlobalCEFApp_OnWebKitInitialized procedure on this PAS unit.
|
||||
|
||||
// You have to call the CefRegisterExtension function with 3 parameters :
|
||||
// 1. name : The extension name.
|
||||
// 2. code : Any valid JS code but in this case it includes 2 "native function" forward declarations.
|
||||
// 3. Handler : An instance of your TCefv8HandlerOwn subclass.
|
||||
|
||||
// Notice that the code used with the CefRegisterExtension function in this demo is declaring
|
||||
// "myextension.mouseover" as a function that calls the "mouseover" native function, and the
|
||||
// "myextension.sendresulttobrowser" function that calls the "sendresulttobrowser" native function.
|
||||
|
||||
// The "execute" function in the custom TCefv8HandlerOwn subclass will compare the "name" parameter
|
||||
// with the name of the of the native function used in the code that registered this extension.
|
||||
// As you can see in this demo, TTestExtensionHandler.Execute compares the "name" parameter with
|
||||
// "mouseover" and "sendresulttobrowser" to execute the code you want for each of those custom functions.
|
||||
|
||||
// TTestExtensionHandler.Execute is executed in the RENDERER PROCESS and it uses a process message
|
||||
// to send some results to he BROWSER PROCESS.
|
||||
// It uses TCefv8ContextRef.Current.Browser.MainFrame to call the SendProcessMessage procedure for
|
||||
// the main frame.
|
||||
|
||||
// The message is a TCefProcessMessageRef instance and you can set the information you want to send using
|
||||
// its ArgumentList property.
|
||||
|
||||
// You can add several items to ArgumentList using different indexes in the SetString, SetInt, SetBool,
|
||||
// SetBinary, etc. functions.
|
||||
// There is a size limit in the binary parameters of only a few kilobytes. Compress the binary data, use
|
||||
// alternative IPC methods or use a database protected by a mutex if necessary.
|
||||
|
||||
// For more information about this, read the following pages :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md#markdown-header-functions-and-extensions
|
||||
// https://bitbucket.org/chromiumembedded/cef/src/b6b033a52bb3f7059d169a4c8389966c8fe2531b/include/capi/cef_v8_capi.h#lines-924
|
||||
|
||||
|
||||
// TESTING THIS DEMO :
|
||||
// ===================
|
||||
// 1. Run the demo and wait until google.com is loaded
|
||||
// 2. Right-click and select the "Set the mouseover event" menu option.
|
||||
// 3. Move the mouse pointer over the web page and see the HTML elements in the status bar.
|
||||
|
||||
// When you select the "Set the mouseover event" menu option, the
|
||||
// TChromium.OnContextMenuCommand event is triggered and it adds an event listener to the
|
||||
// document's body. That listener calls one of the functions available in the registered
|
||||
// extension called "myextension.mouseover".
|
||||
|
||||
// The TTestExtensionHandler.Execute function in the extension is executed and it
|
||||
// uses TCefv8ContextRef.Current.Browser.MainFrame.SendProcessMessage(PID_BROWSER, msg)
|
||||
// to send a process message with the results to the browser process.
|
||||
|
||||
// That message is received in the TChromium.OnProcessMessageReceived event and it shows
|
||||
// the information in the status bar.
|
||||
|
||||
// If you have to debug the code executed by the extension you will need to use the
|
||||
// debugging methods described in
|
||||
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
||||
|
||||
|
||||
// DESTRUCTION STEPS
|
||||
// =================
|
||||
// 1. FormCloseQuery sets CanClose to FALSE calls TChromium.CloseBrowser which triggers
|
||||
// the TChromium.OnClose event.
|
||||
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1
|
||||
// in the main thread, which triggers the TChromium.OnBeforeClose event.
|
||||
// 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
|
||||
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
begin
|
||||
GlobalCEFApp := TCefApplication.Create;
|
||||
GlobalCEFApp.BrowserSubprocessPath := 'JSExtension_sp.exe';
|
||||
{$IFDEF DEBUG}
|
||||
GlobalCEFApp.LogFile := 'debug.log';
|
||||
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.GoBtnClick(Sender: TObject);
|
||||
begin
|
||||
Chromium1.LoadURL(Edit1.Text);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
|
||||
begin
|
||||
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
|
||||
begin
|
||||
FCanClose := True;
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforeContextMenu(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; const model: ICefMenuModel);
|
||||
begin
|
||||
// Adding some custom context menu entries
|
||||
model.AddSeparator;
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_SETJSEVENT, 'Set mouseover event');
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_JSVISITDOM, 'Visit DOM in JavaScript');
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS, 'Show DevTools');
|
||||
model.AddCheckItem(MINIBROWSER_CONTEXTMENU_OFFLINE, 'Offline');
|
||||
model.SetChecked(MINIBROWSER_CONTEXTMENU_OFFLINE, FOffline);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforePopup(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
|
||||
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
|
||||
userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
|
||||
var windowInfo: TCefWindowInfo; var client: ICefClient;
|
||||
var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess: Boolean;
|
||||
var Result: Boolean);
|
||||
begin
|
||||
// For simplicity, this demo blocks all popup windows and new tabs
|
||||
Result := (targetDisposition in [CEF_WOD_NEW_FOREGROUND_TAB, CEF_WOD_NEW_BACKGROUND_TAB, CEF_WOD_NEW_POPUP, CEF_WOD_NEW_WINDOW]);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1Close(Sender: TObject;
|
||||
const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
|
||||
begin
|
||||
PostMessage(Handle, CEF_DESTROY, 0, 0);
|
||||
aAction := cbaDelay;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1ContextMenuCommand(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; commandId: Integer;
|
||||
eventFlags: Cardinal; out Result: Boolean);
|
||||
var
|
||||
TempPoint : TPoint;
|
||||
TempJSCode : string;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
// Here is the code executed for each custom context menu entry
|
||||
|
||||
case commandId of
|
||||
MINIBROWSER_CONTEXTMENU_SETJSEVENT :
|
||||
if (frame <> nil) and frame.IsValid then
|
||||
begin
|
||||
TempJSCode := 'document.body.addEventListener("mouseover", function(evt){'+
|
||||
'function getpath(n){'+
|
||||
'var ret = "<" + n.nodeName + ">";'+
|
||||
'if (n.parentNode){return getpath(n.parentNode) + ret} else '+
|
||||
'return ret'+
|
||||
'};'+
|
||||
'myextension.mouseover(getpath(evt.target))}'+
|
||||
')';
|
||||
|
||||
frame.ExecuteJavaScript(TempJSCode, 'about:blank', 0);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_JSVISITDOM :
|
||||
if (frame <> nil) and frame.IsValid then
|
||||
begin
|
||||
TempJSCode := 'var testhtml = document.body.innerHTML; ' +
|
||||
'myextension.sendresulttobrowser(testhtml, ' + quotedstr(CUSTOMNAME_MESSAGE_NAME) + ');';
|
||||
|
||||
frame.ExecuteJavaScript(TempJSCode, 'about:blank', 0);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS :
|
||||
begin
|
||||
TempPoint.x := params.XCoord;
|
||||
TempPoint.y := params.YCoord;
|
||||
Chromium1.ShowDevTools(TempPoint, nil);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_OFFLINE :
|
||||
SwitchOfflineMode;
|
||||
end;
|
||||
end;
|
||||
|
||||
// This is a simple example to set the "offline" mode in the DevTools using the TChromium methods directly.
|
||||
function TJSExtensionFrm.SwitchOfflineMode : integer;
|
||||
var
|
||||
TempParams : ICefDictionaryValue;
|
||||
begin
|
||||
try
|
||||
FOffline := not(FOffline);
|
||||
|
||||
TempParams := TCefDictionaryValueRef.New;
|
||||
TempParams.SetBool('offline', FOffline);
|
||||
TempParams.SetDouble('latency', 0);
|
||||
TempParams.SetDouble('downloadThroughput', 0);
|
||||
TempParams.SetDouble('uploadThroughput', 0);
|
||||
|
||||
Result := Chromium1.ExecuteDevToolsMethod(0, 'Network.emulateNetworkConditions', TempParams);
|
||||
finally
|
||||
TempParams := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1ProcessMessageReceived(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId;
|
||||
const message: ICefProcessMessage; out Result: Boolean);
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if (message = nil) or (message.ArgumentList = nil) then exit;
|
||||
|
||||
// This function receives the messages with the JavaScript results
|
||||
|
||||
// Many of these events are received in different threads and the VCL
|
||||
// doesn't like to create and destroy components in different threads.
|
||||
|
||||
// It's safer to store the results and send a message to the main thread to show them.
|
||||
|
||||
// The message names are defined in the extension or in JS code.
|
||||
|
||||
if (message.Name = MOUSEOVER_MESSAGE_NAME) then
|
||||
begin
|
||||
StatusBar1.Panels[0].Text := message.ArgumentList.GetString(0); // this doesn't create/destroy components
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
if (message.Name = CUSTOMNAME_MESSAGE_NAME) then
|
||||
begin
|
||||
FText := message.ArgumentList.GetString(0);
|
||||
PostMessage(Handle, MINIBROWSER_SHOWTEXTVIEWER, 0, 0);
|
||||
Result := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormCloseQuery(Sender: TObject;
|
||||
var CanClose: Boolean);
|
||||
begin
|
||||
CanClose := FCanClose;
|
||||
|
||||
if not(FClosing) then
|
||||
begin
|
||||
FClosing := True;
|
||||
Visible := False;
|
||||
Chromium1.CloseBrowser(True);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FCanClose := False;
|
||||
FClosing := False;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
StatusBar1.Panels[0].Text := 'Initializing browser. Please wait...';
|
||||
|
||||
// GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser
|
||||
// If it's not initialized yet, we use a simple timer to create the browser later.
|
||||
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMMove(var aMessage : TWMMove);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (Chromium1 <> nil) then Chromium1.NotifyMoveOrResizeStarted;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMMoving(var aMessage : TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (Chromium1 <> nil) then Chromium1.NotifyMoveOrResizeStarted;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMEnterMenuLoop(var aMessage: TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMExitMenuLoop(var aMessage: TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := False;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.ShowTextViewerMsg(var aMessage : TMessage);
|
||||
begin
|
||||
// This form will show the HTML received from JavaScript
|
||||
SimpleTextViewerFrm.Memo1.Lines.Text := FText;
|
||||
SimpleTextViewerFrm.ShowModal;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
Timer1.Enabled := False;
|
||||
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) and not(Chromium1.Initialized) then
|
||||
Timer1.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.BrowserCreatedMsg(var aMessage : TMessage);
|
||||
begin
|
||||
StatusBar1.Panels[0].Text := '';
|
||||
CEFWindowParent1.UpdateSize;
|
||||
NavControlPnl.Enabled := True;
|
||||
GoBtn.Click;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.BrowserDestroyMsg(var aMessage : TMessage);
|
||||
begin
|
||||
CEFWindowParent1.Free;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,197 @@
|
||||
unit uJSExtension_sp;
|
||||
|
||||
interface
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCEFApplicationCore, uCEFConstants, uCEFv8Value, uCEFInterfaces, uCEFMiscFunctions,
|
||||
uTestExtensionHandler;
|
||||
|
||||
// BASIC CONCEPTS
|
||||
// ==============
|
||||
|
||||
// Chromium uses several processes to carry out all the tasks needed to handle a web page :
|
||||
// 1. The main application process is called "BROWSER PROCESS" and it runs the UI.
|
||||
// 2. The layout and interpretation of HTML is done in the "RENDERER PROCESS".
|
||||
|
||||
// Read this for more details about Chromium's architecture :
|
||||
// http://www.chromium.org/developers/design-documents/multi-process-architecture
|
||||
|
||||
// Each process is isolated from the rest and you need to use some kind of inter-process
|
||||
// communication (IPC) to send information between them. This isolation and protection is
|
||||
// guaranteed by the operating system and it's the main reason Chromium uses several processes.
|
||||
|
||||
// In many cases, you need to use JavaScript or visit the DOM to return some results to Delphi.
|
||||
// The DOM and JavaScript live in the RENDERER PROCESS, while the Delphi code of your application
|
||||
// lives in the BROWSER PROCESS.
|
||||
|
||||
// As commented before, the operating system isolates each process and this means that you
|
||||
// can't access anything declared in one process like variables, fields, classes, controls, etc.
|
||||
// from a different process.
|
||||
|
||||
// However, CEF has several ways to send information between processes and you can also use your
|
||||
// own inter-process communication methods.
|
||||
|
||||
// If you need to execute some JavaScript code all you need is to call TChromium.ExecuteJavaScript
|
||||
// from your application's code in the BROWSER PROCESS and CEF will take care of executing that
|
||||
// code in the RENDERER PROCESS.
|
||||
|
||||
// If you need to send a message to the RENDERER PROCESS from the BROWSER PROCESS you can use
|
||||
// TChromium.SendProcessMessage.
|
||||
|
||||
// To send messages to the BROWSER PROCESS from the RENDERER PROCESS you can use
|
||||
// ICefFrame.SendProcessMessage
|
||||
|
||||
|
||||
// -------------- TChromium.SendProcessMessage --------------
|
||||
// | | ------------------------------> | |
|
||||
// | BROWSER | | RENDERER |
|
||||
// | | | |
|
||||
// | PROCESS | ICefFrame.SendProcessMessage | PROCESS |
|
||||
// | | <------------------------------ | |
|
||||
// -------------- --------------
|
||||
|
||||
|
||||
// To receive the messages sent from the RENDERER PROCESS you need to use the
|
||||
// TChromium.OnProcessMessageReceived event. This event is executed in a CEF thread that belongs
|
||||
// to the BROWSER PROCESS.
|
||||
|
||||
// To receive the messages sent from the BROWSER PROCESS you need to use the
|
||||
// TCefApplication.OnProcessMessageReceived event (GlobalCEFApp.OnProcessMessageReceived).
|
||||
// This event is executed in a CEF thread that belongs to the RENDERER PROCESS.
|
||||
|
||||
|
||||
// JAVASCRIPT EXTENSIONS
|
||||
// =====================
|
||||
|
||||
// CEF exposes a large number of JS features for integration in client applications.
|
||||
// You can use JS types, arrays, functions, extensions, objects, etc.
|
||||
|
||||
// All of those features are described in detail here :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
// One of the most interesting JS features available in CEF are the JavaScript extensions because they
|
||||
// can be used to execute custom Delphi code from JavaScript.
|
||||
|
||||
// If you put all you know so far together you can get any result or information in Delphi from
|
||||
// JavaScript following these steps :
|
||||
// 1. Use TChromium.ExecuteJavaScript to execute your custom JavaScript code.
|
||||
// 2. That custom JavaScript code is executed in the RENDERER PROCESS and it can call functions in your
|
||||
// custom JavaScript extension, which executes Delphi code. This Delphi code is also executed in
|
||||
// the RENDERER PROCESS.
|
||||
// 3. The Delphi code in the JavaScript extension can use ICefFrame.SendProcessMessage to send
|
||||
// information back to the BROWSER PROCESS.
|
||||
// 4. The BROWSER PROCESS receives the information in the TChromium.OnProcessMessageReceived event.
|
||||
|
||||
// To create a JavaScript extension in CEF you have to create a new class that inherits from
|
||||
// TCefv8HandlerOwn and it has to override the "execute" function. Open uTestExtensionHandler.pas
|
||||
// to see an example and read this for more details about the "execute" parameters :
|
||||
// https://magpcss.org/ceforum/apidocs3/projects/(default)/CefV8Handler.html
|
||||
|
||||
// In order to use that extension, you must register it in the GlobalCEFApp.OnWebKitInitialized event
|
||||
// as you can see in the GlobalCEFApp_OnWebKitInitialized procedure on this PAS unit.
|
||||
|
||||
// You have to call the CefRegisterExtension function with 3 parameters :
|
||||
// 1. name : The extension name.
|
||||
// 2. code : Any valid JS code but in this case it includes 2 "native function" forward declarations.
|
||||
// 3. Handler : An instance of your TCefv8HandlerOwn subclass.
|
||||
|
||||
// Notice that the code used with the CefRegisterExtension function in this demo is declaring
|
||||
// "myextension.mouseover" as a function that calls the "mouseover" native function, and the
|
||||
// "myextension.sendresulttobrowser" function that calls the "sendresulttobrowser" native function.
|
||||
|
||||
// The "execute" function in the custom TCefv8HandlerOwn subclass will compare the "name" parameter
|
||||
// with the name of the of the native function used in the code that registered this extension.
|
||||
// As you can see in this demo, TTestExtensionHandler.Execute compares the "name" parameter with
|
||||
// "mouseover" and "sendresulttobrowser" to execute the code you want for each of those custom functions.
|
||||
|
||||
// TTestExtensionHandler.Execute is executed in the RENDERER PROCESS and it uses a process message
|
||||
// to send some results to he BROWSER PROCESS.
|
||||
// It uses TCefv8ContextRef.Current.Browser.MainFrame to call the SendProcessMessage procedure for
|
||||
// the main frame.
|
||||
|
||||
// The message is a TCefProcessMessageRef instance and you can set the information you want to send using
|
||||
// its ArgumentList property.
|
||||
|
||||
// You can add several items to ArgumentList using different indexes in the SetString, SetInt, SetBool,
|
||||
// SetBinary, etc. functions.
|
||||
// There is a size limit in the binary parameters of only a few kilobytes. Compress the binary data, use
|
||||
// alternative IPC methods or use a database protected by a mutex if necessary.
|
||||
|
||||
// For more information about this, read the following pages :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md#markdown-header-functions-and-extensions
|
||||
// https://bitbucket.org/chromiumembedded/cef/src/b6b033a52bb3f7059d169a4c8389966c8fe2531b/include/capi/cef_v8_capi.h#lines-924
|
||||
|
||||
|
||||
// TESTING THIS DEMO :
|
||||
// ===================
|
||||
// 1. Run the demo and wait until google.com is loaded
|
||||
// 2. Right-click and select the "Set the mouseover event" menu option.
|
||||
// 3. Move the mouse pointer over the web page and see the HTML elements in the status bar.
|
||||
|
||||
// When you select the "Set the mouseover event" menu option, the
|
||||
// TChromium.OnContextMenuCommand event is triggered and it adds an event listener to the
|
||||
// document's body. That listener calls one of the functions available in the registered
|
||||
// extension called "myextension.mouseover".
|
||||
|
||||
// The TTestExtensionHandler.Execute function in the extension is executed and it
|
||||
// uses TCefv8ContextRef.Current.Browser.MainFrame.SendProcessMessage(PID_BROWSER, msg)
|
||||
// to send a process message with the results to the browser process.
|
||||
|
||||
// That message is received in the TChromium.OnProcessMessageReceived event and it shows
|
||||
// the information in the status bar.
|
||||
|
||||
// If you have to debug the code executed by the extension you will need to use the
|
||||
// debugging methods described in
|
||||
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
||||
|
||||
procedure GlobalCEFApp_OnWebKitInitialized;
|
||||
var
|
||||
TempExtensionCode : string;
|
||||
TempHandler : ICefv8Handler;
|
||||
begin
|
||||
try
|
||||
// This is a JS extension example with 2 functions and several parameters.
|
||||
// Please, read the "JavaScript Integration" wiki page at
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
TempExtensionCode := 'var myextension;' +
|
||||
'if (!myextension)' +
|
||||
' myextension = {};' +
|
||||
'(function() {' +
|
||||
' myextension.mouseover = function(a) {' +
|
||||
' native function mouseover();' +
|
||||
' mouseover(a);' +
|
||||
' };' +
|
||||
' myextension.sendresulttobrowser = function(b,c) {' +
|
||||
' native function sendresulttobrowser();' +
|
||||
' sendresulttobrowser(b,c);' +
|
||||
' };' +
|
||||
'})();';
|
||||
|
||||
TempHandler := TTestExtensionHandler.Create;
|
||||
|
||||
if CefRegisterExtension('myextension', TempExtensionCode, TempHandler) then
|
||||
{$IFDEF DEBUG}CefDebugLog('JavaScript extension registered successfully!'){$ENDIF}
|
||||
else
|
||||
{$IFDEF DEBUG}CefDebugLog('There was an error registering the JavaScript extension!'){$ENDIF};
|
||||
finally
|
||||
TempHandler := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
begin
|
||||
GlobalCEFApp := TCefApplicationCore.Create;
|
||||
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
|
||||
{$IFDEF DEBUG}
|
||||
GlobalCEFApp.LogFile := 'debug.log';
|
||||
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
|
||||
{$ENDIF}
|
||||
GlobalCEFApp.StartSubProcess;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,27 @@
|
||||
object SimpleTextViewerFrm: TSimpleTextViewerFrm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Simple text viewer'
|
||||
ClientHeight = 572
|
||||
ClientWidth = 694
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Position = poScreenCenter
|
||||
TextHeight = 13
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 694
|
||||
Height = 572
|
||||
Align = alClient
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,33 @@
|
||||
unit uSimpleTextViewer;
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
||||
{$ELSE}
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
type
|
||||
TSimpleTextViewerFrm = class(TForm)
|
||||
Memo1: TMemo;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
SimpleTextViewerFrm: TSimpleTextViewerFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
@ -0,0 +1,75 @@
|
||||
unit uTestExtensionHandler;
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows,
|
||||
{$ELSE}
|
||||
Windows,
|
||||
{$ENDIF}
|
||||
uCEFRenderProcessHandler, uCEFBrowserProcessHandler, uCEFInterfaces, uCEFProcessMessage,
|
||||
uCEFv8Context, uCEFTypes, uCEFv8Handler;
|
||||
|
||||
type
|
||||
TTestExtensionHandler = class(TCefv8HandlerOwn)
|
||||
protected
|
||||
function Execute(const name: ustring; const object_: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCEFMiscFunctions, uCEFConstants, uJSExtension;
|
||||
|
||||
function TTestExtensionHandler.Execute(const name : ustring;
|
||||
const object_ : ICefv8Value;
|
||||
const arguments : TCefv8ValueArray;
|
||||
var retval : ICefv8Value;
|
||||
var exception : ustring): Boolean;
|
||||
var
|
||||
TempMessage : ICefProcessMessage;
|
||||
TempFrame : ICefFrame;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
try
|
||||
if (name = 'mouseover') then
|
||||
begin
|
||||
if (length(arguments) > 0) and arguments[0].IsString then
|
||||
begin
|
||||
TempMessage := TCefProcessMessageRef.New(MOUSEOVER_MESSAGE_NAME);
|
||||
TempMessage.ArgumentList.SetString(0, arguments[0].GetStringValue);
|
||||
|
||||
TempFrame := TCefv8ContextRef.Current.Browser.MainFrame;
|
||||
|
||||
if (TempFrame <> nil) and TempFrame.IsValid then
|
||||
TempFrame.SendProcessMessage(PID_BROWSER, TempMessage);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
if (name = 'sendresulttobrowser') then
|
||||
begin
|
||||
if (length(arguments) > 1) and arguments[0].IsString and arguments[1].IsString then
|
||||
begin
|
||||
TempMessage := TCefProcessMessageRef.New(arguments[1].GetStringValue);
|
||||
TempMessage.ArgumentList.SetString(0, arguments[0].GetStringValue);
|
||||
|
||||
TempFrame := TCefv8ContextRef.Current.Browser.MainFrame;
|
||||
|
||||
if (TempFrame <> nil) and TempFrame.IsValid then
|
||||
TempFrame.SendProcessMessage(PID_BROWSER, TempMessage);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
finally
|
||||
TempMessage := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,2 @@
|
||||
rmdir /S /Q lib
|
||||
rmdir /S /Q backup
|
||||
@ -0,0 +1,100 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<MainUnitHasUsesSectionForAllUnits Value="False"/>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
<MainUnitHasScaledStatement Value="False"/>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<Title Value="JSExtension"/>
|
||||
<UseAppBundle Value="False"/>
|
||||
<ResourceType Value="res"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<UseFileFilters Value="True"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="CEF4Delphi_Lazarus"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="JSExtension.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="uJSExtension.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="JSExtensionFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="uSimpleTextViewer.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="SimpleTextViewerFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\..\..\bin\JSExtension"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<SyntaxMode Value="Delphi"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<DebugInfoType Value="dsDwarf2Set"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@ -0,0 +1,32 @@
|
||||
program JSExtension;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
uses
|
||||
Forms, LCLIntf, LCLType, LMessages, Interfaces,
|
||||
uCEFApplication,
|
||||
uJSExtension in 'uJSExtension.pas' {JSExtensionFrm},
|
||||
uSimpleTextViewer in 'uSimpleTextViewer.pas' {SimpleTextViewerFrm};
|
||||
|
||||
{.$R *.res}
|
||||
|
||||
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
|
||||
{$SetPEFlags $20}
|
||||
|
||||
begin
|
||||
// GlobalCEFApp creation and initialization moved to a different unit to fix the memory leak described in the bug #89
|
||||
// https://github.com/salvadordf/CEF4Delphi/issues/89
|
||||
CreateGlobalCEFApp;
|
||||
|
||||
if GlobalCEFApp.StartMainProcess then
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TJSExtensionFrm, JSExtensionFrm);
|
||||
Application.CreateForm(TSimpleTextViewerFrm, SimpleTextViewerFrm);
|
||||
Application.Run;
|
||||
end;
|
||||
|
||||
DestroyGlobalCEFApp;
|
||||
end.
|
||||
@ -0,0 +1,92 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<MainUnitHasUsesSectionForAllUnits Value="False"/>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
<MainUnitHasScaledStatement Value="False"/>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<Title Value="JSExtension_sp"/>
|
||||
<UseAppBundle Value="False"/>
|
||||
<ResourceType Value="res"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<UseFileFilters Value="True"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="CEF4Delphi_Lazarus"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="JSExtension_sp.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="uTestExtensionHandler.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="ujsextension_sp.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="uJSExtension_sp"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\..\..\bin\JSExtension_sp"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<SyntaxMode Value="Delphi"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@ -0,0 +1,20 @@
|
||||
program JSExtension_sp;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
uses
|
||||
LCLIntf, LCLType, LMessages, Forms, Interfaces,
|
||||
uCEFApplicationCore, uJSExtension_sp, uTestExtensionHandler;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
// CEF needs to set the LARGEADDRESSAWARE ($20) flag which allows 32-bit processes to use up to 3GB of RAM.
|
||||
const
|
||||
IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020;
|
||||
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
|
||||
{$ENDIF}
|
||||
|
||||
begin
|
||||
CreateGlobalCEFApp;
|
||||
DestroyGlobalCEFApp;
|
||||
end.
|
||||
|
||||
@ -0,0 +1,86 @@
|
||||
object JSExtensionFrm: TJSExtensionFrm
|
||||
Left = 483
|
||||
Height = 589
|
||||
Top = 152
|
||||
Width = 978
|
||||
Caption = 'JSExtension'
|
||||
ClientHeight = 589
|
||||
ClientWidth = 978
|
||||
Color = clBtnFace
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '3.0.0.3'
|
||||
object NavControlPnl: TPanel
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 978
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 21
|
||||
ClientWidth = 978
|
||||
Enabled = False
|
||||
ParentBackground = False
|
||||
TabOrder = 0
|
||||
object Edit1: TEdit
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 947
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
Text = 'http://www.google.com'
|
||||
end
|
||||
object GoBtn: TButton
|
||||
Left = 947
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 31
|
||||
Align = alRight
|
||||
Caption = 'Go'
|
||||
TabOrder = 1
|
||||
OnClick = GoBtnClick
|
||||
end
|
||||
end
|
||||
object CEFWindowParent1: TCEFWindowParent
|
||||
Left = 0
|
||||
Height = 547
|
||||
Top = 21
|
||||
Width = 978
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
end
|
||||
object StatusPnl: TPanel
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 568
|
||||
Width = 978
|
||||
Align = alBottom
|
||||
BevelOuter = bvLowered
|
||||
ParentBackground = False
|
||||
TabOrder = 2
|
||||
end
|
||||
object Chromium1: TChromium
|
||||
OnProcessMessageReceived = Chromium1ProcessMessageReceived
|
||||
OnBeforeContextMenu = Chromium1BeforeContextMenu
|
||||
OnContextMenuCommand = Chromium1ContextMenuCommand
|
||||
OnBeforePopup = Chromium1BeforePopup
|
||||
OnAfterCreated = Chromium1AfterCreated
|
||||
OnBeforeClose = Chromium1BeforeClose
|
||||
OnClose = Chromium1Close
|
||||
Left = 32
|
||||
Top = 224
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Enabled = False
|
||||
Interval = 300
|
||||
OnTimer = Timer1Timer
|
||||
Left = 32
|
||||
Top = 288
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,496 @@
|
||||
unit uJSExtension;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls,
|
||||
{$ELSE}
|
||||
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
|
||||
{$ENDIF}
|
||||
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants,
|
||||
uCEFWinControl;
|
||||
|
||||
const
|
||||
MINIBROWSER_SHOWTEXTVIEWER = WM_APP + $100;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_SETJSEVENT = MENU_ID_USER_FIRST + 1;
|
||||
MINIBROWSER_CONTEXTMENU_JSVISITDOM = MENU_ID_USER_FIRST + 2;
|
||||
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 3;
|
||||
MINIBROWSER_CONTEXTMENU_OFFLINE = MENU_ID_USER_FIRST + 4;
|
||||
|
||||
MOUSEOVER_MESSAGE_NAME = 'mouseover';
|
||||
CUSTOMNAME_MESSAGE_NAME = 'customname';
|
||||
|
||||
type
|
||||
|
||||
{ TJSExtensionFrm }
|
||||
|
||||
TJSExtensionFrm = class(TForm)
|
||||
NavControlPnl: TPanel;
|
||||
Edit1: TEdit;
|
||||
GoBtn: TButton;
|
||||
CEFWindowParent1: TCEFWindowParent;
|
||||
Chromium1: TChromium;
|
||||
StatusPnl: TPanel;
|
||||
Timer1: TTimer;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure GoBtnClick(Sender: TObject);
|
||||
procedure Chromium1BeforeContextMenu(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; const model: ICefMenuModel);
|
||||
procedure Chromium1ContextMenuCommand(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; commandId: Integer;
|
||||
eventFlags: Cardinal; out Result: Boolean);
|
||||
procedure Chromium1ProcessMessageReceived(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId;
|
||||
const message: ICefProcessMessage; out Result: Boolean);
|
||||
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure Chromium1BeforePopup(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
|
||||
targetFrameName: ustring;
|
||||
targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean;
|
||||
const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
|
||||
var client: ICefClient; var settings: TCefBrowserSettings;
|
||||
var extra_info: ICefDictionaryValue;
|
||||
var noJavascriptAccess: Boolean; var Result: Boolean);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser;
|
||||
var aAction : TCefCloseBrowserAction);
|
||||
procedure Chromium1BeforeClose(Sender: TObject;
|
||||
const browser: ICefBrowser);
|
||||
protected
|
||||
FText : string;
|
||||
// Variables to control when can we destroy the form safely
|
||||
FCanClose : boolean; // Set to True in TChromium.OnBeforeClose
|
||||
FClosing : boolean; // Set to True in the CloseQuery event.
|
||||
|
||||
FOffline : boolean;
|
||||
|
||||
procedure BrowserCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
|
||||
procedure BrowserDestroyMsg(var aMessage : TMessage); message CEF_DESTROY;
|
||||
procedure ShowTextViewerMsg(var aMessage : TMessage); message MINIBROWSER_SHOWTEXTVIEWER;
|
||||
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
|
||||
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
|
||||
procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
|
||||
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
|
||||
|
||||
function SwitchOfflineMode : integer;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
JSExtensionFrm: TJSExtensionFrm;
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
uSimpleTextViewer, uCEFMiscFunctions, uTestExtensionHandler, uCEFDictionaryValue;
|
||||
|
||||
// BASIC CONCEPTS
|
||||
// ==============
|
||||
|
||||
// Chromium uses several processes to carry out all the tasks needed to handle a web page :
|
||||
// 1. The main application process is called "BROWSER PROCESS" and it runs the UI.
|
||||
// 2. The layout and interpretation of HTML is done in the "RENDERER PROCESS".
|
||||
|
||||
// Read this for more details about Chromium's architecture :
|
||||
// http://www.chromium.org/developers/design-documents/multi-process-architecture
|
||||
|
||||
// Each process is isolated from the rest and you need to use some kind of inter-process
|
||||
// communication (IPC) to send information between them. This isolation and protection is
|
||||
// guaranteed by the operating system and it's the main reason Chromium uses several processes.
|
||||
|
||||
// In many cases, you need to use JavaScript or visit the DOM to return some results to Pascal.
|
||||
// The DOM and JavaScript live in the RENDERER PROCESS, while the Pascal code of your application
|
||||
// lives in the BROWSER PROCESS.
|
||||
|
||||
// As commented before, the operating system isolates each process and this means that you
|
||||
// can't access anything declared in one process like variables, fields, classes, controls, etc.
|
||||
// from a different process.
|
||||
|
||||
// However, CEF has several ways to send information between processes and you can also use your
|
||||
// own inter-process communication methods.
|
||||
|
||||
// If you need to execute some JavaScript code all you need is to call TChromium.ExecuteJavaScript
|
||||
// from your application's code in the BROWSER PROCESS and CEF will take care of executing that
|
||||
// code in the RENDERER PROCESS.
|
||||
|
||||
// If you need to send a message to the RENDERER PROCESS from the BROWSER PROCESS you can use
|
||||
// TChromium.SendProcessMessage.
|
||||
|
||||
// To send messages to the BROWSER PROCESS from the RENDERER PROCESS you can use
|
||||
// ICefFrame.SendProcessMessage
|
||||
|
||||
|
||||
// -------------- TChromium.SendProcessMessage --------------
|
||||
// | | ------------------------------> | |
|
||||
// | BROWSER | | RENDERER |
|
||||
// | | | |
|
||||
// | PROCESS | ICefFrame.SendProcessMessage | PROCESS |
|
||||
// | | <------------------------------ | |
|
||||
// -------------- --------------
|
||||
|
||||
|
||||
// To receive the messages sent from the RENDERER PROCESS you need to use the
|
||||
// TChromium.OnProcessMessageReceived event. This event is executed in a CEF thread that belongs
|
||||
// to the BROWSER PROCESS.
|
||||
|
||||
// To receive the messages sent from the BROWSER PROCESS you need to use the
|
||||
// TCefApplication.OnProcessMessageReceived event (GlobalCEFApp.OnProcessMessageReceived).
|
||||
// This event is executed in a CEF thread that belongs to the RENDERER PROCESS.
|
||||
|
||||
|
||||
// JAVASCRIPT EXTENSIONS
|
||||
// =====================
|
||||
|
||||
// CEF exposes a large number of JS features for integration in client applications.
|
||||
// You can use JS types, arrays, functions, extensions, objects, etc.
|
||||
|
||||
// All of those features are described in detail here :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
// One of the most interesting JS features available in CEF are the JavaScript extensions because they
|
||||
// can be used to execute custom Pascal code from JavaScript.
|
||||
|
||||
// If you put all you know so far together you can get any result or information in Pascal from
|
||||
// JavaScript following these steps :
|
||||
// 1. Use TChromium.ExecuteJavaScript to execute your custom JavaScript code.
|
||||
// 2. That custom JavaScript code is executed in the RENDERER PROCESS and it can call functions in your
|
||||
// custom JavaScript extension, which executes Pascal code. This Pascal code is also executed in
|
||||
// the RENDERER PROCESS.
|
||||
// 3. The Pascal code in the JavaScript extension can use ICefFrame.SendProcessMessage to send
|
||||
// information back to the BROWSER PROCESS.
|
||||
// 4. The BROWSER PROCESS receives the information in the TChromium.OnProcessMessageReceived event.
|
||||
|
||||
// To create a JavaScript extension in CEF you have to create a new class that inherits from
|
||||
// TCefv8HandlerOwn and it has to override the "execute" function. Open uTestExtensionHandler.pas
|
||||
// to see an example and read this for more details about the "execute" parameters :
|
||||
// https://magpcss.org/ceforum/apidocs3/projects/(default)/CefV8Handler.html
|
||||
|
||||
// In order to use that extension, you must register it in the GlobalCEFApp.OnWebKitInitialized event
|
||||
// as you can see in the GlobalCEFApp_OnWebKitInitialized procedure on this PAS unit.
|
||||
|
||||
// You have to call the CefRegisterExtension function with 3 parameters :
|
||||
// 1. name : The extension name.
|
||||
// 2. code : Any valid JS code but in this case it includes 2 "native function" forward declarations.
|
||||
// 3. Handler : An instance of your TCefv8HandlerOwn subclass.
|
||||
|
||||
// Notice that the code used with the CefRegisterExtension function in this demo is declaring
|
||||
// "myextension.mouseover" as a function that calls the "mouseover" native function, and the
|
||||
// "myextension.sendresulttobrowser" function that calls the "sendresulttobrowser" native function.
|
||||
|
||||
// The "execute" function in the custom TCefv8HandlerOwn subclass will compare the "name" parameter
|
||||
// with the name of the of the native function used in the code that registered this extension.
|
||||
// As you can see in this demo, TTestExtensionHandler.Execute compares the "name" parameter with
|
||||
// "mouseover" and "sendresulttobrowser" to execute the code you want for each of those custom functions.
|
||||
|
||||
// TTestExtensionHandler.Execute is executed in the RENDERER PROCESS and it uses a process message
|
||||
// to send some results to he BROWSER PROCESS.
|
||||
// It uses TCefv8ContextRef.Current.Browser.MainFrame to call the SendProcessMessage procedure for
|
||||
// the main frame.
|
||||
|
||||
// The message is a TCefProcessMessageRef instance and you can set the information you want to send using
|
||||
// its ArgumentList property.
|
||||
|
||||
// You can add several items to ArgumentList using different indexes in the SetString, SetInt, SetBool,
|
||||
// SetBinary, etc. functions.
|
||||
// There is a size limit in the binary parameters of only a few kilobytes. Compress the binary data, use
|
||||
// alternative IPC methods or use a database protected by a mutex if necessary.
|
||||
|
||||
// For more information about this, read the following pages :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md#markdown-header-functions-and-extensions
|
||||
// https://bitbucket.org/chromiumembedded/cef/src/b6b033a52bb3f7059d169a4c8389966c8fe2531b/include/capi/cef_v8_capi.h#lines-924
|
||||
|
||||
|
||||
// TESTING THIS DEMO :
|
||||
// ===================
|
||||
// 1. Run the demo and wait until google.com is loaded
|
||||
// 2. Right-click and select the "Set the mouseover event" menu option.
|
||||
// 3. Move the mouse pointer over the web page and see the HTML elements in the status bar.
|
||||
|
||||
// When you select the "Set the mouseover event" menu option, the
|
||||
// TChromium.OnContextMenuCommand event is triggered and it adds an event listener to the
|
||||
// document's body. That listener calls one of the functions available in the registered
|
||||
// extension called "myextension.mouseover".
|
||||
|
||||
// The TTestExtensionHandler.Execute function in the extension is executed and it
|
||||
// uses TCefv8ContextRef.Current.Browser.MainFrame.SendProcessMessage(PID_BROWSER, msg)
|
||||
// to send a process message with the results to the browser process.
|
||||
|
||||
// That message is received in the TChromium.OnProcessMessageReceived event and it shows
|
||||
// the information in the status bar.
|
||||
|
||||
// If you have to debug the code executed by the extension you will need to use the
|
||||
// debugging methods described in
|
||||
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
||||
|
||||
|
||||
// DESTRUCTION STEPS
|
||||
// =================
|
||||
// 1. FormCloseQuery sets CanClose to FALSE calls TChromium.CloseBrowser which triggers
|
||||
// the TChromium.OnClose event.
|
||||
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1
|
||||
// in the main thread, which triggers the TChromium.OnBeforeClose event.
|
||||
// 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
begin
|
||||
GlobalCEFApp := TCefApplication.Create;
|
||||
GlobalCEFApp.BrowserSubprocessPath := 'JSExtension_sp.exe';
|
||||
GlobalCEFApp.SetCurrentDir := True;
|
||||
{$IFDEF DEBUG}
|
||||
GlobalCEFApp.LogFile := 'debug.log';
|
||||
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.GoBtnClick(Sender: TObject);
|
||||
begin
|
||||
Chromium1.LoadURL(Edit1.Text);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
|
||||
begin
|
||||
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforeClose(Sender: TObject;
|
||||
const browser: ICefBrowser);
|
||||
begin
|
||||
FCanClose := True;
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforeContextMenu(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; const model: ICefMenuModel);
|
||||
begin
|
||||
// Adding some custom context menu entries
|
||||
model.AddSeparator;
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_SETJSEVENT, 'Set mouseover event');
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_JSVISITDOM, 'Visit DOM in JavaScript');
|
||||
model.AddItem(MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS, 'Show DevTools');
|
||||
model.AddCheckItem(MINIBROWSER_CONTEXTMENU_OFFLINE, 'Offline');
|
||||
model.SetChecked(MINIBROWSER_CONTEXTMENU_OFFLINE, FOffline);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1BeforePopup(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
|
||||
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
|
||||
userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
|
||||
var windowInfo: TCefWindowInfo; var client: ICefClient;
|
||||
var settings: TCefBrowserSettings;
|
||||
var extra_info: ICefDictionaryValue;
|
||||
var noJavascriptAccess: Boolean;
|
||||
var Result: Boolean);
|
||||
begin
|
||||
// For simplicity, this demo blocks all popup windows and new tabs
|
||||
Result := (targetDisposition in [CEF_WOD_NEW_FOREGROUND_TAB, CEF_WOD_NEW_BACKGROUND_TAB, CEF_WOD_NEW_POPUP, CEF_WOD_NEW_WINDOW]);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1Close(Sender: TObject;
|
||||
const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
|
||||
begin
|
||||
PostMessage(Handle, CEF_DESTROY, 0, 0);
|
||||
aAction := cbaDelay;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1ContextMenuCommand(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame;
|
||||
const params: ICefContextMenuParams; commandId: Integer;
|
||||
eventFlags: Cardinal; out Result: Boolean);
|
||||
var
|
||||
TempPoint : TPoint;
|
||||
TempJSCode : string;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
// Here is the code executed for each custom context menu entry
|
||||
|
||||
case commandId of
|
||||
MINIBROWSER_CONTEXTMENU_SETJSEVENT :
|
||||
if (frame <> nil) and frame.IsValid then
|
||||
begin
|
||||
TempJSCode := 'document.body.addEventListener("mouseover", function(evt){'+
|
||||
'function getpath(n){'+
|
||||
'var ret = "<" + n.nodeName + ">";'+
|
||||
'if (n.parentNode){return getpath(n.parentNode) + ret} else '+
|
||||
'return ret'+
|
||||
'};'+
|
||||
'myextension.mouseover(getpath(evt.target))}'+
|
||||
')';
|
||||
|
||||
frame.ExecuteJavaScript(TempJSCode, 'about:blank', 0);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_JSVISITDOM :
|
||||
if (frame <> nil) and frame.IsValid then
|
||||
begin
|
||||
TempJSCode := 'var testhtml = document.body.innerHTML; ' +
|
||||
'myextension.sendresulttobrowser(testhtml, ' + quotedstr(CUSTOMNAME_MESSAGE_NAME) + ');';
|
||||
|
||||
frame.ExecuteJavaScript(TempJSCode, 'about:blank', 0);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS :
|
||||
begin
|
||||
TempPoint.x := params.XCoord;
|
||||
TempPoint.y := params.YCoord;
|
||||
Chromium1.ShowDevTools(TempPoint, nil);
|
||||
end;
|
||||
|
||||
MINIBROWSER_CONTEXTMENU_OFFLINE :
|
||||
SwitchOfflineMode;
|
||||
end;
|
||||
end;
|
||||
|
||||
// This is a simple example to set the "offline" mode in the DevTools using the TChromium methods directly.
|
||||
function TJSExtensionFrm.SwitchOfflineMode : integer;
|
||||
var
|
||||
TempParams : ICefDictionaryValue;
|
||||
begin
|
||||
try
|
||||
FOffline := not(FOffline);
|
||||
|
||||
TempParams := TCefDictionaryValueRef.New;
|
||||
TempParams.SetBool('offline', FOffline);
|
||||
TempParams.SetDouble('latency', 0);
|
||||
TempParams.SetDouble('downloadThroughput', 0);
|
||||
TempParams.SetDouble('uploadThroughput', 0);
|
||||
|
||||
Result := Chromium1.ExecuteDevToolsMethod(0, 'Network.emulateNetworkConditions', TempParams);
|
||||
finally
|
||||
TempParams := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Chromium1ProcessMessageReceived(Sender: TObject;
|
||||
const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId;
|
||||
const message: ICefProcessMessage; out Result: Boolean);
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if (message = nil) or (message.ArgumentList = nil) then exit;
|
||||
|
||||
// This function receives the messages with the JavaScript results
|
||||
|
||||
// Many of these events are received in different threads and the VCL
|
||||
// doesn't like to create and destroy components in different threads.
|
||||
|
||||
// It's safer to store the results and send a message to the main thread to show them.
|
||||
|
||||
// The message names are defined in the extension or in JS code.
|
||||
|
||||
if (message.Name = MOUSEOVER_MESSAGE_NAME) then
|
||||
begin
|
||||
StatusPnl.Caption := message.ArgumentList.GetString(0); // this doesn't create/destroy components
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
if (message.Name = CUSTOMNAME_MESSAGE_NAME) then
|
||||
begin
|
||||
FText := message.ArgumentList.GetString(0);
|
||||
PostMessage(Handle, MINIBROWSER_SHOWTEXTVIEWER, 0, 0);
|
||||
Result := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormCloseQuery(Sender: TObject;
|
||||
var CanClose: Boolean);
|
||||
begin
|
||||
CanClose := FCanClose;
|
||||
|
||||
if not(FClosing) then
|
||||
begin
|
||||
FClosing := True;
|
||||
Visible := False;
|
||||
Chromium1.CloseBrowser(True);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FCanClose := False;
|
||||
FClosing := False;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
StatusPnl.Caption := 'Initializing browser. Please wait...';
|
||||
|
||||
// GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser
|
||||
// If it's not initialized yet, we use a simple timer to create the browser later.
|
||||
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMMove(var aMessage : TWMMove);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (Chromium1 <> nil) then Chromium1.NotifyMoveOrResizeStarted;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMMoving(var aMessage : TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (Chromium1 <> nil) then Chromium1.NotifyMoveOrResizeStarted;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMEnterMenuLoop(var aMessage: TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.WMExitMenuLoop(var aMessage: TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := False;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.ShowTextViewerMsg(var aMessage : TMessage);
|
||||
begin
|
||||
// This form will show the HTML received from JavaScript
|
||||
SimpleTextViewerFrm.Memo1.Lines.Text := FText;
|
||||
SimpleTextViewerFrm.ShowModal;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
Timer1.Enabled := False;
|
||||
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) and not(Chromium1.Initialized) then
|
||||
Timer1.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.BrowserCreatedMsg(var aMessage : TMessage);
|
||||
begin
|
||||
StatusPnl.Caption := '';
|
||||
CEFWindowParent1.UpdateSize;
|
||||
NavControlPnl.Enabled := True;
|
||||
GoBtn.Click;
|
||||
end;
|
||||
|
||||
procedure TJSExtensionFrm.BrowserDestroyMsg(var aMessage : TMessage);
|
||||
begin
|
||||
CEFWindowParent1.Free;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,27 @@
|
||||
object SimpleTextViewerFrm: TSimpleTextViewerFrm
|
||||
Left = 0
|
||||
Height = 572
|
||||
Top = 0
|
||||
Width = 694
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Simple text viewer'
|
||||
ClientHeight = 572
|
||||
ClientWidth = 694
|
||||
Color = clBtnFace
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '2.0.1.0'
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 572
|
||||
Top = 0
|
||||
Width = 694
|
||||
Align = alClient
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,33 @@
|
||||
unit uSimpleTextViewer;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
||||
{$ELSE}
|
||||
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
type
|
||||
TSimpleTextViewerFrm = class(TForm)
|
||||
Memo1: TMemo;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
SimpleTextViewerFrm: TSimpleTextViewerFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
end.
|
||||
@ -0,0 +1,77 @@
|
||||
unit uTestExtensionHandler;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
{$I ..\..\..\..\source\cef.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI16_UP}
|
||||
Winapi.Windows,
|
||||
{$ELSE}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ENDIF}
|
||||
uCEFRenderProcessHandler, uCEFBrowserProcessHandler, uCEFInterfaces, uCEFProcessMessage,
|
||||
uCEFv8Context, uCEFTypes, uCEFv8Handler;
|
||||
|
||||
type
|
||||
TTestExtensionHandler = class(TCefv8HandlerOwn)
|
||||
protected
|
||||
function Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCEFMiscFunctions, uCEFConstants, uJSExtension;
|
||||
|
||||
function TTestExtensionHandler.Execute(const name : ustring;
|
||||
const obj : ICefv8Value;
|
||||
const arguments : TCefv8ValueArray;
|
||||
var retval : ICefv8Value;
|
||||
var exception : ustring): Boolean;
|
||||
var
|
||||
TempMessage : ICefProcessMessage;
|
||||
TempFrame : ICefFrame;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
try
|
||||
if (name = 'mouseover') then
|
||||
begin
|
||||
if (length(arguments) > 0) and arguments[0].IsString then
|
||||
begin
|
||||
TempMessage := TCefProcessMessageRef.New(MOUSEOVER_MESSAGE_NAME);
|
||||
TempMessage.ArgumentList.SetString(0, arguments[0].GetStringValue);
|
||||
|
||||
TempFrame := TCefv8ContextRef.Current.Browser.MainFrame;
|
||||
|
||||
if (TempFrame <> nil) and TempFrame.IsValid then
|
||||
TempFrame.SendProcessMessage(PID_BROWSER, TempMessage);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
if (name = 'sendresulttobrowser') then
|
||||
begin
|
||||
if (length(arguments) > 1) and arguments[0].IsString and arguments[1].IsString then
|
||||
begin
|
||||
TempMessage := TCefProcessMessageRef.New(arguments[1].GetStringValue);
|
||||
TempMessage.ArgumentList.SetString(0, arguments[0].GetStringValue);
|
||||
|
||||
TempFrame := TCefv8ContextRef.Current.Browser.MainFrame;
|
||||
|
||||
if (TempFrame <> nil) and TempFrame.IsValid then
|
||||
TempFrame.SendProcessMessage(PID_BROWSER, TempMessage);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
finally
|
||||
TempMessage := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,202 @@
|
||||
unit uJSExtension_sp;
|
||||
|
||||
{$mode Delphi}
|
||||
|
||||
interface
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCEFApplicationCore, uCEFConstants, uCEFv8Value, uCEFInterfaces, uCEFMiscFunctions,
|
||||
uTestExtensionHandler;
|
||||
|
||||
|
||||
// BASIC CONCEPTS
|
||||
// ==============
|
||||
|
||||
// Chromium uses several processes to carry out all the tasks needed to handle a web page :
|
||||
// 1. The main application process is called "BROWSER PROCESS" and it runs the UI.
|
||||
// 2. The layout and interpretation of HTML is done in the "RENDERER PROCESS".
|
||||
|
||||
// Read this for more details about Chromium's architecture :
|
||||
// http://www.chromium.org/developers/design-documents/multi-process-architecture
|
||||
|
||||
// Each process is isolated from the rest and you need to use some kind of inter-process
|
||||
// communication (IPC) to send information between them. This isolation and protection is
|
||||
// guaranteed by the operating system and it's the main reason Chromium uses several processes.
|
||||
|
||||
// In many cases, you need to use JavaScript or visit the DOM to return some results to Delphi.
|
||||
// The DOM and JavaScript live in the RENDERER PROCESS, while the Delphi code of your application
|
||||
// lives in the BROWSER PROCESS.
|
||||
|
||||
// As commented before, the operating system isolates each process and this means that you
|
||||
// can't access anything declared in one process like variables, fields, classes, controls, etc.
|
||||
// from a different process.
|
||||
|
||||
// However, CEF has several ways to send information between processes and you can also use your
|
||||
// own inter-process communication methods.
|
||||
|
||||
// If you need to execute some JavaScript code all you need is to call TChromium.ExecuteJavaScript
|
||||
// from your application's code in the BROWSER PROCESS and CEF will take care of executing that
|
||||
// code in the RENDERER PROCESS.
|
||||
|
||||
// If you need to send a message to the RENDERER PROCESS from the BROWSER PROCESS you can use
|
||||
// TChromium.SendProcessMessage.
|
||||
|
||||
// To send messages to the BROWSER PROCESS from the RENDERER PROCESS you can use
|
||||
// ICefFrame.SendProcessMessage
|
||||
|
||||
|
||||
// -------------- TChromium.SendProcessMessage --------------
|
||||
// | | ------------------------------> | |
|
||||
// | BROWSER | | RENDERER |
|
||||
// | | | |
|
||||
// | PROCESS | ICefFrame.SendProcessMessage | PROCESS |
|
||||
// | | <------------------------------ | |
|
||||
// -------------- --------------
|
||||
|
||||
|
||||
// To receive the messages sent from the RENDERER PROCESS you need to use the
|
||||
// TChromium.OnProcessMessageReceived event. This event is executed in a CEF thread that belongs
|
||||
// to the BROWSER PROCESS.
|
||||
|
||||
// To receive the messages sent from the BROWSER PROCESS you need to use the
|
||||
// TCefApplication.OnProcessMessageReceived event (GlobalCEFApp.OnProcessMessageReceived).
|
||||
// This event is executed in a CEF thread that belongs to the RENDERER PROCESS.
|
||||
|
||||
|
||||
// JAVASCRIPT EXTENSIONS
|
||||
// =====================
|
||||
|
||||
// CEF exposes a large number of JS features for integration in client applications.
|
||||
// You can use JS types, arrays, functions, extensions, objects, etc.
|
||||
|
||||
// All of those features are described in detail here :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
// One of the most interesting JS features available in CEF are the JavaScript extensions because they
|
||||
// can be used to execute custom Delphi code from JavaScript.
|
||||
|
||||
// If you put all you know so far together you can get any result or information in Delphi from
|
||||
// JavaScript following these steps :
|
||||
// 1. Use TChromium.ExecuteJavaScript to execute your custom JavaScript code.
|
||||
// 2. That custom JavaScript code is executed in the RENDERER PROCESS and it can call functions in your
|
||||
// custom JavaScript extension, which executes Delphi code. This Delphi code is also executed in
|
||||
// the RENDERER PROCESS.
|
||||
// 3. The Delphi code in the JavaScript extension can use ICefFrame.SendProcessMessage to send
|
||||
// information back to the BROWSER PROCESS.
|
||||
// 4. The BROWSER PROCESS receives the information in the TChromium.OnProcessMessageReceived event.
|
||||
|
||||
// To create a JavaScript extension in CEF you have to create a new class that inherits from
|
||||
// TCefv8HandlerOwn and it has to override the "execute" function. Open uTestExtensionHandler.pas
|
||||
// to see an example and read this for more details about the "execute" parameters :
|
||||
// https://magpcss.org/ceforum/apidocs3/projects/(default)/CefV8Handler.html
|
||||
|
||||
// In order to use that extension, you must register it in the GlobalCEFApp.OnWebKitInitialized event
|
||||
// as you can see in the GlobalCEFApp_OnWebKitInitialized procedure on this PAS unit.
|
||||
|
||||
// You have to call the CefRegisterExtension function with 3 parameters :
|
||||
// 1. name : The extension name.
|
||||
// 2. code : Any valid JS code but in this case it includes 2 "native function" forward declarations.
|
||||
// 3. Handler : An instance of your TCefv8HandlerOwn subclass.
|
||||
|
||||
// Notice that the code used with the CefRegisterExtension function in this demo is declaring
|
||||
// "myextension.mouseover" as a function that calls the "mouseover" native function, and the
|
||||
// "myextension.sendresulttobrowser" function that calls the "sendresulttobrowser" native function.
|
||||
|
||||
// The "execute" function in the custom TCefv8HandlerOwn subclass will compare the "name" parameter
|
||||
// with the name of the of the native function used in the code that registered this extension.
|
||||
// As you can see in this demo, TTestExtensionHandler.Execute compares the "name" parameter with
|
||||
// "mouseover" and "sendresulttobrowser" to execute the code you want for each of those custom functions.
|
||||
|
||||
// TTestExtensionHandler.Execute is executed in the RENDERER PROCESS and it uses a process message
|
||||
// to send some results to he BROWSER PROCESS.
|
||||
// It uses TCefv8ContextRef.Current.Browser.MainFrame to call the SendProcessMessage procedure for
|
||||
// the main frame.
|
||||
|
||||
// The message is a TCefProcessMessageRef instance and you can set the information you want to send using
|
||||
// its ArgumentList property.
|
||||
|
||||
// You can add several items to ArgumentList using different indexes in the SetString, SetInt, SetBool,
|
||||
// SetBinary, etc. functions.
|
||||
// There is a size limit in the binary parameters of only a few kilobytes. Compress the binary data, use
|
||||
// alternative IPC methods or use a database protected by a mutex if necessary.
|
||||
|
||||
// For more information about this, read the following pages :
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md#markdown-header-functions-and-extensions
|
||||
// https://bitbucket.org/chromiumembedded/cef/src/b6b033a52bb3f7059d169a4c8389966c8fe2531b/include/capi/cef_v8_capi.h#lines-924
|
||||
|
||||
|
||||
// TESTING THIS DEMO :
|
||||
// ===================
|
||||
// 1. Run the demo and wait until google.com is loaded
|
||||
// 2. Right-click and select the "Set the mouseover event" menu option.
|
||||
// 3. Move the mouse pointer over the web page and see the HTML elements in the status bar.
|
||||
|
||||
// When you select the "Set the mouseover event" menu option, the
|
||||
// TChromium.OnContextMenuCommand event is triggered and it adds an event listener to the
|
||||
// document's body. That listener calls one of the functions available in the registered
|
||||
// extension called "myextension.mouseover".
|
||||
|
||||
// The TTestExtensionHandler.Execute function in the extension is executed and it
|
||||
// uses TCefv8ContextRef.Current.Browser.MainFrame.SendProcessMessage(PID_BROWSER, msg)
|
||||
// to send a process message with the results to the browser process.
|
||||
|
||||
// That message is received in the TChromium.OnProcessMessageReceived event and it shows
|
||||
// the information in the status bar.
|
||||
|
||||
// If you have to debug the code executed by the extension you will need to use the
|
||||
// debugging methods described in
|
||||
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
||||
|
||||
procedure GlobalCEFApp_OnWebKitInitialized;
|
||||
var
|
||||
TempExtensionCode : string;
|
||||
TempHandler : ICefv8Handler;
|
||||
begin
|
||||
try
|
||||
// This is a JS extension example with 2 functions and several parameters.
|
||||
// Please, read the "JavaScript Integration" wiki page at
|
||||
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
||||
|
||||
TempExtensionCode := 'var myextension;' +
|
||||
'if (!myextension)' +
|
||||
' myextension = {};' +
|
||||
'(function() {' +
|
||||
' myextension.mouseover = function(a) {' +
|
||||
' native function mouseover();' +
|
||||
' mouseover(a);' +
|
||||
' };' +
|
||||
' myextension.sendresulttobrowser = function(b,c) {' +
|
||||
' native function sendresulttobrowser();' +
|
||||
' sendresulttobrowser(b,c);' +
|
||||
' };' +
|
||||
'})();';
|
||||
|
||||
TempHandler := TTestExtensionHandler.Create;
|
||||
|
||||
if CefRegisterExtension('myextension', TempExtensionCode, TempHandler) then
|
||||
{$IFDEF DEBUG}CefDebugLog('JavaScript extension registered successfully!'){$ENDIF}
|
||||
else
|
||||
{$IFDEF DEBUG}CefDebugLog('There was an error registering the JavaScript extension!'){$ENDIF};
|
||||
finally
|
||||
TempHandler := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CreateGlobalCEFApp;
|
||||
begin
|
||||
GlobalCEFApp := TCefApplicationCore.Create;
|
||||
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
|
||||
GlobalCEFApp.SetCurrentDir := True;
|
||||
{$IFDEF DEBUG}
|
||||
GlobalCEFApp.LogFile := 'debug.log';
|
||||
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
|
||||
{$ENDIF}
|
||||
GlobalCEFApp.StartSubProcess;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
"UpdateLazPackages" : [
|
||||
{
|
||||
"ForceNotify" : true,
|
||||
"InternalVersion" : 559,
|
||||
"InternalVersion" : 560,
|
||||
"Name" : "cef4delphi_lazarus.lpk",
|
||||
"Version" : "121.3.4"
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user