You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-07-02 22:26:53 +02:00
.github
bin
demos
Delphi_FMX
Delphi_VCL
ConsoleBrowser
CookieVisitor
CustomResourceBrowser
DLLBrowser
DOMVisitor
EditorBrowser
ExternalPumpBrowser
FullScreenBrowser
JavaScript
CustomTitleBar
JSDialog
JSEval
JSExecutingFunctions
JSExtension
JSExtensionWithFunction
JSExtensionWithObjectParameter
JSRTTIExtension
JSSimpleExtension
JSSimpleWindowBinding
JSWindowBindingSubProcess
00-DeleteDCUs.bat
JSSimpleWindowBinding.dpr
JSSimpleWindowBinding.dproj
SubProcess.dpr
SubProcess.dproj
cef.inc
uJSSimpleWindowBinding.dfm
uJSSimpleWindowBinding.pas
JSWindowBindingWithArrayBuffer
JSWindowBindingWithFunction
JSWindowBindingWithObject
KioskOSRBrowser
MDIBrowser
MDIExternalPumpBrowser
MiniBrowser
OAuth2Tester
OSRExternalPumpBrowser
PopupBrowser
PopupBrowser2
PostInspectorBrowser
ResponseFilterBrowser
SchemeRegistrationBrowser
SimpleBrowser
SimpleBrowser2
SimpleExternalPumpBrowser
SimpleOSRBrowser
SimpleServer
SubProcess
TabbedBrowser
ToolBoxBrowser
ToolBoxSubProcessBrowser
URLRequest
Lazarus
packages
source
tools
.gitignore
Delphinus.Info.json
Delphinus.Install.json
LICENSE.md
README.md
update_CEF4Delphi.json
92 lines
3.3 KiB
ObjectPascal
92 lines
3.3 KiB
ObjectPascal
// ************************************************************************
|
|
// ***************************** CEF4Delphi *******************************
|
|
// ************************************************************************
|
|
//
|
|
// CEF4Delphi is based on DCEF3 which uses CEF3 to embed a chromium-based
|
|
// browser in Delphi applications.
|
|
//
|
|
// The original license of DCEF3 still applies to CEF4Delphi.
|
|
//
|
|
// For more information about CEF4Delphi visit :
|
|
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
|
//
|
|
// Copyright © 2018 Salvador Díaz Fau. All rights reserved.
|
|
//
|
|
// ************************************************************************
|
|
// ************ vvvv Original license and comments below vvvv *************
|
|
// ************************************************************************
|
|
(*
|
|
* Delphi Chromium Embedded 3
|
|
*
|
|
* Usage allowed under the restrictions of the Lesser GNU General Public License
|
|
* or alternatively the restrictions of the Mozilla Public License 1.1
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
|
* the specific language governing rights and limitations under the License.
|
|
*
|
|
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
|
|
* Web site : http://www.progdigy.com
|
|
* Repository : http://code.google.com/p/delphichromiumembedded/
|
|
* Group : http://groups.google.com/group/delphichromiumembedded
|
|
*
|
|
* Embarcadero Technologies, Inc is not permitted to use or redistribute
|
|
* this source code without explicit permission.
|
|
*
|
|
*)
|
|
|
|
program SubProcess;
|
|
|
|
{$I cef.inc}
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
WinApi.Windows,
|
|
{$ELSE}
|
|
Windows,
|
|
{$ENDIF}
|
|
uCEFApplicationCore,
|
|
uCEFConstants,
|
|
uCEFv8Value,
|
|
uCEFInterfaces;
|
|
|
|
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
|
|
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
|
|
|
|
procedure GlobalCEFApp_OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context);
|
|
var
|
|
TempValue : ICEFv8Value;
|
|
begin
|
|
// This is the first JS Window Binding example in the "JavaScript Integration" wiki page at
|
|
// https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
|
|
|
|
TempValue := TCefv8ValueRef.NewString('My Value!');
|
|
|
|
context.Global.SetValueByKey('myval', TempValue, V8_PROPERTY_ATTRIBUTE_NONE);
|
|
end;
|
|
|
|
begin
|
|
GlobalCEFApp := TCefApplicationCore.Create;
|
|
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
|
|
|
|
// The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
|
|
// LocalesDirPath, cache, cookies and UserDataPath paths
|
|
|
|
// The demos are compiled into the BIN directory. Make sure SubProcess.exe and JSSimpleWindowBinding.exe are in that
|
|
// directory or this demo won't work.
|
|
|
|
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
|
|
{
|
|
GlobalCEFApp.FrameworkDirPath := 'cef';
|
|
GlobalCEFApp.ResourcesDirPath := 'cef';
|
|
GlobalCEFApp.LocalesDirPath := 'cef\locales';
|
|
GlobalCEFApp.cache := 'cef\cache';
|
|
GlobalCEFApp.UserDataPath := 'cef\User Data';
|
|
}
|
|
|
|
GlobalCEFApp.StartSubProcess;
|
|
GlobalCEFApp.Free;
|
|
GlobalCEFApp := nil;
|
|
end.
|
|
|