diff --git a/README.md b/README.md index d4d11423..2a057ab5 100644 --- a/README.md +++ b/README.md @@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file. -CEF4Delphi uses CEF 76.1.13 which includes Chromium 76.0.3809.132. +CEF4Delphi uses CEF 77.1.3 which includes Chromium 77.0.3865.90. The CEF binaries used by CEF4Delphi are available for download at spotify : -* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.13%2Bgf19c584%2Bchromium-76.0.3809.132_windows32.tar.bz2) -* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.13%2Bgf19c584%2Bchromium-76.0.3809.132_windows64.tar.bz2) +* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_77.1.3%2Bgf0a1c44%2Bchromium-77.0.3865.90_windows32.tar.bz2) +* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_77.1.3%2Bgf0a1c44%2Bchromium-77.0.3865.90_windows64.tar.bz2) CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.4/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. diff --git a/demos/Delphi_FMX/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj b/demos/Delphi_FMX/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj index 71cbf61f..b0992db9 100644 --- a/demos/Delphi_FMX/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj +++ b/demos/Delphi_FMX/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj @@ -5,7 +5,7 @@ FMX FMXExternalPumpBrowser.dpr True - Release + Debug Win32 3 Application diff --git a/demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas b/demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas index f521f7cf..1320a6d1 100644 --- a/demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas +++ b/demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas @@ -199,7 +199,6 @@ begin GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); diff --git a/demos/Delphi_FMX/FMXToolBoxBrowser/FMXToolBoxBrowser.dproj b/demos/Delphi_FMX/FMXToolBoxBrowser/FMXToolBoxBrowser.dproj index e49bc2cb..1d03e1d3 100644 --- a/demos/Delphi_FMX/FMXToolBoxBrowser/FMXToolBoxBrowser.dproj +++ b/demos/Delphi_FMX/FMXToolBoxBrowser/FMXToolBoxBrowser.dproj @@ -5,7 +5,7 @@ FMX FMXToolBoxBrowser.dpr True - Release + Debug Win32 3 Application diff --git a/demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas b/demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas index adf421ed..0c097f92 100644 --- a/demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas +++ b/demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas @@ -133,7 +133,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; function TMainForm.PostCustomMessage(aMessage, wParam : cardinal; lParam : integer) : boolean; diff --git a/demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dproj b/demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dproj index 6105bb67..621b1b99 100644 --- a/demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dproj +++ b/demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dproj @@ -5,7 +5,7 @@ FMX SimpleFMXBrowser.dpr True - Release + Debug Win32 3 Application diff --git a/demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas b/demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas index fac57018..f2ce8952 100644 --- a/demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas +++ b/demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas @@ -149,7 +149,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; diff --git a/demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr b/demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr index ff773b6a..afa416bd 100644 --- a/demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr +++ b/demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr @@ -113,7 +113,6 @@ begin GlobalCEFApp.BrowserSubprocessPath := 'OSRSubProcess.exe'; GlobalCEFApp.ExternalMessagePump := False; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // This demo uses a different EXE for the subprocesses. // With this configuration it's not necessary to have the diff --git a/demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr b/demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr index 646cdd77..b0e3a7f5 100644 --- a/demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr +++ b/demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr @@ -78,7 +78,6 @@ begin GlobalCEFApp.SetCurrentDir := True; GlobalCEFApp.ExternalMessagePump := False; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.StartSubProcess; GlobalCEFApp.Free; diff --git a/demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas b/demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas index a06a6da5..9b885b31 100644 --- a/demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas +++ b/demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas @@ -146,7 +146,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.dfm b/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.dfm index a813dc11..76d85e3c 100644 --- a/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.dfm +++ b/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.dfm @@ -12,7 +12,6 @@ object MainForm: TMainForm Font.Style = [] OldCreateOrder = False Position = poScreenCenter - OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow diff --git a/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas b/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas index 29dd19f2..cd143261 100644 --- a/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas @@ -63,7 +63,6 @@ type procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormShow(Sender: TObject); - procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); @@ -113,7 +112,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; @@ -123,11 +121,6 @@ begin ChromiumWindow1.LoadURL(Edit1.Text); end; -procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); -begin - FHandler := nil; -end; - procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := FCanClose; @@ -136,6 +129,7 @@ begin begin FClosing := True; Visible := False; + FHandler := nil; ChromiumWindow1.CloseBrowser(True); end; end; diff --git a/demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr b/demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr index 8056ff91..fb1e1f93 100644 --- a/demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr +++ b/demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr @@ -100,7 +100,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.SetCurrentDir := True; GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe'; diff --git a/demos/Delphi_VCL/DLLBrowser/SubProcess.dpr b/demos/Delphi_VCL/DLLBrowser/SubProcess.dpr index 81d20082..efac37b4 100644 --- a/demos/Delphi_VCL/DLLBrowser/SubProcess.dpr +++ b/demos/Delphi_VCL/DLLBrowser/SubProcess.dpr @@ -70,7 +70,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.SetCurrentDir := True; GlobalCEFApp.StartSubProcess; diff --git a/demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas b/demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas index edff340e..d83fae57 100644 --- a/demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas +++ b/demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas @@ -343,7 +343,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.RemoteDebuggingPort := 9000; GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // Enabling the debug log file for then DOM visitor demo. // This adds lots of warnings to the console, specially if you run this inside VirtualBox. diff --git a/demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas b/demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas index 9bf659f0..97955bd7 100644 --- a/demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas +++ b/demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas @@ -174,8 +174,9 @@ uses procedure CreateGlobalCEFApp; begin - GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + GlobalCEFApp := TCefApplication.Create; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TForm1.FillColorBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas b/demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas index bb925234..dc7e219e 100644 --- a/demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas +++ b/demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas @@ -128,7 +128,6 @@ begin GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TExternalPumpBrowserFrm.FormCreate(Sender: TObject); diff --git a/demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas b/demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas index e6637b1b..4691edd2 100644 --- a/demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas @@ -115,7 +115,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas b/demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas index a4646c56..ce262982 100644 --- a/demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas +++ b/demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas @@ -44,7 +44,7 @@ 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, System.SyncObjs, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.SyncObjs, System.UITypes, {$ELSE} Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SyncObjs, @@ -119,7 +119,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas b/demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas index ddecb764..ecade24c 100644 --- a/demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas +++ b/demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas @@ -524,7 +524,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSEvalFrm.Chromium1ProcessMessageReceived( Sender : TObject; diff --git a/demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas b/demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas index a203cdcd..44622364 100644 --- a/demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas +++ b/demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas @@ -174,7 +174,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas b/demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas index cf4746ee..f2a9f659 100644 --- a/demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas +++ b/demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas @@ -315,7 +315,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; {$IFDEF DEBUG} GlobalCEFApp.LogFile := 'debug.log'; GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; diff --git a/demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas b/demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas index b86b2cf5..3f823515 100644 --- a/demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas +++ b/demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas @@ -152,7 +152,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF} GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas b/demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas index 7a90b831..c9bc17d5 100644 --- a/demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas +++ b/demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas @@ -155,7 +155,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF} GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas b/demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas index 14aa51dc..a119e00c 100644 --- a/demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas +++ b/demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas @@ -173,7 +173,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; {$IFDEF DEBUG} GlobalCEFApp.LogFile := 'debug.log'; GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; diff --git a/demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas b/demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas index e20a1b6a..64fee3de 100644 --- a/demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas +++ b/demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas @@ -142,7 +142,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF} GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas b/demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas index 5703a9e4..24cbb5f6 100644 --- a/demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas +++ b/demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas @@ -130,7 +130,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr b/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr index d017f94f..8bf3a8ca 100644 --- a/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr +++ b/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr @@ -68,7 +68,6 @@ end; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath, // LocalesDirPath, cache, cookies and UserDataPath paths diff --git a/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas b/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas index 7e640c22..fd64cd5d 100644 --- a/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas +++ b/demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas @@ -129,7 +129,6 @@ begin // 4. Run this demo : JSSimpleWindowBinding GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe'; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas index 59170d0b..37e4fef7 100644 --- a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas +++ b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas @@ -155,7 +155,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithArrayBufferFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas index b450bc0b..515e8d2b 100644 --- a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas +++ b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas @@ -135,7 +135,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas index edf39f49..fcbdf24c 100644 --- a/demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas +++ b/demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas @@ -136,7 +136,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas b/demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas index 950247c7..012b3916 100644 --- a/demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas +++ b/demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas @@ -174,7 +174,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TForm1.AppEventsMessage(var Msg: tagMSG; var Handled: Boolean); diff --git a/demos/Delphi_VCL/MDIBrowser/uMainForm.pas b/demos/Delphi_VCL/MDIBrowser/uMainForm.pas index 2e187c95..f5432216 100644 --- a/demos/Delphi_VCL/MDIBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/MDIBrowser/uMainForm.pas @@ -116,7 +116,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.CreateMDIChild(const Name: string); diff --git a/demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas b/demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas index 0872e388..c5d0c1ba 100644 --- a/demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas @@ -129,7 +129,6 @@ begin GlobalCEFApp.MultiThreadedMessageLoop := False; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.CreateMDIChild(const Name: string); diff --git a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas index 06690c95..6fa03f25 100644 --- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas +++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas @@ -290,11 +290,11 @@ uses procedure CreateGlobalCEFApp; begin - GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; - GlobalCEFApp.LogFile := 'debug.log'; - GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; - GlobalCEFApp.cache := 'cache'; + GlobalCEFApp := TCefApplication.Create; + GlobalCEFApp.LogFile := 'debug.log'; + GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; + GlobalCEFApp.cache := 'cache'; + GlobalCEFApp.EnablePrintPreview := True; //GlobalCEFApp.RemoteDebuggingPort := 19999; end; diff --git a/demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas b/demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas index 269d59ec..ca2d5de5 100644 --- a/demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas +++ b/demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas @@ -187,7 +187,6 @@ begin GlobalCEFApp.EnableHighDPISupport := True; GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; end; diff --git a/demos/Delphi_VCL/PopupBrowser/uMainForm.pas b/demos/Delphi_VCL/PopupBrowser/uMainForm.pas index e7c3622f..1fd4c3ac 100644 --- a/demos/Delphi_VCL/PopupBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/PopupBrowser/uMainForm.pas @@ -149,7 +149,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'debug.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; end; diff --git a/demos/Delphi_VCL/PopupBrowser2/uMainForm.pas b/demos/Delphi_VCL/PopupBrowser2/uMainForm.pas index 56809fcc..750ff632 100644 --- a/demos/Delphi_VCL/PopupBrowser2/uMainForm.pas +++ b/demos/Delphi_VCL/PopupBrowser2/uMainForm.pas @@ -146,7 +146,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas b/demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas index e0f0cdba..13227b86 100644 --- a/demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas +++ b/demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas @@ -146,7 +146,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; @@ -256,6 +255,7 @@ var i : integer; begin TempArray := nil; + try try TempPostData := request.PostData; diff --git a/demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas b/demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas index 16acf37d..19df8d2d 100644 --- a/demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas +++ b/demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas @@ -192,7 +192,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.LogFile := 'cef.log'; GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas b/demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas index 5c51d6d6..aa900997 100644 --- a/demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas +++ b/demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas @@ -146,7 +146,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnRegCustomSchemes := GlobalCEFApp_OnRegCustomSchemes; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // GlobalCEFApp.LogFile := 'debug.log'; // GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; diff --git a/demos/Delphi_VCL/SimpleBrowser/SimpleBrowser.dpr b/demos/Delphi_VCL/SimpleBrowser/SimpleBrowser.dpr index c4324c93..35cb4d71 100644 --- a/demos/Delphi_VCL/SimpleBrowser/SimpleBrowser.dpr +++ b/demos/Delphi_VCL/SimpleBrowser/SimpleBrowser.dpr @@ -68,9 +68,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - // Disabling some features to improve stability - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; - // You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause // with the Application initialization inside the begin..end. // Read this https://www.briskbard.com/index.php?lang=en&pageid=cef diff --git a/demos/Delphi_VCL/SimpleBrowser2/SimpleBrowser2.dpr b/demos/Delphi_VCL/SimpleBrowser2/SimpleBrowser2.dpr index 9cdca1d7..31cc1502 100644 --- a/demos/Delphi_VCL/SimpleBrowser2/SimpleBrowser2.dpr +++ b/demos/Delphi_VCL/SimpleBrowser2/SimpleBrowser2.dpr @@ -70,9 +70,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - // Disabling some features to improve stability - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; - // You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause // with the Application initialization inside the begin..end. // Read this https://www.briskbard.com/index.php?lang=en&pageid=cef diff --git a/demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas b/demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas index 4697498c..194d296f 100644 --- a/demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas +++ b/demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas @@ -120,7 +120,6 @@ begin GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TSimpleExternalPumpBrowserFrm.FormCreate(Sender: TObject); diff --git a/demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas b/demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas index 414eaf7b..60c52618 100644 --- a/demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas +++ b/demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas @@ -181,7 +181,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // If you need transparency leave the GlobalCEFApp.BackgroundColor property // with the default value or set the alpha channel to 0 diff --git a/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas b/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas index 9bc581b4..de8835eb 100644 --- a/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas +++ b/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas @@ -195,37 +195,55 @@ end; procedure TSimpleServerFrm.ShowPostDataInfo(const aPostData : ICefPostData); var - i, j : integer; + i : integer; TempLen : NativeUInt; - TempList : IInterfaceList; - TempElement : ICefPostDataElement; TempBytes : TBytes; + TempArray : TCefPostDataElementArray; begin - if (aPostData = nil) then exit; + TempArray := nil; - i := 0; - j := aPostData.GetCount; - - TempList := aPostData.GetElements(j); - - while (i < j) do - begin - TempElement := TempList.Items[i] as ICefPostDataElement; - - if (TempElement.GetBytesCount > 0) then + try + try + if (aPostData <> nil) and (aPostData.GetElementCount > 0) then begin - SetLength(TempBytes, TempElement.GetBytesCount); - TempLen := TempElement.GetBytes(TempElement.GetBytesCount, @TempBytes[0]); + aPostData.GetElements(aPostData.GetElementCount, TempArray); - if (TempLen > 0) then + i := 0; + while (i < length(TempArray)) do begin - ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen)); - ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes)); + if (TempArray[i].GetBytesCount > 0) then + begin + SetLength(TempBytes, TempArray[i].GetBytesCount); + TempLen := TempArray[i].GetBytes(TempArray[i].GetBytesCount, @TempBytes[0]); + + if (TempLen > 0) then + begin + ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen)); + ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes)); + end; + end; + + inc(i); + end; + + i := 0; + while (i < length(TempArray)) do + begin + TempArray[i] := nil; + inc(i); end; end; - - inc(i); + except + on e : exception do + if CustomExceptionHandler('TSimpleServerFrm.ShowPostDataInfo', e) then raise; end; + finally + if (TempArray <> nil) then + begin + Finalize(TempArray); + TempArray := nil; + end; + end; end; function TSimpleServerFrm.BufferToString(const aBuffer : TBytes) : string; diff --git a/demos/Delphi_VCL/SubProcess/SubProcess.dpr b/demos/Delphi_VCL/SubProcess/SubProcess.dpr index 531af3c2..8ea8dd85 100644 --- a/demos/Delphi_VCL/SubProcess/SubProcess.dpr +++ b/demos/Delphi_VCL/SubProcess/SubProcess.dpr @@ -53,7 +53,6 @@ uses begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // The main process and the subprocess *MUST* have the same GlobalCEFApp // properties and events, specially FrameworkDirPath, ResourcesDirPath, diff --git a/demos/Delphi_VCL/SubProcess/uCEFLoader.pas b/demos/Delphi_VCL/SubProcess/uCEFLoader.pas index 42998641..1e579091 100644 --- a/demos/Delphi_VCL/SubProcess/uCEFLoader.pas +++ b/demos/Delphi_VCL/SubProcess/uCEFLoader.pas @@ -65,7 +65,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe'; // This demo uses a different EXE for the subprocesses. diff --git a/demos/Delphi_VCL/TabbedBrowser/uMainForm.pas b/demos/Delphi_VCL/TabbedBrowser/uMainForm.pas index 857a3ab8..5ca90519 100644 --- a/demos/Delphi_VCL/TabbedBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/TabbedBrowser/uMainForm.pas @@ -156,7 +156,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.AddTabBtnClick(Sender: TObject); diff --git a/demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas b/demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas index 37fcddbd..b4b060f8 100644 --- a/demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas +++ b/demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas @@ -112,7 +112,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.CreateToolboxChild(const ChildCaption, URL: string); diff --git a/demos/Delphi_VCL/URLRequest/uURLRequest.pas b/demos/Delphi_VCL/URLRequest/uURLRequest.pas index 108bc737..9330d3b7 100644 --- a/demos/Delphi_VCL/URLRequest/uURLRequest.pas +++ b/demos/Delphi_VCL/URLRequest/uURLRequest.pas @@ -143,7 +143,8 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TURLRequestFrm.DownloadBtnClick(Sender: TObject); diff --git a/demos/Lazarus/CookieVisitor/CookieVisitor.lps b/demos/Lazarus/CookieVisitor/CookieVisitor.lps index 1b4cd3f3..e96ecdf8 100644 --- a/demos/Lazarus/CookieVisitor/CookieVisitor.lps +++ b/demos/Lazarus/CookieVisitor/CookieVisitor.lps @@ -20,9 +20,10 @@ + - + @@ -41,12 +42,10 @@ - - - + + - diff --git a/demos/Lazarus/CookieVisitor/uCookieVisitor.lfm b/demos/Lazarus/CookieVisitor/uCookieVisitor.lfm index e93731ec..405a51f5 100644 --- a/demos/Lazarus/CookieVisitor/uCookieVisitor.lfm +++ b/demos/Lazarus/CookieVisitor/uCookieVisitor.lfm @@ -15,7 +15,7 @@ object CookieVisitorFrm: TCookieVisitorFrm OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressBarPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/CookieVisitor/uCookieVisitor.pas b/demos/Lazarus/CookieVisitor/uCookieVisitor.pas index 6e29257b..464c21f9 100644 --- a/demos/Lazarus/CookieVisitor/uCookieVisitor.pas +++ b/demos/Lazarus/CookieVisitor/uCookieVisitor.pas @@ -146,7 +146,8 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; // This function is called in the IO thread. diff --git a/demos/Lazarus/CustomResourceBrowser/CRBrowser.lps b/demos/Lazarus/CustomResourceBrowser/CRBrowser.lps index 74c160b8..11fd40a6 100644 --- a/demos/Lazarus/CustomResourceBrowser/CRBrowser.lps +++ b/demos/Lazarus/CustomResourceBrowser/CRBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/CustomResourceBrowser/uMainForm.lfm b/demos/Lazarus/CustomResourceBrowser/uMainForm.lfm index 1d7e2900..aba73b58 100644 --- a/demos/Lazarus/CustomResourceBrowser/uMainForm.lfm +++ b/demos/Lazarus/CustomResourceBrowser/uMainForm.lfm @@ -14,7 +14,7 @@ object MainForm: TMainForm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object ChromiumWindow1: TChromiumWindow Left = 0 Height = 637 diff --git a/demos/Lazarus/CustomResourceBrowser/uMainForm.pas b/demos/Lazarus/CustomResourceBrowser/uMainForm.pas index e6469815..9c25651b 100644 --- a/demos/Lazarus/CustomResourceBrowser/uMainForm.pas +++ b/demos/Lazarus/CustomResourceBrowser/uMainForm.pas @@ -112,7 +112,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; //GlobalCEFApp.LogFile := 'cef.log'; //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; diff --git a/demos/Lazarus/DOMVisitor/DOMVisitor.lps b/demos/Lazarus/DOMVisitor/DOMVisitor.lps index 4f6e469f..0983734f 100644 --- a/demos/Lazarus/DOMVisitor/DOMVisitor.lps +++ b/demos/Lazarus/DOMVisitor/DOMVisitor.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/DOMVisitor/uDOMVisitor.lfm b/demos/Lazarus/DOMVisitor/uDOMVisitor.lfm index 6d3c4423..262dea8b 100644 --- a/demos/Lazarus/DOMVisitor/uDOMVisitor.lfm +++ b/demos/Lazarus/DOMVisitor/uDOMVisitor.lfm @@ -14,7 +14,7 @@ object DOMVisitorFrm: TDOMVisitorFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object CEFWindowParent1: TCEFWindowParent Left = 0 Height = 539 diff --git a/demos/Lazarus/DOMVisitor/uDOMVisitor.pas b/demos/Lazarus/DOMVisitor/uDOMVisitor.pas index 6af6cacc..d27d268c 100644 --- a/demos/Lazarus/DOMVisitor/uDOMVisitor.pas +++ b/demos/Lazarus/DOMVisitor/uDOMVisitor.pas @@ -302,7 +302,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.RemoteDebuggingPort := 9000; GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // Enabling the debug log file for then DOM visitor demo. // This adds lots of warnings to the console, specially if you run this inside VirtualBox. diff --git a/demos/Lazarus/EditorBrowser/EditorBrowser.lps b/demos/Lazarus/EditorBrowser/EditorBrowser.lps index 22d774c3..0c446ebd 100644 --- a/demos/Lazarus/EditorBrowser/EditorBrowser.lps +++ b/demos/Lazarus/EditorBrowser/EditorBrowser.lps @@ -21,7 +21,7 @@ - + diff --git a/demos/Lazarus/EditorBrowser/uEditorBrowser.lfm b/demos/Lazarus/EditorBrowser/uEditorBrowser.lfm index 5837890e..e934c88c 100644 --- a/demos/Lazarus/EditorBrowser/uEditorBrowser.lfm +++ b/demos/Lazarus/EditorBrowser/uEditorBrowser.lfm @@ -14,7 +14,7 @@ object Form1: TForm1 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object CEFWindowParent1: TCEFWindowParent Left = 0 Height = 599 diff --git a/demos/Lazarus/EditorBrowser/uEditorBrowser.pas b/demos/Lazarus/EditorBrowser/uEditorBrowser.pas index a7825aaa..5c5d2c56 100644 --- a/demos/Lazarus/EditorBrowser/uEditorBrowser.pas +++ b/demos/Lazarus/EditorBrowser/uEditorBrowser.pas @@ -171,7 +171,8 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TForm1.FillColorBtnClick(Sender: TObject); diff --git a/demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps b/demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps index e8be0322..2b847811 100644 --- a/demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps +++ b/demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.lfm b/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.lfm index 80aebbf9..f05e47e7 100644 --- a/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.lfm +++ b/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.lfm @@ -14,7 +14,7 @@ object ExternalPumpBrowserFrm: TExternalPumpBrowserFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas b/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas index 7947e15e..517dce46 100644 --- a/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas +++ b/demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas @@ -131,7 +131,6 @@ begin GlobalCEFApp.FlashEnabled := False; GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; end; diff --git a/demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps b/demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps index 7d0e4f30..8c79ffab 100644 --- a/demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps +++ b/demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps @@ -22,8 +22,8 @@ - - + + diff --git a/demos/Lazarus/FullScreenBrowser/uMainForm.lfm b/demos/Lazarus/FullScreenBrowser/uMainForm.lfm index 6217028d..9aed59d9 100644 --- a/demos/Lazarus/FullScreenBrowser/uMainForm.lfm +++ b/demos/Lazarus/FullScreenBrowser/uMainForm.lfm @@ -1,7 +1,7 @@ object MainForm: TMainForm - Left = -8 + Left = 165 Height = 673 - Top = 0 + Top = 130 Width = 1364 BorderIcons = [] BorderStyle = bsNone @@ -16,7 +16,7 @@ object MainForm: TMainForm OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' WindowState = wsMaximized object CEFWindowParent1: TCEFWindowParent Left = 0 diff --git a/demos/Lazarus/FullScreenBrowser/uMainForm.pas b/demos/Lazarus/FullScreenBrowser/uMainForm.pas index f3f7447b..1dd36291 100644 --- a/demos/Lazarus/FullScreenBrowser/uMainForm.pas +++ b/demos/Lazarus/FullScreenBrowser/uMainForm.pas @@ -116,8 +116,9 @@ uses procedure CreateGlobalCEFApp; begin - GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + GlobalCEFApp := TCefApplication.Create; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TMainForm.HandleKeyUp(const aMsg : TMsg; var aHandled : boolean); diff --git a/demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps b/demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps index a1d657b9..d31fad69 100644 --- a/demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps +++ b/demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.lfm b/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.lfm index 0b656b3d..86b84546 100644 --- a/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.lfm +++ b/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.lfm @@ -15,7 +15,7 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object ChromiumWindow1: TChromiumWindow Left = 0 Height = 603 diff --git a/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas b/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas index f27927ef..cf1dc248 100644 --- a/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas +++ b/demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas @@ -119,7 +119,8 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TJSDialogBrowserFrm.FormCreate(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSEval/JSEval.lps b/demos/Lazarus/JavaScript/JSEval/JSEval.lps index 06217d06..2970d53c 100644 --- a/demos/Lazarus/JavaScript/JSEval/JSEval.lps +++ b/demos/Lazarus/JavaScript/JSEval/JSEval.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSEval/uJSEval.lfm b/demos/Lazarus/JavaScript/JSEval/uJSEval.lfm index 098d163c..074c3da4 100644 --- a/demos/Lazarus/JavaScript/JSEval/uJSEval.lfm +++ b/demos/Lazarus/JavaScript/JSEval/uJSEval.lfm @@ -13,7 +13,7 @@ object JSEvalFrm: TJSEvalFrm OnCloseQuery = FormCloseQuery OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object CEFWindowParent1: TCEFWindowParent Left = 0 Height = 550 diff --git a/demos/Lazarus/JavaScript/JSEval/uJSEval.pas b/demos/Lazarus/JavaScript/JSEval/uJSEval.pas index 83f9deea..4bd5182b 100644 --- a/demos/Lazarus/JavaScript/JSEval/uJSEval.pas +++ b/demos/Lazarus/JavaScript/JSEval/uJSEval.pas @@ -539,7 +539,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSEvalFrm.Chromium1ProcessMessageReceived(Sender : TObject; diff --git a/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm b/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm index b349b5ce..23e22fa9 100644 --- a/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm +++ b/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm @@ -15,7 +15,7 @@ object JSExecutingFunctionsFrm: TJSExecutingFunctionsFrm OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas b/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas index 6fb731fd..9f03728a 100644 --- a/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas +++ b/demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas @@ -176,7 +176,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSExtension/JSExtension.lps b/demos/Lazarus/JavaScript/JSExtension/JSExtension.lps index 9fd5caa0..84fc5bea 100644 --- a/demos/Lazarus/JavaScript/JSExtension/JSExtension.lps +++ b/demos/Lazarus/JavaScript/JSExtension/JSExtension.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas b/demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas index 40c5aa00..ca62af96 100644 --- a/demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas +++ b/demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas @@ -319,7 +319,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; {$IFDEF DEBUG} GlobalCEFApp.LogFile := 'debug.log'; GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; diff --git a/demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps b/demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps index 7744bcde..5498d649 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps +++ b/demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.lfm b/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.lfm index 8ff4e1fa..3e14ce7d 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.lfm +++ b/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.lfm @@ -14,7 +14,7 @@ object JSExtensionWithFunctionFrm: TJSExtensionWithFunctionFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas b/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas index 967b9b30..7e5fe351 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas +++ b/demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas @@ -150,7 +150,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps index 12c77903..ee6fa447 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps +++ b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.lfm b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.lfm index 256286eb..1e54ef4e 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.lfm +++ b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.lfm @@ -14,7 +14,7 @@ object JSExtensionWithObjectParameterFrm: TJSExtensionWithObjectParameterFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas index ed46c1b0..f4d83e20 100644 --- a/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas +++ b/demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas @@ -153,7 +153,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps b/demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps index 22dfde4b..d5c420f8 100644 --- a/demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps +++ b/demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.lfm b/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.lfm index cb5e75ae..8c3eb63e 100644 --- a/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.lfm +++ b/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.lfm @@ -14,7 +14,7 @@ object JSSimpleExtensionFrm: TJSSimpleExtensionFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas b/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas index a491e016..37987db2 100644 --- a/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas +++ b/demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas @@ -140,7 +140,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps index d9fd6e13..42acbcbd 100644 --- a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps +++ b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.lfm b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.lfm index 1c88504e..17da8ba9 100644 --- a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.lfm +++ b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.lfm @@ -14,7 +14,7 @@ object JSSimpleWindowBindingFrm: TJSSimpleWindowBindingFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas index 108efd0b..653c84d6 100644 --- a/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas +++ b/demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas @@ -132,7 +132,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr index 80c5c3e9..f780ae0a 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr +++ b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr @@ -65,7 +65,6 @@ begin // 4. Run this demo : JSSimpleWindowBinding GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe'; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; if GlobalCEFApp.StartMainProcess then begin diff --git a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps index bd0f37b8..edffd64f 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps +++ b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps @@ -9,8 +9,8 @@ - - + + diff --git a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr index ad508c31..698b8598 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr +++ b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr @@ -70,7 +70,6 @@ end; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath, // LocalesDirPath, cache and UserDataPath paths diff --git a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps index 1ba57d36..14002b37 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps +++ b/demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps @@ -9,8 +9,8 @@ - - + + diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/JSWindowBindingWithArrayBuffer.lps b/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/JSWindowBindingWithArrayBuffer.lps index 9d5b79d2..e74d5963 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/JSWindowBindingWithArrayBuffer.lps +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/JSWindowBindingWithArrayBuffer.lps @@ -22,8 +22,8 @@ - - + + diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas b/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas index f8e2af7b..c758bbdb 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas @@ -157,7 +157,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithArrayBufferFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps index 38330b02..4903a486 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.lfm b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.lfm index f1d176d2..1549cdc0 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.lfm +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.lfm @@ -14,7 +14,7 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas index 5d54b05f..223917e8 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas @@ -137,7 +137,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/JSWindowBindingWithObject.lps b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/JSWindowBindingWithObject.lps index 6406d11f..ed6b74a5 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/JSWindowBindingWithObject.lps +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/JSWindowBindingWithObject.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.lfm b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.lfm index b4748663..d47145f1 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.lfm +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.lfm @@ -14,7 +14,7 @@ object JSWindowBindingWithObjectFrm: TJSWindowBindingWithObjectFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas index beebb0a1..3aa41c27 100644 --- a/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas +++ b/demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas @@ -138,7 +138,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/MiniBrowser/MiniBrowser.lps b/demos/Lazarus/MiniBrowser/MiniBrowser.lps index 3979fb4d..bed2df6b 100644 --- a/demos/Lazarus/MiniBrowser/MiniBrowser.lps +++ b/demos/Lazarus/MiniBrowser/MiniBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/MiniBrowser/uMiniBrowser.pas b/demos/Lazarus/MiniBrowser/uMiniBrowser.pas index a7b658a8..2550fe86 100644 --- a/demos/Lazarus/MiniBrowser/uMiniBrowser.pas +++ b/demos/Lazarus/MiniBrowser/uMiniBrowser.pas @@ -290,8 +290,8 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.LogFile := 'debug.log'; GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; - GlobalCEFApp.cache := 'cache'; + GlobalCEFApp.cache := 'cache'; + GlobalCEFApp.EnablePrintPreview := True; end; procedure TMiniBrowserFrm.BackBtnClick(Sender: TObject); diff --git a/demos/Lazarus/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps b/demos/Lazarus/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps index 0d3b8726..50f78310 100644 --- a/demos/Lazarus/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps +++ b/demos/Lazarus/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps @@ -22,8 +22,8 @@ - - + + diff --git a/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.lfm b/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.lfm index aeca7f31..1098f300 100644 --- a/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.lfm +++ b/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.lfm @@ -16,7 +16,7 @@ object OSRExternalPumpBrowserFrm: TOSRExternalPumpBrowserFrm OnHide = FormHide OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas b/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas index 7829442b..d933f305 100644 --- a/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas +++ b/demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas @@ -195,7 +195,6 @@ begin GlobalCEFApp.EnableHighDPISupport := True; GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.OnScheduleMessagePumpWork := @GlobalCEFApp_OnScheduleMessagePumpWork; end; diff --git a/demos/Lazarus/PopupBrowser/PopupBrowser.lps b/demos/Lazarus/PopupBrowser/PopupBrowser.lps index 4d72bb1c..8ad3fc01 100644 --- a/demos/Lazarus/PopupBrowser/PopupBrowser.lps +++ b/demos/Lazarus/PopupBrowser/PopupBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/PopupBrowser/uMainForm.lfm b/demos/Lazarus/PopupBrowser/uMainForm.lfm index 2147cfbb..35a22ad7 100644 --- a/demos/Lazarus/PopupBrowser/uMainForm.lfm +++ b/demos/Lazarus/PopupBrowser/uMainForm.lfm @@ -15,7 +15,7 @@ object MainForm: TMainForm OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/PopupBrowser/uMainForm.pas b/demos/Lazarus/PopupBrowser/uMainForm.pas index e50c5a06..d14dca7e 100644 --- a/demos/Lazarus/PopupBrowser/uMainForm.pas +++ b/demos/Lazarus/PopupBrowser/uMainForm.pas @@ -147,7 +147,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); diff --git a/demos/Lazarus/PopupBrowser2/PopupBrowser2.lps b/demos/Lazarus/PopupBrowser2/PopupBrowser2.lps index 3c3afc2c..c21dfb8e 100644 --- a/demos/Lazarus/PopupBrowser2/PopupBrowser2.lps +++ b/demos/Lazarus/PopupBrowser2/PopupBrowser2.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/PopupBrowser2/uMainForm.lfm b/demos/Lazarus/PopupBrowser2/uMainForm.lfm index 0f388ab8..d9739c2a 100644 --- a/demos/Lazarus/PopupBrowser2/uMainForm.lfm +++ b/demos/Lazarus/PopupBrowser2/uMainForm.lfm @@ -15,7 +15,7 @@ object MainForm: TMainForm OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/PopupBrowser2/uMainForm.pas b/demos/Lazarus/PopupBrowser2/uMainForm.pas index 7af50471..f8b1e814 100644 --- a/demos/Lazarus/PopupBrowser2/uMainForm.pas +++ b/demos/Lazarus/PopupBrowser2/uMainForm.pas @@ -146,7 +146,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); diff --git a/demos/Lazarus/PostInspectorBrowser/PostInspectorBrowser.lps b/demos/Lazarus/PostInspectorBrowser/PostInspectorBrowser.lps index 9c1a8e77..1811a736 100644 --- a/demos/Lazarus/PostInspectorBrowser/PostInspectorBrowser.lps +++ b/demos/Lazarus/PostInspectorBrowser/PostInspectorBrowser.lps @@ -22,8 +22,8 @@ - - + + @@ -31,11 +31,10 @@ - + - diff --git a/demos/Lazarus/PostInspectorBrowser/uPostInspectorBrowser.pas b/demos/Lazarus/PostInspectorBrowser/uPostInspectorBrowser.pas index 7988652e..b968c03a 100644 --- a/demos/Lazarus/PostInspectorBrowser/uPostInspectorBrowser.pas +++ b/demos/Lazarus/PostInspectorBrowser/uPostInspectorBrowser.pas @@ -146,8 +146,9 @@ uses procedure CreateGlobalCEFApp; begin - GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + GlobalCEFApp := TCefApplication.Create; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); diff --git a/demos/Lazarus/SchemeRegistrationBrowser/SchemeRegistrationBrowser.lps b/demos/Lazarus/SchemeRegistrationBrowser/SchemeRegistrationBrowser.lps index 050dd9c8..6431de81 100644 --- a/demos/Lazarus/SchemeRegistrationBrowser/SchemeRegistrationBrowser.lps +++ b/demos/Lazarus/SchemeRegistrationBrowser/SchemeRegistrationBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.lfm b/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.lfm index b68c42a2..d056e4ec 100644 --- a/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.lfm +++ b/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.lfm @@ -14,7 +14,7 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressBarPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas b/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas index f739dfa8..9cc603f3 100644 --- a/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas +++ b/demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas @@ -137,7 +137,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnRegCustomSchemes := GlobalCEFApp_OnRegCustomSchemes; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TSchemeRegistrationBrowserFrm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser); diff --git a/demos/Lazarus/SimpleBrowser/SimpleBrowser.lps b/demos/Lazarus/SimpleBrowser/SimpleBrowser.lps index 650bff98..a5c6bf78 100644 --- a/demos/Lazarus/SimpleBrowser/SimpleBrowser.lps +++ b/demos/Lazarus/SimpleBrowser/SimpleBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/SimpleBrowser/uSimpleBrowser.pas b/demos/Lazarus/SimpleBrowser/uSimpleBrowser.pas index 1d378928..d091cb96 100644 --- a/demos/Lazarus/SimpleBrowser/uSimpleBrowser.pas +++ b/demos/Lazarus/SimpleBrowser/uSimpleBrowser.pas @@ -120,7 +120,6 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // In case you want to use custom directories for the CEF3 binaries, cache and user data. { diff --git a/demos/Lazarus/SimpleBrowser2/SimpleBrowser2.lps b/demos/Lazarus/SimpleBrowser2/SimpleBrowser2.lps index dac3d456..990bef31 100644 --- a/demos/Lazarus/SimpleBrowser2/SimpleBrowser2.lps +++ b/demos/Lazarus/SimpleBrowser2/SimpleBrowser2.lps @@ -8,7 +8,7 @@ - + @@ -35,8 +35,8 @@ - - + + @@ -418,13 +418,12 @@ - + - - + @@ -453,6 +452,10 @@ + + + + diff --git a/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.lfm b/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.lfm index 2de5c6a8..dc47b1bd 100644 --- a/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.lfm +++ b/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.lfm @@ -10,7 +10,7 @@ object Form1: TForm1 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressPnl: TPanel Left = 0 Height = 23 diff --git a/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.pas b/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.pas index a4d9a9fc..ff6c608f 100644 --- a/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.pas +++ b/demos/Lazarus/SimpleBrowser2/usimplelazarusbrowser.pas @@ -125,8 +125,9 @@ uses procedure CreateGlobalCEFApp; begin - GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + GlobalCEFApp := TCefApplication.Create; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TForm1.FormCreate(Sender: TObject); diff --git a/demos/Lazarus/SimpleExternalPumpBrowser/SimpleExternalPumpBrowser.lps b/demos/Lazarus/SimpleExternalPumpBrowser/SimpleExternalPumpBrowser.lps index a597ccd3..75048ba7 100644 --- a/demos/Lazarus/SimpleExternalPumpBrowser/SimpleExternalPumpBrowser.lps +++ b/demos/Lazarus/SimpleExternalPumpBrowser/SimpleExternalPumpBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.lfm b/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.lfm index f7620039..972fbe03 100644 --- a/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.lfm +++ b/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.lfm @@ -14,7 +14,7 @@ object SimpleExternalPumpBrowserFrm: TSimpleExternalPumpBrowserFrm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object AddressPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas b/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas index 9ec8f989..d50e9f4b 100644 --- a/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas +++ b/demos/Lazarus/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas @@ -119,7 +119,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.MultiThreadedMessageLoop := False; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; end; diff --git a/demos/Lazarus/SimpleOSRBrowser/SimpleOSRBrowser.lps b/demos/Lazarus/SimpleOSRBrowser/SimpleOSRBrowser.lps index 0e60970a..9445c423 100644 --- a/demos/Lazarus/SimpleOSRBrowser/SimpleOSRBrowser.lps +++ b/demos/Lazarus/SimpleOSRBrowser/SimpleOSRBrowser.lps @@ -39,10 +39,10 @@ - + - + diff --git a/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.lfm b/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.lfm index 6c895808..7961e768 100644 --- a/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.lfm +++ b/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.lfm @@ -16,7 +16,7 @@ object Form1: TForm1 OnHide = FormHide OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object NavControlPnl: TPanel Left = 0 Height = 21 diff --git a/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.pas b/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.pas index 84f6a9a7..6bbf00b1 100644 --- a/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.pas +++ b/demos/Lazarus/SimpleOSRBrowser/usimplelazosrbrowser.pas @@ -175,7 +175,6 @@ begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.EnableHighDPISupport := True; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TForm1.GoBtnClick(Sender: TObject); diff --git a/demos/Lazarus/SimpleServer/SimpleServer.lps b/demos/Lazarus/SimpleServer/SimpleServer.lps index 3d002d06..37284496 100644 --- a/demos/Lazarus/SimpleServer/SimpleServer.lps +++ b/demos/Lazarus/SimpleServer/SimpleServer.lps @@ -8,8 +8,7 @@ - - + @@ -20,9 +19,10 @@ + - - + + diff --git a/demos/Lazarus/SimpleServer/uSimpleServer.lfm b/demos/Lazarus/SimpleServer/uSimpleServer.lfm index 0445eac4..e31ae509 100644 --- a/demos/Lazarus/SimpleServer/uSimpleServer.lfm +++ b/demos/Lazarus/SimpleServer/uSimpleServer.lfm @@ -15,7 +15,7 @@ object SimpleServerFrm: TSimpleServerFrm OnCloseQuery = FormCloseQuery OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object ButtonPnl: TPanel Left = 0 Height = 94 diff --git a/demos/Lazarus/SimpleServer/uSimpleServer.pas b/demos/Lazarus/SimpleServer/uSimpleServer.pas index a30aed12..95645e2b 100644 --- a/demos/Lazarus/SimpleServer/uSimpleServer.pas +++ b/demos/Lazarus/SimpleServer/uSimpleServer.pas @@ -197,37 +197,55 @@ end; procedure TSimpleServerFrm.ShowPostDataInfo(const aPostData : ICefPostData); var - i, j : integer; + i : integer; TempLen : NativeUInt; - TempList : IInterfaceList; - TempElement : ICefPostDataElement; TempBytes : TBytes; + TempArray : TCefPostDataElementArray; begin - if (aPostData = nil) then exit; + TempArray := nil; - i := 0; - j := aPostData.GetCount; - - TempList := aPostData.GetElements(j); - - while (i < j) do - begin - TempElement := TempList.Items[i] as ICefPostDataElement; - - if (TempElement.GetBytesCount > 0) then + try + try + if (aPostData <> nil) and (aPostData.GetElementCount > 0) then begin - SetLength(TempBytes, TempElement.GetBytesCount); - TempLen := TempElement.GetBytes(TempElement.GetBytesCount, @TempBytes[0]); + aPostData.GetElements(aPostData.GetElementCount, TempArray); - if (TempLen > 0) then + i := 0; + while (i < length(TempArray)) do begin - ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen)); - ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes)); + if (TempArray[i].GetBytesCount > 0) then + begin + SetLength(TempBytes, TempArray[i].GetBytesCount); + TempLen := TempArray[i].GetBytes(TempArray[i].GetBytesCount, @TempBytes[0]); + + if (TempLen > 0) then + begin + ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen)); + ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes)); + end; + end; + + inc(i); + end; + + i := 0; + while (i < length(TempArray)) do + begin + TempArray[i] := nil; + inc(i); end; end; - - inc(i); + except + on e : exception do + if CustomExceptionHandler('TSimpleServerFrm.ShowPostDataInfo', e) then raise; end; + finally + if (TempArray <> nil) then + begin + Finalize(TempArray); + TempArray := nil; + end; + end; end; function TSimpleServerFrm.BufferToString(const aBuffer : TBytes) : string; diff --git a/demos/Lazarus/SubProcess/SimpleBrowser.lps b/demos/Lazarus/SubProcess/SimpleBrowser.lps index 86976546..0307073e 100644 --- a/demos/Lazarus/SubProcess/SimpleBrowser.lps +++ b/demos/Lazarus/SubProcess/SimpleBrowser.lps @@ -8,7 +8,6 @@ - @@ -32,9 +31,10 @@ + - + diff --git a/demos/Lazarus/SubProcess/SubProcess.lpr b/demos/Lazarus/SubProcess/SubProcess.lpr index 0efffaae..25ecf195 100644 --- a/demos/Lazarus/SubProcess/SubProcess.lpr +++ b/demos/Lazarus/SubProcess/SubProcess.lpr @@ -51,7 +51,6 @@ uses begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; // The main process and the subprocess *MUST* have the same GlobalCEFApp // properties and events, specially FrameworkDirPath, ResourcesDirPath, diff --git a/demos/Lazarus/SubProcess/SubProcess.lps b/demos/Lazarus/SubProcess/SubProcess.lps index f74a68ca..3f2a5f57 100644 --- a/demos/Lazarus/SubProcess/SubProcess.lps +++ b/demos/Lazarus/SubProcess/SubProcess.lps @@ -10,7 +10,7 @@ - + diff --git a/demos/Lazarus/SubProcess/uCEFLoader.pas b/demos/Lazarus/SubProcess/uCEFLoader.pas index 42998641..1e579091 100644 --- a/demos/Lazarus/SubProcess/uCEFLoader.pas +++ b/demos/Lazarus/SubProcess/uCEFLoader.pas @@ -65,7 +65,6 @@ begin GlobalCEFApp.UserDataPath := 'cef\User Data'; } - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe'; // This demo uses a different EXE for the subprocesses. diff --git a/demos/Lazarus/TabbedBrowser/TabBrowser.lps b/demos/Lazarus/TabbedBrowser/TabBrowser.lps index 37aa1dac..b2161791 100644 --- a/demos/Lazarus/TabbedBrowser/TabBrowser.lps +++ b/demos/Lazarus/TabbedBrowser/TabBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/TabbedBrowser/uMainForm.lfm b/demos/Lazarus/TabbedBrowser/uMainForm.lfm index 857e9b14..f8052216 100644 --- a/demos/Lazarus/TabbedBrowser/uMainForm.lfm +++ b/demos/Lazarus/TabbedBrowser/uMainForm.lfm @@ -14,7 +14,7 @@ object MainForm: TMainForm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object ButtonPnl: TPanel Left = 0 Height = 25 diff --git a/demos/Lazarus/TabbedBrowser/uMainForm.pas b/demos/Lazarus/TabbedBrowser/uMainForm.pas index 2fb1f955..fac381fb 100644 --- a/demos/Lazarus/TabbedBrowser/uMainForm.pas +++ b/demos/Lazarus/TabbedBrowser/uMainForm.pas @@ -156,7 +156,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.AddTabBtnClick(Sender: TObject); diff --git a/demos/Lazarus/ToolBoxBrowser/ToolBoxBrowser.lps b/demos/Lazarus/ToolBoxBrowser/ToolBoxBrowser.lps index 50630515..4e414527 100644 --- a/demos/Lazarus/ToolBoxBrowser/ToolBoxBrowser.lps +++ b/demos/Lazarus/ToolBoxBrowser/ToolBoxBrowser.lps @@ -23,7 +23,7 @@ - + diff --git a/demos/Lazarus/ToolBoxBrowser/uChildForm.lfm b/demos/Lazarus/ToolBoxBrowser/uChildForm.lfm index 88d5d25d..d2531f6c 100644 --- a/demos/Lazarus/ToolBoxBrowser/uChildForm.lfm +++ b/demos/Lazarus/ToolBoxBrowser/uChildForm.lfm @@ -1,7 +1,7 @@ object ChildForm: TChildForm - Left = 0 + Left = 577 Height = 394 - Top = 0 + Top = 408 Width = 602 BorderStyle = bsToolWindow Caption = 'Browser' @@ -18,7 +18,7 @@ object ChildForm: TChildForm OnShow = FormShow Position = poScreenCenter ShowInTaskBar = stAlways - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object CEFWindowParent1: TCEFWindowParent Left = 0 Height = 394 diff --git a/demos/Lazarus/ToolBoxBrowser/uMainForm.lfm b/demos/Lazarus/ToolBoxBrowser/uMainForm.lfm index c8ffb9b5..e8bdaccc 100644 --- a/demos/Lazarus/ToolBoxBrowser/uMainForm.lfm +++ b/demos/Lazarus/ToolBoxBrowser/uMainForm.lfm @@ -15,7 +15,7 @@ object MainForm: TMainForm OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '2.0.2.0' + LCLVersion = '2.0.4.0' object ButtonPnl: TPanel Left = 0 Height = 37 diff --git a/demos/Lazarus/ToolBoxBrowser/uMainForm.pas b/demos/Lazarus/ToolBoxBrowser/uMainForm.pas index a4080729..15c02bec 100644 --- a/demos/Lazarus/ToolBoxBrowser/uMainForm.pas +++ b/demos/Lazarus/ToolBoxBrowser/uMainForm.pas @@ -114,7 +114,6 @@ procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; end; procedure TMainForm.CreateToolboxChild(const ChildCaption, URL: string); diff --git a/demos/Lazarus/URLRequest/URLRequest.lps b/demos/Lazarus/URLRequest/URLRequest.lps index e360aabb..8cf3d075 100644 --- a/demos/Lazarus/URLRequest/URLRequest.lps +++ b/demos/Lazarus/URLRequest/URLRequest.lps @@ -4,11 +4,10 @@ - + - @@ -21,17 +20,31 @@ + + + + + + + + + + - + + + + + diff --git a/demos/Lazarus/URLRequest/uURLRequest.pas b/demos/Lazarus/URLRequest/uURLRequest.pas index d20aa0c2..77c92c93 100644 --- a/demos/Lazarus/URLRequest/uURLRequest.pas +++ b/demos/Lazarus/URLRequest/uURLRequest.pas @@ -144,7 +144,8 @@ uses procedure CreateGlobalCEFApp; begin GlobalCEFApp := TCefApplication.Create; - GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors'; + //GlobalCEFApp.LogFile := 'cef.log'; + //GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE; end; procedure TURLRequestFrm.DownloadBtnClick(Sender: TObject); diff --git a/packages/CEF4Delphi.dpk b/packages/CEF4Delphi.dpk index d0a1f037..cb305eec 100644 --- a/packages/CEF4Delphi.dpk +++ b/packages/CEF4Delphi.dpk @@ -168,7 +168,6 @@ contains uCEFUrlRequestClientEvents in '..\source\uCEFUrlRequestClientEvents.pas', uCEFUrlRequestClientComponent in '..\source\uCEFUrlRequestClientComponent.pas', uCEFOSRIMEHandler in '..\source\uCEFOSRIMEHandler.pas', - uCEFAudioHandler in '..\source\uCEFAudioHandler.pas', uCEFCookieAccessFilter in '..\source\uCEFCookieAccessFilter.pas', uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas', uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas', diff --git a/packages/CEF4Delphi.dproj b/packages/CEF4Delphi.dproj index 94e966b8..0f4af41b 100644 --- a/packages/CEF4Delphi.dproj +++ b/packages/CEF4Delphi.dproj @@ -262,7 +262,10 @@ - + + + + Base @@ -298,7 +301,7 @@ - + CEF4Delphi.bpl true diff --git a/packages/CEF4Delphi_D7.dpk b/packages/CEF4Delphi_D7.dpk index 0dc73f13..1a74394a 100644 --- a/packages/CEF4Delphi_D7.dpk +++ b/packages/CEF4Delphi_D7.dpk @@ -165,7 +165,6 @@ contains uCEFUrlRequestClientEvents in '..\source\uCEFUrlRequestClientEvents.pas', uCEFUrlRequestClientComponent in '..\source\uCEFUrlRequestClientComponent.pas', uCEFOSRIMEHandler in '..\source\uCEFOSRIMEHandler.pas', - uCEFAudioHandler in '..\source\uCEFAudioHandler.pas', uCEFCookieAccessFilter in '..\source\uCEFCookieAccessFilter.pas', uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas', uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas', diff --git a/packages/CEF4Delphi_FMX.dpk b/packages/CEF4Delphi_FMX.dpk index 9c75bbbf..4739aad5 100644 --- a/packages/CEF4Delphi_FMX.dpk +++ b/packages/CEF4Delphi_FMX.dpk @@ -173,7 +173,6 @@ contains uCEFUrlRequestClientEvents in '..\source\uCEFUrlRequestClientEvents.pas', uCEFUrlRequestClientComponent in '..\source\uCEFUrlRequestClientComponent.pas', uCEFOSRIMEHandler in '..\source\uCEFOSRIMEHandler.pas', - uCEFAudioHandler in '..\source\uCEFAudioHandler.pas', uCEFCookieAccessFilter in '..\source\uCEFCookieAccessFilter.pas', uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas', uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas', diff --git a/packages/CEF4Delphi_FMX.dproj b/packages/CEF4Delphi_FMX.dproj index 39b3285b..1d9e5434 100644 --- a/packages/CEF4Delphi_FMX.dproj +++ b/packages/CEF4Delphi_FMX.dproj @@ -288,7 +288,6 @@ - @@ -330,7 +329,7 @@ - + CEF4Delphi_FMX.bpl true diff --git a/packages/cef4delphi_lazarus.lpk b/packages/cef4delphi_lazarus.lpk index 7c0e1499..fcfc8224 100644 --- a/packages/cef4delphi_lazarus.lpk +++ b/packages/cef4delphi_lazarus.lpk @@ -21,8 +21,8 @@ - - + + @@ -584,25 +584,21 @@ - - - - - - + + - - + + - - + + - + diff --git a/packages/cef4delphi_lazarus.pas b/packages/cef4delphi_lazarus.pas index a90ee1f8..7c8912e9 100644 --- a/packages/cef4delphi_lazarus.pas +++ b/packages/cef4delphi_lazarus.pas @@ -47,9 +47,9 @@ uses uCEFZipReader, uCEFChromium, uCEFBufferPanel, uCEFServer, uCEFServerComponent, uCEFServerEvents, uCEFServerHandler, uCEFWinControl, uCEFLinkedWindowParent, uCEFUrlRequestClientEvents, - uCEFUrlRequestClientComponent, uCEFOSRIMEHandler, uCEFAudioHandler, - uCEFCookieAccessFilter, uCEFResourceReadCallback, - uCEFResourceRequestHandler, uCEFResourceSkipCallback, LazarusPackageIntf; + uCEFUrlRequestClientComponent, uCEFOSRIMEHandler, uCEFCookieAccessFilter, + uCEFResourceReadCallback, uCEFResourceRequestHandler, + uCEFResourceSkipCallback, LazarusPackageIntf; implementation diff --git a/source/uCEFApplication.pas b/source/uCEFApplication.pas index 810b1b49..91067d5e 100644 --- a/source/uCEFApplication.pas +++ b/source/uCEFApplication.pas @@ -60,15 +60,15 @@ uses uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar; const - CEF_SUPPORTED_VERSION_MAJOR = 76; + CEF_SUPPORTED_VERSION_MAJOR = 77; CEF_SUPPORTED_VERSION_MINOR = 1; - CEF_SUPPORTED_VERSION_RELEASE = 13; + CEF_SUPPORTED_VERSION_RELEASE = 3; CEF_SUPPORTED_VERSION_BUILD = 0; - CEF_CHROMEELF_VERSION_MAJOR = 76; + CEF_CHROMEELF_VERSION_MAJOR = 77; CEF_CHROMEELF_VERSION_MINOR = 0; - CEF_CHROMEELF_VERSION_RELEASE = 3809; - CEF_CHROMEELF_VERSION_BUILD = 132; + CEF_CHROMEELF_VERSION_RELEASE = 3865; + CEF_CHROMEELF_VERSION_BUILD = 90; {$IFDEF MSWINDOWS} LIBCEF_DLL = 'libcef.dll'; @@ -182,7 +182,7 @@ type FEnableProfanityFilter : boolean; FDisableSpellChecking : boolean; FOverrideSpellCheckLang : string; - //FEnablePrintPreview : boolean; + FEnablePrintPreview : boolean; FMustCreateResourceBundleHandler : boolean; FMustCreateBrowserProcessHandler : boolean; @@ -441,7 +441,7 @@ type property MetricsRecordingOnly : boolean read FMetricsRecordingOnly write FMetricsRecordingOnly; property AllowFileAccessFromFiles : boolean read FAllowFileAccessFromFiles write FAllowFileAccessFromFiles; property AllowRunningInsecureContent : boolean read FAllowRunningInsecureContent write FAllowRunningInsecureContent; - //property EnablePrintPreview : boolean read FEnablePrintPreview write FEnablePrintPreview; + property EnablePrintPreview : boolean read FEnablePrintPreview write FEnablePrintPreview; property PluginPolicy : TCefPluginPolicySwitch read FPluginPolicy write FPluginPolicy; property DefaultEncoding : string read FDefaultEncoding write FDefaultEncoding; property DisableJavascript : boolean read FDisableJavascript write FDisableJavascript; @@ -634,7 +634,7 @@ begin FEnableProfanityFilter := False; FDisableSpellChecking := False; FOverrideSpellCheckLang := ''; - //FEnablePrintPreview := False; + FEnablePrintPreview := False; FMustCreateResourceBundleHandler := False; FMustCreateBrowserProcessHandler := True; @@ -1601,7 +1601,7 @@ begin if FAllowRunningInsecureContent then commandLine.AppendSwitch('--allow-running-insecure-content'); - //if FEnablePrintPreview then commandLine.AppendSwitch('--enable-print-preview'); + if FEnablePrintPreview then commandLine.AppendSwitch('--enable-print-preview'); case FPluginPolicy of PLUGIN_POLICY_SWITCH_DETECT : commandLine.AppendSwitchWithValue('--plugin-policy', 'detect'); diff --git a/source/uCEFChromium.pas b/source/uCEFChromium.pas index 8fa9b820..873ec0e1 100644 --- a/source/uCEFChromium.pas +++ b/source/uCEFChromium.pas @@ -234,11 +234,6 @@ type // ICefFindHandler FOnFindResult : TOnFindResult; - // ICefAudioHandler - FOnAudioStreamStarted : TOnAudioStreamStarted; - FOnAudioStreamPacket : TOnAudioStreamPacket; - FOnAudioStreamStopped : TOnAudioStreamStopped; - // Custom FOnTextResultAvailable : TOnTextResultAvailableEvent; FOnPdfPrintFinished : TOnPdfPrintFinishedEvent; @@ -474,12 +469,7 @@ type // ICefFindHandler procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual; - // ICefAudioHandler - procedure doOnAudioStreamStarted(const browser: ICefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer); virtual; - procedure doOnAudioStreamPacket(const browser: ICefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64); virtual; - procedure doOnAudioStreamStopped(const browser: ICefBrowser; audio_stream_id: integer); virtual; - - // Custom + // Custom procedure doCookiesDeleted(numDeleted : integer); virtual; procedure doPdfPrintFinished(aResultOK : boolean); virtual; procedure doTextResultAvailable(const aText : ustring); virtual; @@ -503,8 +493,7 @@ type function MustCreateRequestHandler : boolean; virtual; function MustCreateDragHandler : boolean; virtual; function MustCreateFindHandler : boolean; virtual; - function MustCreateAudioHandler : boolean; virtual; - function MustCreateResourceRequestHandler : boolean; virtual; + function MustCreateResourceRequestHandler : boolean; virtual; function MustCreateCookieAccessFilter : boolean; virtual; public @@ -806,12 +795,6 @@ type // ICefFindHandler property OnFindResult : TOnFindResult read FOnFindResult write FOnFindResult; - - // ICefAudioHandler - property OnAudioStreamStarted : TOnAudioStreamStarted read FOnAudioStreamStarted write FOnAudioStreamStarted; - property OnAudioStreamPacket : TOnAudioStreamPacket read FOnAudioStreamPacket write FOnAudioStreamPacket; - property OnAudioStreamStopped : TOnAudioStreamStopped read FOnAudioStreamStopped write FOnAudioStreamStopped; - end; {$IFDEF FPC} @@ -1162,11 +1145,6 @@ begin // ICefFindHandler FOnFindResult := nil; - // ICefAudioHandler - FOnAudioStreamStarted := nil; - FOnAudioStreamPacket := nil; - FOnAudioStreamStopped := nil; - // Custom FOnTextResultAvailable := nil; FOnPdfPrintFinished := nil; @@ -3148,14 +3126,7 @@ begin Result := assigned(FOnFindResult); end; -function TChromium.MustCreateAudioHandler : boolean; -begin - Result := assigned(FOnAudioStreamStarted) or - assigned(FOnAudioStreamPacket) or - assigned(FOnAudioStreamStopped); -end; - -function TChromium.MustCreateResourceRequestHandler : boolean; +function TChromium.MustCreateResourceRequestHandler : boolean; begin Result := assigned(FOnBeforeResourceLoad) or assigned(FOnGetResourceHandler) or @@ -3671,34 +3642,6 @@ begin FOnFindResult(Self, browser, identifier, count, selectionRect, activeMatchOrdinal, finalUpdate); end; -procedure TChromium.doOnAudioStreamStarted(const browser : ICefBrowser; - audio_stream_id : integer; - channels : integer; - channel_layout : TCefChannelLayout; - sample_rate : integer; - frames_per_buffer : integer); -begin - if Assigned(FOnAudioStreamStarted) then - FOnAudioStreamStarted(Self, browser, audio_stream_id, channels, channel_layout, sample_rate, frames_per_buffer); -end; - -procedure TChromium.doOnAudioStreamPacket(const browser : ICefBrowser; - audio_stream_id : integer; - const data : PPSingle; - frames : integer; - pts : int64); -begin - if Assigned(FOnAudioStreamPacket) then - FOnAudioStreamPacket(Self, browser, audio_stream_id, data, frames, pts); -end; - -procedure TChromium.doOnAudioStreamStopped(const browser : ICefBrowser; - audio_stream_id : integer); -begin - if Assigned(FOnAudioStreamStopped) then - FOnAudioStreamStopped(Self, browser, audio_stream_id); -end; - procedure TChromium.doOnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean); begin if Assigned(FOnFullScreenModeChange) then FOnFullScreenModeChange(Self, browser, fullscreen); diff --git a/source/uCEFChromiumEvents.pas b/source/uCEFChromiumEvents.pas index 71adf274..d625ef18 100644 --- a/source/uCEFChromiumEvents.pas +++ b/source/uCEFChromiumEvents.pas @@ -161,11 +161,6 @@ type // ICefFindHandler TOnFindResult = procedure(Sender: TObject; const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean) of Object; - // ICefAudioHandler - TOnAudioStreamStarted = procedure(Sender: TObject; const browser: ICefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer) of Object; - TOnAudioStreamPacket = procedure(Sender: TObject; const browser: ICefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64) of Object; - TOnAudioStreamStopped = procedure(Sender: TObject; const browser: ICefBrowser; audio_stream_id: integer) of Object; - // Custom TOnTextResultAvailableEvent = procedure(Sender: TObject; const aText : ustring) of object; TOnPdfPrintFinishedEvent = procedure(Sender: TObject; aResultOK : boolean) of object; diff --git a/source/uCEFClient.pas b/source/uCEFClient.pas index f6802fae..44792921 100644 --- a/source/uCEFClient.pas +++ b/source/uCEFClient.pas @@ -54,7 +54,6 @@ uses type TCefClientRef = class(TCefBaseRefCountedRef, ICefClient) protected - procedure GetAudioHandler(var aHandler : ICefAudioHandler); virtual; procedure GetContextMenuHandler(var aHandler : ICefContextMenuHandler); virtual; procedure GetDialogHandler(var aHandler : ICefDialogHandler); virtual; procedure GetDisplayHandler(var aHandler : ICefDisplayHandler); virtual; @@ -78,7 +77,6 @@ type TCefClientOwn = class(TCefBaseRefCountedOwn, ICefClient) protected - procedure GetAudioHandler(var aHandler : ICefAudioHandler); virtual; procedure GetContextMenuHandler(var aHandler : ICefContextMenuHandler); virtual; procedure GetDialogHandler(var aHandler : ICefDialogHandler); virtual; procedure GetDisplayHandler(var aHandler : ICefDisplayHandler); virtual; @@ -116,9 +114,7 @@ type FRequestHandler : ICefRequestHandler; FDragHandler : ICefDragHandler; FFindHandler : ICefFindHandler; - FAudioHandler : ICefAudioHandler; - procedure GetAudioHandler(var aHandler : ICefAudioHandler); override; procedure GetContextMenuHandler(var aHandler : ICefContextMenuHandler); override; procedure GetDialogHandler(var aHandler : ICefDialogHandler); override; procedure GetDisplayHandler(var aHandler : ICefDisplayHandler); override; @@ -154,7 +150,7 @@ uses uCEFFocusHandler, uCEFContextMenuHandler, uCEFDialogHandler, uCEFKeyboardHandler, uCEFDisplayHandler, uCEFDownloadHandler, uCEFJsDialogHandler, uCEFLifeSpanHandler, uCEFRequestHandler, uCEFRenderHandler, uCEFDragHandler, - uCEFFindHandler, uCEFAudioHandler, uCEFConstants, uCEFApplication, uCEFFrame; + uCEFFindHandler, uCEFConstants, uCEFApplication, uCEFFrame; // ****************************************************** @@ -169,11 +165,6 @@ begin Result := nil; end; -procedure TCefClientRef.GetAudioHandler(var aHandler : ICefAudioHandler); -begin - aHandler := nil; -end; - procedure TCefClientRef.GetContextMenuHandler(var aHandler : ICefContextMenuHandler); begin aHandler := nil; @@ -255,23 +246,6 @@ end; // ****************************************************** -function cef_client_own_get_audio_handler(self: PCefClient): PCefAudioHandler; stdcall; -var - TempObject : TObject; - TempHandler : ICefAudioHandler; -begin - Result := nil; - TempObject := CefGetObject(self); - - if (TempObject <> nil) and (TempObject is TCefClientOwn) then - try - TCefClientOwn(TempObject).GetAudioHandler(TempHandler); - if (TempHandler <> nil) then Result := TempHandler.Wrap; - finally - TempHandler := nil; - end; -end; - function cef_client_own_get_context_menu_handler(self: PCefClient): PCefContextMenuHandler; stdcall; var TempObject : TObject; @@ -517,7 +491,6 @@ begin with PCefClient(FData)^ do begin - get_audio_handler := {$IFDEF FPC}@{$ENDIF}cef_client_own_get_audio_handler; get_context_menu_handler := {$IFDEF FPC}@{$ENDIF}cef_client_own_get_context_menu_handler; get_dialog_handler := {$IFDEF FPC}@{$ENDIF}cef_client_own_get_dialog_handler; get_display_handler := {$IFDEF FPC}@{$ENDIF}cef_client_own_get_display_handler; @@ -535,11 +508,6 @@ begin end; end; -procedure TCefClientOwn.GetAudioHandler(var aHandler : ICefAudioHandler); -begin - aHandler := nil; -end; - procedure TCefClientOwn.GetContextMenuHandler(var aHandler : ICefContextMenuHandler); begin aHandler := nil; @@ -653,7 +621,6 @@ begin if events.MustCreateRequestHandler then FRequestHandler := TCustomRequestHandler.Create(events); if events.MustCreateDragHandler then FDragHandler := TCustomDragHandler.Create(events); if events.MustCreateFindHandler then FFindHandler := TCustomFindHandler.Create(events); - if events.MustCreateAudioHandler then FAudioHandler := TCustomAudioHandler.Create(events); end; end; end; @@ -682,7 +649,6 @@ begin if (FRenderHandler <> nil) then FRenderHandler.RemoveReferences; if (FDragHandler <> nil) then FDragHandler.RemoveReferences; if (FFindHandler <> nil) then FFindHandler.RemoveReferences; - if (FAudioHandler <> nil) then FAudioHandler.RemoveReferences; end; procedure TCustomClientHandler.InitializeVars; @@ -700,18 +666,9 @@ begin FRenderHandler := nil; FDragHandler := nil; FFindHandler := nil; - FAudioHandler := nil; FEvents := nil; end; -procedure TCustomClientHandler.GetAudioHandler(var aHandler : ICefAudioHandler); -begin - if (FAudioHandler <> nil) then - aHandler := FAudioHandler - else - aHandler := nil; -end; - procedure TCustomClientHandler.GetContextMenuHandler(var aHandler : ICefContextMenuHandler); begin if (FContextMenuHandler <> nil) then diff --git a/source/uCEFFMXChromium.pas b/source/uCEFFMXChromium.pas index 3c843f02..1fdb7b00 100644 --- a/source/uCEFFMXChromium.pas +++ b/source/uCEFFMXChromium.pas @@ -218,11 +218,6 @@ type // ICefFindHandler FOnFindResult : TOnFindResult; - // ICefAudioHandler - FOnAudioStreamStarted : TOnAudioStreamStarted; - FOnAudioStreamPacket : TOnAudioStreamPacket; - FOnAudioStreamStopped : TOnAudioStreamStopped; - // Custom FOnTextResultAvailable : TOnTextResultAvailableEvent; FOnPdfPrintFinished : TOnPdfPrintFinishedEvent; @@ -441,11 +436,6 @@ type // ICefFindHandler procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual; - // ICefAudioHandler - procedure doOnAudioStreamStarted(const browser: ICefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer); virtual; - procedure doOnAudioStreamPacket(const browser: ICefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64); virtual; - procedure doOnAudioStreamStopped(const browser: ICefBrowser; audio_stream_id: integer); virtual; - // Custom procedure doCookiesDeleted(numDeleted : integer); virtual; procedure doPdfPrintFinished(aResultOK : boolean); virtual; @@ -470,7 +460,6 @@ type function MustCreateRequestHandler : boolean; virtual; function MustCreateDragHandler : boolean; virtual; function MustCreateFindHandler : boolean; virtual; - function MustCreateAudioHandler : boolean; virtual; function MustCreateResourceRequestHandler : boolean; virtual; function MustCreateCookieAccessFilter : boolean; virtual; @@ -763,12 +752,6 @@ type // ICefFindHandler property OnFindResult : TOnFindResult read FOnFindResult write FOnFindResult; - - // ICefAudioHandler - property OnAudioStreamStarted : TOnAudioStreamStarted read FOnAudioStreamStarted write FOnAudioStreamStarted; - property OnAudioStreamPacket : TOnAudioStreamPacket read FOnAudioStreamPacket write FOnAudioStreamPacket; - property OnAudioStreamStopped : TOnAudioStreamStopped read FOnAudioStreamStopped write FOnAudioStreamStopped; - end; implementation @@ -1067,11 +1050,6 @@ begin // ICefFindHandler FOnFindResult := nil; - // ICefAudioHandler - FOnAudioStreamStarted := nil; - FOnAudioStreamPacket := nil; - FOnAudioStreamStopped := nil; - // Custom FOnTextResultAvailable := nil; FOnPdfPrintFinished := nil; @@ -2867,13 +2845,6 @@ begin Result := assigned(FOnFindResult); end; -function TFMXChromium.MustCreateAudioHandler : boolean; -begin - Result := assigned(FOnAudioStreamStarted) or - assigned(FOnAudioStreamPacket) or - assigned(FOnAudioStreamStopped); -end; - function TFMXChromium.MustCreateResourceRequestHandler : boolean; begin Result := assigned(FOnBeforeResourceLoad) or @@ -3278,34 +3249,6 @@ begin FOnFindResult(Self, browser, identifier, count, selectionRect, activeMatchOrdinal, finalUpdate); end; -procedure TFMXChromium.doOnAudioStreamStarted(const browser : ICefBrowser; - audio_stream_id : integer; - channels : integer; - channel_layout : TCefChannelLayout; - sample_rate : integer; - frames_per_buffer : integer); -begin - if Assigned(FOnAudioStreamStarted) then - FOnAudioStreamStarted(Self, browser, audio_stream_id, channels, channel_layout, sample_rate, frames_per_buffer); -end; - -procedure TFMXChromium.doOnAudioStreamPacket(const browser : ICefBrowser; - audio_stream_id : integer; - const data : PPSingle; - frames : integer; - pts : int64); -begin - if Assigned(FOnAudioStreamPacket) then - FOnAudioStreamPacket(Self, browser, audio_stream_id, data, frames, pts); -end; - -procedure TFMXChromium.doOnAudioStreamStopped(const browser : ICefBrowser; - audio_stream_id : integer); -begin - if Assigned(FOnAudioStreamStopped) then - FOnAudioStreamStopped(Self, browser, audio_stream_id); -end; - procedure TFMXChromium.doOnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean); begin if Assigned(FOnFullScreenModeChange) then FOnFullScreenModeChange(Self, browser, fullscreen); diff --git a/source/uCEFInterfaces.pas b/source/uCEFInterfaces.pas index 22855673..14ead903 100644 --- a/source/uCEFInterfaces.pas +++ b/source/uCEFInterfaces.pas @@ -142,7 +142,6 @@ type ICefLabelButton = interface; ICefMenuButton = interface; ICefUrlRequest = interface; - ICefAudioHandler = interface; ICefPostDataElement = interface; TCefv8ValueArray = array of ICefv8Value; @@ -375,11 +374,6 @@ type // ICefFindHandler procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); - // ICefAudioHandler - procedure doOnAudioStreamStarted(const browser: ICefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer); - procedure doOnAudioStreamPacket(const browser: ICefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64); - procedure doOnAudioStreamStopped(const browser: ICefBrowser; audio_stream_id: integer); - // Custom procedure doCookiesDeleted(numDeleted : integer); procedure doPdfPrintFinished(aResultOK : boolean); @@ -404,7 +398,6 @@ type function MustCreateRequestHandler : boolean; function MustCreateDragHandler : boolean; function MustCreateFindHandler : boolean; - function MustCreateAudioHandler : boolean; function MustCreateResourceRequestHandler : boolean; function MustCreateCookieAccessFilter : boolean; end; @@ -1770,17 +1763,6 @@ type procedure RemoveReferences; // custom procedure to clear all references end; - // TCefAudioHandler - // /include/capi/cef_audio_handler_capi.h (cef_audio_handler_t) - ICefAudioHandler = interface(ICefBaseRefCounted) - ['{8963271A-0B94-4279-82C8-FB2EA7B3CDEC}'] - procedure OnAudioStreamStarted(const browser: ICefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer); - procedure OnAudioStreamPacket(const browser: ICefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64); - procedure OnAudioStreamStopped(const browser: ICefBrowser; audio_stream_id: integer); - - procedure RemoveReferences; // custom procedure to clear all references - end; - // TCefRunContextMenuCallback // /include/capi/cef_context_menu_handler_capi.h (cef_run_context_menu_callback_t) ICefRunContextMenuCallback = interface(ICefBaseRefCounted) @@ -1846,7 +1828,6 @@ type // /include/capi/cef_client_capi.h (cef_client_t) ICefClient = interface(ICefBaseRefCounted) ['{1D502075-2FF0-4E13-A112-9E541CD811F4}'] - procedure GetAudioHandler(var aHandler : ICefAudioHandler); procedure GetContextMenuHandler(var aHandler : ICefContextMenuHandler); procedure GetDialogHandler(var aHandler : ICefDialogHandler); procedure GetDisplayHandler(var aHandler : ICefDisplayHandler); diff --git a/source/uCEFTypes.pas b/source/uCEFTypes.pas index 4c312bcf..fa7a1378 100644 --- a/source/uCEFTypes.pas +++ b/source/uCEFTypes.pas @@ -133,7 +133,6 @@ type PCefLifeSpanHandler = ^TCefLifeSpanHandler; PCefGetExtensionResourceCallback = ^TCefGetExtensionResourceCallback; PCefExtensionHandler = ^TCefExtensionHandler; - PCefAudioHandler = ^TCefAudioHandler; PCefExtension = ^TCefExtension; PCefPopupFeatures = ^TCefPopupFeatures; PCefBrowserSettings = ^TCefBrowserSettings; @@ -666,43 +665,6 @@ type CEF_POINTER_TYPE_UNKNOWN ); - // /include/internal/cef_types.h (cef_channel_layout_t) - TCefChannelLayout = ( - CEF_CHANNEL_LAYOUT_NONE = 0, - CEF_CHANNEL_LAYOUT_UNSUPPORTED, - CEF_CHANNEL_LAYOUT_MONO, - CEF_CHANNEL_LAYOUT_STEREO, - CEF_CHANNEL_LAYOUT_2_1, - CEF_CHANNEL_LAYOUT_SURROUND, - CEF_CHANNEL_LAYOUT_4_0, - CEF_CHANNEL_LAYOUT_2_2, - CEF_CHANNEL_LAYOUT_QUAD, - CEF_CHANNEL_LAYOUT_5_0, - CEF_CHANNEL_LAYOUT_5_1, - CEF_CHANNEL_LAYOUT_5_0_BACK, - CEF_CHANNEL_LAYOUT_5_1_BACK, - CEF_CHANNEL_LAYOUT_7_0, - CEF_CHANNEL_LAYOUT_7_1, - CEF_CHANNEL_LAYOUT_7_1_WIDE, - CEF_CHANNEL_LAYOUT_STEREO_DOWNMIX, - CEF_CHANNEL_LAYOUT_2POINT1, - CEF_CHANNEL_LAYOUT_3_1, - CEF_CHANNEL_LAYOUT_4_1, - CEF_CHANNEL_LAYOUT_6_0, - CEF_CHANNEL_LAYOUT_6_0_FRONT, - CEF_CHANNEL_LAYOUT_HEXAGONAL, - CEF_CHANNEL_LAYOUT_6_1, - CEF_CHANNEL_LAYOUT_6_1_BACK, - CEF_CHANNEL_LAYOUT_6_1_FRONT, - CEF_CHANNEL_LAYOUT_7_0_FRONT, - CEF_CHANNEL_LAYOUT_7_1_WIDE_BACK, - CEF_CHANNEL_LAYOUT_OCTAGONAL, - CEF_CHANNEL_LAYOUT_DISCRETE, - CEF_CHANNEL_LAYOUT_STEREO_AND_KEYBOARD_MIC, - CEF_CHANNEL_LAYOUT_4_1_QUAD_SIDE, - CEF_CHANNEL_LAYOUT_BITSTREAM // CEF_CHANNEL_LAYOUT_MAX = CEF_CHANNEL_LAYOUT_BITSTREAM - ); - // /include/internal/cef_types.h (cef_paint_element_type_t) TCefPaintElementType = ( PET_VIEW, @@ -1488,14 +1450,6 @@ type get_extension_resource : function(self: PCefExtensionHandler; extension: PCefExtension; browser: PCefBrowser; const file_: PCefString; callback: PCefGetExtensionResourceCallback): Integer; stdcall; end; - // /include/capi/cef_audio_handler_capi.h (cef_audio_handler_t) - TCefAudioHandler = record - base : TCefBaseRefCounted; - on_audio_stream_started : procedure(self: PCefAudioHandler; browser: PCefBrowser; audio_stream_id, channels: integer; channel_layout: TCefChannelLayout; sample_rate, frames_per_buffer: integer); stdcall; - on_audio_stream_packet : procedure(self: PCefAudioHandler; browser: PCefBrowser; audio_stream_id: integer; const data : PPSingle; frames: integer; pts: int64); stdcall; - on_audio_stream_stopped : procedure(self: PCefAudioHandler; browser: PCefBrowser; audio_stream_id: integer); stdcall; - end; - // /include/capi/cef_extension_capi.h (cef_extension_t) TCefExtension = record base : TCefBaseRefCounted; @@ -2640,7 +2594,6 @@ type // /include/capi/cef_client_capi.h (cef_client_t) TCefClient = record base : TCefBaseRefCounted; - get_audio_handler : function(self: PCefClient): PCefAudioHandler; stdcall; get_context_menu_handler : function(self: PCefClient): PCefContextMenuHandler; stdcall; get_dialog_handler : function(self: PCefClient): PCefDialogHandler; stdcall; get_display_handler : function(self: PCefClient): PCefDisplayHandler; stdcall; diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 91dc2f25..4e0338ea 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -1,10 +1,10 @@ { "UpdateLazPackages" : [ { - "ForceNotify" : true, - "InternalVersion" : 33, + "ForceNotify" : false, + "InternalVersion" : 34, "Name" : "cef4delphi_lazarus.lpk", - "Version" : "76.1.13.0" + "Version" : "77.1.3.0" } ], "UpdatePackageData" : {