pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

FireMonkey support added

Browse Source 
- New Delphi package called CEF4Delphi_FMX.dpk that includes VCL and FMX components.
- New FMX comopnents : TFMXChromium, TFMXBufferPanel and TFMXWorkScheduler.
- New FMX demo :  FMXExternalPumpBrowser
- Improved WorkScheduler for VCL too.
- New GlobalCEFApp.DisableWebSecurity property.
This commit is contained in:
Salvador Díaz Fau 2018-01-25 21:34:04 +01:00
parent 45b4965cb8
commit b47a8e2d52
60 changed files with 8748 additions and 719 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demos/DOMVisitor/DOMVisitor.dproj
View File

@ -107,7 +107,6 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="uDOMVisitor.pas"> <DCCReference Include="uDOMVisitor.pas">
<Form>DOMVisitorFrm</Form> <Form>DOMVisitorFrm</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<BuildConfiguration Include="Release"> <BuildConfiguration Include="Release">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>

3
demos/DOMVisitor/uDOMVisitor.dfm
View File

@ -67,8 +67,6 @@ object DOMVisitorFrm: TDOMVisitorFrm
Caption = 'Go' Caption = 'Go'
TabOrder = 0 TabOrder = 0
OnClick = GoBtnClick OnClick = GoBtnClick
ExplicitLeft = 98
ExplicitTop = 5
end end
object VisitDOMBtn: TButton object VisitDOMBtn: TButton
Left = 39 Left = 39
@ -79,7 +77,6 @@ object DOMVisitorFrm: TDOMVisitorFrm
Caption = 'Visit DOM' Caption = 'Visit DOM'
TabOrder = 1 TabOrder = 1
OnClick = VisitDOMBtnClick OnClick = VisitDOMBtnClick
ExplicitLeft = 42
end end
end end
end end

8
demos/DOMVisitor/uDOMVisitor.pas
View File

@ -160,7 +160,7 @@ end;
procedure SimpleNodeSearch(const aDocument: ICefDomDocument); procedure SimpleNodeSearch(const aDocument: ICefDomDocument);
const const
NODE_ID = 'lst-ib'; // node found in google.com homepage NODE_ID = 'lst-ib'; // input box node found in google.com homepage
var var
TempNode : ICefDomNode; TempNode : ICefDomNode;
begin begin
@ -170,12 +170,18 @@ begin
TempNode := aDocument.GetElementById(NODE_ID); TempNode := aDocument.GetElementById(NODE_ID);
if (TempNode <> nil) then if (TempNode <> nil) then
begin
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, NODE_ID + ' element name : ' + TempNode.Name); CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, NODE_ID + ' element name : ' + TempNode.Name);
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, NODE_ID + ' element value : ' + TempNode.GetValue);
end;
TempNode := aDocument.GetFocusedNode; TempNode := aDocument.GetFocusedNode;
if (TempNode <> nil) then if (TempNode <> nil) then
begin
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, 'Focused element name : ' + TempNode.Name); CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, 'Focused element name : ' + TempNode.Name);
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, 'Focused element inner text : ' + TempNode.ElementInnerText);
end;
end; end;
except except
on e : exception do on e : exception do

14
demos/FMXExternalPumpBrowser/00-DeleteDCUs.bat Normal file
View File

@ -0,0 +1,14 @@
del /s /q *.dcu
del /s /q *.exe
del /s /q *.res
del /s /q *.log
del /s /q *.dsk
del /s /q *.identcache
del /s /q *.stat
del /s /q *.local
del /s /q *.~*
rmdir Win32\Debug
rmdir Win32\Release
rmdir Win32
rmdir __history
rmdir __recovery

92
demos/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dpr Normal file
View File

@ -0,0 +1,92 @@
// ************************************************************************
// ***************************** 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 FMXExternalPumpBrowser;
uses
{$IFDEF DELPHI17_UP}
System.StartUpCopy,
{$ENDIF}
FMX.Forms,
{$IFDEF MSWINDOWS}
WinApi.Windows,
{$ENDIF}
System.SysUtils,
uCEFApplication,
uFMXWorkScheduler,
uFMXExternalPumpBrowser in 'uFMXExternalPumpBrowser.pas' {FMXExternalPumpBrowserFrm},
uFMXApplicationService in 'uFMXApplicationService.pas';
{$R *.res}
{$IFDEF MSWINDOWS}
// 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}
{$ENDIF}
begin
// TCEFWorkScheduler will call cef_do_message_loop_work when
// it's told in the GlobalCEFApp.OnScheduleMessagePumpWork event.
// GlobalCEFWorkScheduler needs to be created before the
// GlobalCEFApp.StartMainProcess call.
GlobalCEFWorkScheduler := TFMXWorkScheduler.Create(nil);
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.FastUnload := True;
GlobalCEFApp.FlashEnabled := False;
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.SitePerProcess := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
if GlobalCEFApp.StartMainProcess then
begin
Application.Initialize;
Application.CreateForm(TFMXExternalPumpBrowserFrm, FMXExternalPumpBrowserFrm);
Application.Run;
// The form needs to be destroyed *BEFORE* stopping the scheduler.
FMXExternalPumpBrowserFrm.Free;
GlobalCEFWorkScheduler.StopScheduler;
end;
FreeAndNil(GlobalCEFApp);
FreeAndNil(GlobalCEFWorkScheduler);
end.

617
demos/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj Normal file
View File

@ -0,0 +1,617 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{BE24D13B-2634-4064-8746-AB331419C5FA}</ProjectGuid>
<ProjectVersion>18.2</ProjectVersion>
<FrameworkType>FMX</FrameworkType>
<MainSource>FMXExternalPumpBrowser.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
<Cfg_1_Win64>true</Cfg_1_Win64>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
<Cfg_2_Win64>true</Cfg_2_Win64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_UsePackage>RESTComponents;emsclientfiredac;FireDAC;FireDACSqliteDriver;soaprtl;FireDACIBDriver;soapmidas;FireDACCommon;emsclient;RESTBackendComponents;soapserver;FireDACCommonDriver;CloudService;inet;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
<SanitizedProjectName>FMXExternalPumpBrowser</SanitizedProjectName>
<VerInfo_Locale>3082</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;fmxase;DBXDb2Driver;DBXInterBaseDriver;vcl;DBXSybaseASEDriver;vclactnband;vclFireDAC;FireDACDb2Driver;DataSnapFireDAC;svnui;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DBXMSSQLDriver;vclimg;FireDACInfxDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;Componentes_UI;vcldb;bindcompfmx;svn;FireDACPgDriver;DBXOracleDriver;inetdb;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;CEF4Delphi;DbxCommonDriver;IndyProtocols240;IndySystem240;fmx;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;fmxdae;vclwinx;rtl;FireDACDSDriver;DbxClientDriver;IndyCore240;DBXSybaseASADriver;CustomIPTransport;vcldsnap;dbexpress;FireDACDBXDriver;vclx;bindcomp;appanalytics;dsnap;DataSnapCommon;DBXInformixDriver;bindcompvcl;DataSnapConnectors;VCLRESTComponents;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;DBXFirebirdDriver;DataSnapProviderClient;FireDACMongoDBDriver;FireDACCommonODBC;DataSnapClient;DataSnapServerMidas;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;fmxase;DBXDb2Driver;DBXInterBaseDriver;vcl;DBXSybaseASEDriver;vclactnband;vclFireDAC;FireDACDb2Driver;DataSnapFireDAC;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DBXMSSQLDriver;vclimg;FireDACInfxDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;FireDACPgDriver;DBXOracleDriver;inetdb;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;DbxCommonDriver;IndyProtocols240;IndySystem240;fmx;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;fmxdae;vclwinx;rtl;FireDACDSDriver;DbxClientDriver;IndyCore240;DBXSybaseASADriver;CustomIPTransport;vcldsnap;dbexpress;FireDACDBXDriver;vclx;bindcomp;appanalytics;dsnap;DataSnapCommon;DBXInformixDriver;bindcompvcl;DataSnapConnectors;VCLRESTComponents;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;DBXFirebirdDriver;DataSnapProviderClient;FireDACMongoDBDriver;FireDACCommonODBC;DataSnapClient;DataSnapServerMidas;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="uFMXExternalPumpBrowser.pas">
<Form>FMXExternalPumpBrowserFrm</Form>
</DCCReference>
<DCCReference Include="uFMXApplicationService.pas"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">FMXExternalPumpBrowser.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclIPIndyImpl250.bpl">IP Abstraction Indy Implementation Design Time</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
<Platform Name="OSX32">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
<Platform Name="iOSSimulator">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
<Platform Name="iOSSimulator">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
<Platform Name="OSX32">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="..\..\bin\FMXExternalPumpBrowser.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>FMXExternalPumpBrowser.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1024">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1536">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch768">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch320">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640x1136">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

384
demos/FMXExternalPumpBrowser/cef.inc Normal file
View File

@ -0,0 +1,384 @@
// ************************************************************************
// ***************************** 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 © 2017 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.
*
*)
// The complete list of compiler versions is here :
// http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions
{$DEFINE DELPHI_VERSION_UNKNOW}
{$IFDEF FPC}
{$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}
// Delphi 5
{$IFDEF VER130}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$ENDIF}
// Delphi 6
{$IFDEF VER140}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$ENDIF}
// Delphi 7
{$IFDEF VER150}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$ENDIF}
// Delphi 8
{$IFDEF VER160}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$ENDIF}
// Delphi 2005
{$IFDEF VER170}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$ENDIF}
{$IFDEF VER180}
{$UNDEF DELPHI_VERSION_UNKNOW}
// Delphi 2007
{$IFDEF VER185}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
// Delphi 2006
{$ELSE}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$ENDIF}
{$ENDIF}
// Delphi 2009
{$IFDEF VER200}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$ENDIF}
//Delphi 2010
{$IFDEF VER210}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$ENDIF}
// Delphi XE
{$IFDEF VER220}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$ENDIF}
// Delphi XE2
{$IFDEF VER230}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$ENDIF}
// Delphi XE3
{$IFDEF VER240}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$ENDIF}
// Delphi XE4
{$IFDEF VER250}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$ENDIF}
// Delphi XE5
{$IFDEF VER260}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$ENDIF}
// Delphi XE6
{$IFDEF VER270}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$ENDIF}
// Delphi XE7
{$IFDEF VER280}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$ENDIF}
// Delphi XE8
{$IFDEF VER290}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$ENDIF VER290}
// Rad Studio 10 - Delphi Seattle
{$IFDEF VER300}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$ENDIF}
// Rad Studio 10.1 - Delphi Berlin
{$IFDEF VER310}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$ENDIF}
// Rad Studio 10.2 - Delphi Tokyo
{$IFDEF VER320}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI9_UP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}

204
demos/FMXExternalPumpBrowser/uFMXApplicationService.pas Normal file
View File

@ -0,0 +1,204 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit uFMXApplicationService;
{$I cef.inc}
// This unit is based in the TFMXApplicationService class created by Takashi Yamamoto
// https://www.gesource.jp/weblog/?p=7367
interface
uses
FMX.Platform;
type
TFMXApplicationService = class(TInterfacedObject, IFMXApplicationService)
protected
class var OldFMXApplicationService: IFMXApplicationService;
class var NewFMXApplicationService: IFMXApplicationService;
public
procedure Run;
function HandleMessage: Boolean;
procedure WaitMessage;
function GetDefaultTitle: string;
function GetTitle: string;
procedure SetTitle(const Value: string);
function GetVersionString: string;
procedure Terminate;
function Terminating: Boolean;
function Running: Boolean;
class procedure AddPlatformService;
property DefaultTitle : string read GetDefaultTitle;
property Title : string read GetTitle write SetTitle;
property AppVersion : string read GetVersionString;
end;
implementation
uses
FMX.Forms,
uFMXExternalPumpBrowser,
{$IFDEF MSWINDOWS}
Winapi.Messages, Winapi.Windows,
{$ENDIF}
uCEFConstants;
class procedure TFMXApplicationService.AddPlatformService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationService, IInterface(OldFMXApplicationService)) then
begin
TPlatformServices.Current.RemovePlatformService(IFMXApplicationService);
NewFMXApplicationService := TFMXApplicationService.Create;
TPlatformServices.Current.AddPlatformService(IFMXApplicationService, NewFMXApplicationService);
end;
end;
function TFMXApplicationService.GetDefaultTitle: string;
begin
Result := OldFMXApplicationService.GetDefaultTitle;
end;
function TFMXApplicationService.GetTitle: string;
begin
Result := OldFMXApplicationService.GetTitle;
end;
function TFMXApplicationService.GetVersionString: string;
begin
Result := OldFMXApplicationService.GetVersionString;
end;
procedure TFMXApplicationService.Run;
begin
OldFMXApplicationService.Run;
end;
procedure TFMXApplicationService.SetTitle(const Value: string);
begin
OldFMXApplicationService.SetTitle(Value);
end;
procedure TFMXApplicationService.Terminate;
begin
OldFMXApplicationService.Terminate;
end;
function TFMXApplicationService.Terminating: Boolean;
begin
Result := OldFMXApplicationService.Terminating;
end;
procedure TFMXApplicationService.WaitMessage;
begin
OldFMXApplicationService.WaitMessage;
end;
function TFMXApplicationService.Running: Boolean;
begin
Result := OldFMXApplicationService.Running;
end;
function TFMXApplicationService.HandleMessage: Boolean;
{$IFDEF MSWINDOWS}
var
TempMsg : TMsg;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
case TempMsg.Message of
WM_MOVE,
WM_MOVING :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).NotifyMoveOrResizeStarted;
WM_CAPTURECHANGED,
WM_CANCELMODE :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).SendCaptureLostEvent;
WM_SYSCHAR :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).HandleSYSCHAR(TempMsg);
WM_SYSKEYDOWN :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).HandleSYSKEYDOWN(TempMsg);
WM_SYSKEYUP :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).HandleSYSKEYUP(TempMsg);
CEF_AFTERCREATED :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).DoBrowserCreated;
CEF_PENDINGRESIZE :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).DoResize;
CEF_PUMPHAVEWORK :
if not(Application.Terminated) and
(GlobalCEFWorkScheduler <> nil) then
GlobalCEFWorkScheduler.ScheduleWork(TempMsg.lParam);
end;
{$ENDIF}
Result := OldFMXApplicationService.HandleMessage;
end;
end.

91
demos/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.fmx Normal file
View File

@ -0,0 +1,91 @@
object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
Left = 0
Top = 0
Caption = 'Initializing browser. Please wait...'
ClientHeight = 534
ClientWidth = 800
Position = ScreenCenter
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnCloseQuery = FormCloseQuery
OnDestroy = FormDestroy
OnShow = FormShow
OnHide = FormHide
DesignerMasterStyle = 0
object AddressPnl: TPanel
Align = Top
Padding.Left = 5.000000000000000000
Padding.Top = 5.000000000000000000
Padding.Right = 5.000000000000000000
Padding.Bottom = 5.000000000000000000
Size.Width = 800.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object GoBtn: TButton
Align = Right
Position.X = 759.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 36.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Go'
OnClick = GoBtnClick
OnEnter = GoBtnEnter
end
object AddressEdt: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = Client
TabOrder = 0
Text = 'https://www.google.com'
Size.Width = 754.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
OnEnter = AddressEdtEnter
end
end
object Panel1: TFMXBufferPanel
Align = Client
TabOrder = 0
Color = claTomato
CanFocus = True
Size.Width = 800.000000000000000000
Size.Height = 501.000000000000000000
Size.PlatformDefault = False
OnEnter = Panel1Enter
OnExit = Panel1Exit
OnResize = Panel1Resize
OnClick = Panel1Click
OnMouseDown = Panel1MouseDown
OnMouseMove = Panel1MouseMove
OnMouseUp = Panel1MouseUp
OnMouseLeave = Panel1MouseLeave
OnMouseWheel = Panel1MouseWheel
OnKeyUp = Panel1KeyUp
OnKeyDown = Panel1KeyDown
end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 384
Top = 313
end
object chrmosr: TFMXChromium
OnAfterCreated = chrmosrAfterCreated
OnBeforeClose = chrmosrBeforeClose
OnClose = chrmosrClose
OnGetViewRect = chrmosrGetViewRect
OnGetScreenPoint = chrmosrGetScreenPoint
OnGetScreenInfo = chrmosrGetScreenInfo
OnPopupShow = chrmosrPopupShow
OnPopupSize = chrmosrPopupSize
OnPaint = chrmosrPaint
OnCursorChange = chrmosrCursorChange
Left = 272
Top = 313
end
end

806
demos/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas Normal file
View File

@ -0,0 +1,806 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit uFMXExternalPumpBrowser;
{$I cef.inc}
interface
uses
{$IFDEF MSWINDOWS}
Winapi.Messages, Winapi.Windows,
{$ENDIF}
System.Types, System.UITypes, System.Classes, System.SyncObjs,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
FMX.Edit, FMX.StdCtrls, FMX.Controls.Presentation,
{$IFDEF DELPHI17_UP}
FMX.Graphics,
{$ENDIF}
uFMXChromium, uFMXBufferPanel, uFMXWorkScheduler,
uCEFInterfaces, uCEFTypes, uCEFConstants;
type
TFMXExternalPumpBrowserFrm = class(TForm)
AddressPnl: TPanel;
AddressEdt: TEdit;
GoBtn: TButton;
Panel1: TFMXBufferPanel;
chrmosr: TFMXChromium;
Timer1: TTimer;
procedure GoBtnClick(Sender: TObject);
procedure GoBtnEnter(Sender: TObject);
procedure Panel1Enter(Sender: TObject);
procedure Panel1Exit(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure Panel1Click(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
procedure Panel1MouseLeave(Sender: TObject);
procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
procedure Panel1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
procedure Panel1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure chrmosrPaint(Sender: TObject; const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer);
procedure chrmosrCursorChange(Sender: TObject; const browser: ICefBrowser; cursor: HICON; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo);
procedure chrmosrGetViewRect(Sender: TObject; const browser: ICefBrowser; var rect: TCefRect; out Result: Boolean);
procedure chrmosrGetScreenPoint(Sender: TObject; const browser: ICefBrowser; viewX, viewY: Integer; var screenX, screenY: Integer; out Result: Boolean);
procedure chrmosrGetScreenInfo(Sender: TObject; const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out Result: Boolean);
procedure chrmosrPopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean);
procedure chrmosrPopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
procedure chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure chrmosrClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
procedure chrmosrBeforeClose(Sender: TObject; const browser: ICefBrowser);
procedure Timer1Timer(Sender: TObject);
procedure AddressEdtEnter(Sender: TObject);
protected
FPopUpBitmap : TBitmap;
FPopUpRect : TRect;
FShowPopUp : boolean;
FResizing : boolean;
FPendingResize : boolean;
FCanClose : boolean;
FClosing : boolean;
FResizeCS : TCriticalSection;
{$IFDEF DELPHI17_UP}
FMouseWheelService : IFMXMouseService;
{$ENDIF}
procedure LoadURL;
function getModifiers(Shift: TShiftState): TCefEventFlags;
function GetButton(Button: TMouseButton): TCefMouseButtonType;
function SendCompMessage(aMsg : cardinal; wParam : cardinal = 0; lParam : integer = 0) : boolean;
public
procedure DoResize;
procedure DoBrowserCreated;
procedure NotifyMoveOrResizeStarted;
procedure SendCaptureLostEvent;
procedure HandleSYSCHAR(const aMessage : TMsg);
procedure HandleSYSKEYDOWN(const aMessage : TMsg);
procedure HandleSYSKEYUP(const aMessage : TMsg);
end;
var
FMXExternalPumpBrowserFrm : TFMXExternalPumpBrowserFrm;
GlobalCEFWorkScheduler : TFMXWorkScheduler = nil;
// This is a simple browser using FireMonkey components in OSR mode (off-screen rendering)
// and a external message pump.
// It's recomemded to understand the code in the SimpleOSRBrowser and OSRExternalPumpBrowser demos before
// reading the code in this demo.
// Due to the Firemonkey code structure, this demo uses a IFMXApplicationService interface implemented in
// uFMXApplicationService.pas to intercept some windows messages needed to make a CEF browser work.
// The TFMXApplicationService.HandleMessages function receives many of the messages that the
// OSRExternalPumpBrowser demo hadled in the main form or in the GlobalCEFWorkScheduler.
// It was necessary to destroy the browser following the destruction sequence described in
// the MDIBrowser demo but in OSR mode there are some modifications.
// This is the destruction sequence in OSR mode :
// 1- FormCloseQuery sets CanClose to the initial FCanClose value (False) and calls chrmosr.CloseBrowser(True).
// 2- chrmosr.CloseBrowser(True) will trigger chrmosr.OnClose and we have to
// set "Result" to false and CEF3 will destroy the internal browser immediately.
// 3- chrmosr.OnBeforeClose is triggered because the internal browser was destroyed.
// Now we set FCanClose to True and send WM_CLOSE to the form.
procedure GlobalCEFApp_OnScheduleMessagePumpWork(const aDelayMS : int64);
implementation
{$R *.fmx}
uses
System.SysUtils, System.Math, FMX.Platform, FMX.Platform.Win,
uCEFMiscFunctions, uCEFApplication, uFMXApplicationService;
procedure GlobalCEFApp_OnScheduleMessagePumpWork(const aDelayMS : int64);
begin
if (GlobalCEFWorkScheduler <> nil) then GlobalCEFWorkScheduler.ScheduleMessagePumpWork(aDelayMS);
end;
procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
if not(FClosing) then
begin
FClosing := True;
Visible := False;
AddressPnl.Enabled := False;
chrmosr.CloseBrowser(True);
end;
end;
procedure TFMXExternalPumpBrowserFrm.FormCreate(Sender: TObject);
begin
TFMXApplicationService.AddPlatformService;
FPopUpBitmap := nil;
FPopUpRect := rect(0, 0, 0, 0);
FShowPopUp := False;
FResizing := False;
FPendingResize := False;
FCanClose := False;
FClosing := False;
FResizeCS := TCriticalSection.Create;
{$IFDEF DELPHI17_UP}
if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService) then
FMouseWheelService := TPlatformServices.Current.GetPlatformService(IFMXMouseService) as IFMXMouseService;
{$ENDIF}
end;
procedure TFMXExternalPumpBrowserFrm.FormDestroy(Sender: TObject);
begin
if (FPopUpBitmap <> nil) then FreeAndNil(FPopUpBitmap);
end;
procedure TFMXExternalPumpBrowserFrm.FormHide(Sender: TObject);
begin
chrmosr.SendFocusEvent(False);
chrmosr.WasHidden(True);
end;
procedure TFMXExternalPumpBrowserFrm.FormShow(Sender: TObject);
begin
if chrmosr.Initialized then
begin
chrmosr.WasHidden(False);
chrmosr.SendFocusEvent(True);
end
else
begin
// opaque white background color
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
if not(chrmosr.CreateBrowser) then Timer1.Enabled := True;
end;
end;
procedure TFMXExternalPumpBrowserFrm.GoBtnClick(Sender: TObject);
begin
LoadURL;
end;
procedure TFMXExternalPumpBrowserFrm.LoadURL;
begin
FResizeCS.Acquire;
FResizing := False;
FPendingResize := False;
FResizeCS.Release;
chrmosr.LoadURL(AddressEdt.Text);
end;
procedure TFMXExternalPumpBrowserFrm.GoBtnEnter(Sender: TObject);
begin
chrmosr.SendFocusEvent(False);
end;
procedure TFMXExternalPumpBrowserFrm.Panel1Click(Sender: TObject);
begin
Panel1.SetFocus;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1Enter(Sender: TObject);
begin
chrmosr.SendFocusEvent(True);
end;
procedure TFMXExternalPumpBrowserFrm.Panel1Exit(Sender: TObject);
begin
chrmosr.SendFocusEvent(False);
end;
procedure TFMXExternalPumpBrowserFrm.Panel1KeyDown(Sender : TObject;
var Key : Word;
var KeyChar : Char;
Shift : TShiftState);
var
TempKeyEvent : TCefKeyEvent;
begin
if not(Panel1.IsFocused) or (chrmosr = nil) then exit;
if (Key in [VK_BACK..VK_HELP]) and (KeyChar = #0) then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := getModifiers(Shift);
TempKeyEvent.windows_key_code := Key;
TempKeyEvent.native_key_code := 0;
TempKeyEvent.is_system_key := ord(False);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1KeyUp(Sender : TObject;
var Key : Word;
var KeyChar : Char;
Shift : TShiftState);
var
TempKeyEvent : TCefKeyEvent;
begin
if not(Panel1.IsFocused) or (chrmosr = nil) then exit;
if (Key = 0) and (KeyChar <> #0) then
begin
TempKeyEvent.kind := KEYEVENT_CHAR;
TempKeyEvent.modifiers := getModifiers(Shift);
TempKeyEvent.windows_key_code := ord(KeyChar);
TempKeyEvent.native_key_code := 0;
TempKeyEvent.is_system_key := ord(False);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end
else
if (Key in [VK_BACK..VK_HELP]) and (KeyChar = #0) then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := getModifiers(Shift);
TempKeyEvent.windows_key_code := Key;
TempKeyEvent.native_key_code := 0;
TempKeyEvent.is_system_key := ord(False);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1MouseDown(Sender : TObject;
Button : TMouseButton;
Shift : TShiftState;
X, Y : Single);
var
TempEvent : TCefMouseEvent;
begin
if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin
Panel1.SetFocus;
TempEvent.x := round(X);
TempEvent.y := round(Y);
TempEvent.modifiers := getModifiers(Shift);
chrmosr.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1MouseLeave(Sender: TObject);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
begin
if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin
GetCursorPos(TempPoint);
TempPoint := Panel1.ScreenToclient(TempPoint);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := GetCefMouseModifiers;
chrmosr.SendMouseMoveEvent(@TempEvent, True);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1MouseMove(Sender : TObject;
Shift : TShiftState;
X, Y : Single);
var
TempEvent : TCefMouseEvent;
begin
if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin
TempEvent.x := round(X);
TempEvent.y := round(Y);
TempEvent.modifiers := getModifiers(Shift);
chrmosr.SendMouseMoveEvent(@TempEvent, False);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1MouseUp(Sender : TObject;
Button : TMouseButton;
Shift : TShiftState;
X, Y : Single);
var
TempEvent : TCefMouseEvent;
begin
if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin
TempEvent.x := round(X);
TempEvent.y := round(Y);
TempEvent.modifiers := getModifiers(Shift);
chrmosr.SendMouseClickEvent(@TempEvent, GetButton(Button), True, 1);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1MouseWheel(Sender : TObject;
Shift : TShiftState;
WheelDelta : Integer;
var Handled : Boolean);
var
TempEvent : TCefMouseEvent;
TempPointF : TPointF;
begin
if Panel1.IsFocused and (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin
{$IFDEF DELPHI17_UP}
if (FMouseWheelService <> nil) then
TempPointF := FMouseWheelService.GetMousePos
else
exit;
{$ELSE}
TempPointF := Platform.GetMousePos;
{$ENDIF}
TempEvent.x := round(TempPointF.x);
TempEvent.y := round(TempPointF.y);
TempEvent.modifiers := getModifiers(Shift);
chrmosr.SendMouseWheelEvent(@TempEvent, 0, WheelDelta);
end;
end;
procedure TFMXExternalPumpBrowserFrm.Panel1Resize(Sender: TObject);
begin
DoResize;
end;
procedure TFMXExternalPumpBrowserFrm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not(chrmosr.CreateBrowser) and not(chrmosr.Initialized) then Timer1.Enabled := True;
end;
procedure TFMXExternalPumpBrowserFrm.AddressEdtEnter(Sender: TObject);
begin
chrmosr.SendFocusEvent(False);
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
SendCompMessage(CEF_AFTERCREATED);
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrBeforeClose(Sender: TObject; const browser: ICefBrowser);
begin
FCanClose := True;
SendCompMessage(WM_CLOSE);
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
begin
Result := False;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrCursorChange(Sender : TObject;
const browser : ICefBrowser;
cursor : HICON;
cursorType : TCefCursorType;
const customCursorInfo : PCefCursorInfo);
begin
Panel1.Cursor := GefCursorToWindowsCursor(cursorType);
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrGetScreenInfo(Sender : TObject;
const browser : ICefBrowser;
var screenInfo : TCefScreenInfo;
out Result : Boolean);
var
TempRect : TCEFRect;
begin
if (GlobalCEFApp <> nil) then
begin
TempRect.x := 0;
TempRect.y := 0;
TempRect.width := round(Panel1.Width);
TempRect.height := round(Panel1.Height);
screenInfo.device_scale_factor := GlobalCEFApp.DeviceScaleFactor;
screenInfo.depth := 0;
screenInfo.depth_per_component := 0;
screenInfo.is_monochrome := Ord(False);
screenInfo.rect := TempRect;
screenInfo.available_rect := TempRect;
Result := True;
end
else
Result := False;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrGetScreenPoint(Sender : TObject;
const browser : ICefBrowser;
viewX : Integer;
viewY : Integer;
var screenX : Integer;
var screenY : Integer;
out Result : Boolean);
var
TempScreenPt, TempViewPt : TPoint;
begin
if (GlobalCEFApp <> nil) then
begin
TempViewPt.x := LogicalToDevice(viewX, GlobalCEFApp.DeviceScaleFactor);
TempViewPt.y := LogicalToDevice(viewY, GlobalCEFApp.DeviceScaleFactor);
TempScreenPt := Panel1.ClientToScreen(TempViewPt);
screenX := TempScreenPt.x;
screenY := TempScreenPt.y;
Result := True;
end
else
Result := False;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrGetViewRect(Sender : TObject;
const browser : ICefBrowser;
var rect : TCefRect;
out Result : Boolean);
begin
if (GlobalCEFApp <> nil) then
begin
rect.x := 0;
rect.y := 0;
rect.width := round(Panel1.Width);
rect.height := round(Panel1.Height);
Result := True;
end
else
Result := False;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrPaint(Sender : TObject;
const browser : ICefBrowser;
kind : TCefPaintElementType;
dirtyRectsCount : NativeUInt;
const dirtyRects : PCefRectArray;
const buffer : Pointer;
width : Integer;
height : Integer);
var
src, dst: PByte;
i, j, TempLineSize, TempSrcOffset, TempDstOffset, SrcStride, DstStride : Integer;
n : NativeUInt;
TempWidth, TempHeight, TempScanlineSize : integer;
TempBufferBits : Pointer;
TempForcedResize : boolean;
TempBitmapData : TBitmapData;
TempBitmap : TBitmap;
begin
try
FResizeCS.Acquire;
TempForcedResize := False;
if Panel1.BeginBufferDraw then
try
if (kind = PET_POPUP) then
begin
if (FPopUpBitmap = nil) or
(width <> FPopUpBitmap.Width) or
(height <> FPopUpBitmap.Height) then
begin
if (FPopUpBitmap <> nil) then FPopUpBitmap.Free;
FPopUpBitmap := TBitmap.Create(width, height);
{$IFDEF DELPHI17_UP}
FPopUpBitmap.BitmapScale := Panel1.ScreenScale;
{$ENDIF}
end;
TempWidth := FPopUpBitmap.Width;
TempHeight := FPopUpBitmap.Height;
TempScanlineSize := FPopUpBitmap.BytesPerLine;
TempBitmap := FPopUpBitmap;
end
else
begin
TempForcedResize := Panel1.UpdateBufferDimensions(Width, Height) or not(Panel1.BufferIsResized(False));
TempWidth := Panel1.BufferWidth;
TempHeight := Panel1.BufferHeight;
TempScanlineSize := Panel1.ScanlineSize;
TempBitmap := Panel1.Buffer;
end;
if (TempBitmap <> nil) {$IFDEF DELPHI17_UP}and TempBitmap.Map(TMapAccess.ReadWrite, TempBitmapData){$ENDIF} then
begin
try
{$IFDEF DELPHI17_UP}
TempBufferBits := TempBitmapData.Data;
{$ELSE}
TempBufferBits := TempBitmapData.StartLine;
{$ENDIF}
SrcStride := Width * SizeOf(TRGBQuad);
DstStride := TempScanlineSize;
n := 0;
while (n < dirtyRectsCount) do
begin
if (dirtyRects[n].x >= 0) and (dirtyRects[n].y >= 0) then
begin
TempLineSize := min(dirtyRects[n].width, TempWidth - dirtyRects[n].x) * SizeOf(TRGBQuad);
if (TempLineSize > 0) then
begin
TempSrcOffset := ((dirtyRects[n].y * Width) + dirtyRects[n].x) * SizeOf(TRGBQuad);
TempDstOffset := (dirtyRects[n].y * TempScanlineSize) + (dirtyRects[n].x * SizeOf(TRGBQuad));
src := @PByte(buffer)[TempSrcOffset];
dst := @PByte(TempBufferBits)[TempDstOffset];
i := 0;
j := min(dirtyRects[n].height, TempHeight - dirtyRects[n].y);
while (i < j) do
begin
Move(src^, dst^, TempLineSize);
inc(dst, DstStride);
inc(src, SrcStride);
inc(i);
end;
end;
end;
inc(n);
end;
Panel1.InvalidatePanel;
finally
{$IFDEF DELPHI17_UP}
TempBitmap.Unmap(TempBitmapData);
{$ENDIF}
end;
if FShowPopup and (FPopUpBitmap <> nil) then
Panel1.BufferDraw(FPopUpRect.Left, FPopUpRect.Top, FPopUpBitmap);
end;
if (kind = PET_VIEW) then
begin
if TempForcedResize or FPendingResize then SendCompMessage(CEF_PENDINGRESIZE);
FResizing := False;
FPendingResize := False;
end;
finally
Panel1.EndBufferDraw;
end;
finally
FResizeCS.Release;
end;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrPopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean);
begin
if show then
FShowPopUp := True
else
begin
FShowPopUp := False;
FPopUpRect := rect(0, 0, 0, 0);
if (chrmosr <> nil) then chrmosr.Invalidate(PET_VIEW);
end;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrPopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
begin
if (GlobalCEFApp <> nil) then
begin
FPopUpRect.Left := rect.x;
FPopUpRect.Top := rect.y;
FPopUpRect.Right := rect.x + LogicalToDevice(rect.width, GlobalCEFApp.DeviceScaleFactor) - 1;
FPopUpRect.Bottom := rect.y + LogicalToDevice(rect.height, GlobalCEFApp.DeviceScaleFactor) - 1;
end;
end;
procedure TFMXExternalPumpBrowserFrm.DoResize;
begin
try
if (FResizeCS <> nil) then
begin
FResizeCS.Acquire;
if FResizing then
FPendingResize := True
else
if Panel1.BufferIsResized then
chrmosr.Invalidate(PET_VIEW)
else
begin
FResizing := True;
chrmosr.WasResized;
end;
end;
finally
if (FResizeCS <> nil) then FResizeCS.Release;
end;
end;
procedure TFMXExternalPumpBrowserFrm.NotifyMoveOrResizeStarted;
begin
if (chrmosr <> nil) then chrmosr.NotifyMoveOrResizeStarted;
end;
procedure TFMXExternalPumpBrowserFrm.SendCaptureLostEvent;
begin
if (chrmosr <> nil) then chrmosr.SendCaptureLostEvent;
end;
procedure TFMXExternalPumpBrowserFrm.HandleSYSCHAR(const aMessage : TMsg);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.IsFocused and (aMessage.wParam in [VK_BACK..VK_HELP]) then
begin
TempKeyEvent.kind := KEYEVENT_CHAR;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(aMessage.wParam, aMessage.lParam);
TempKeyEvent.windows_key_code := aMessage.wParam;
TempKeyEvent.native_key_code := aMessage.lParam;
TempKeyEvent.is_system_key := ord(True);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
end;
procedure TFMXExternalPumpBrowserFrm.HandleSYSKEYDOWN(const aMessage : TMsg);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.IsFocused and (aMessage.wParam in [VK_BACK..VK_HELP]) then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(aMessage.wParam, aMessage.lParam);
TempKeyEvent.windows_key_code := aMessage.wParam;
TempKeyEvent.native_key_code := aMessage.lParam;
TempKeyEvent.is_system_key := ord(True);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
end;
procedure TFMXExternalPumpBrowserFrm.HandleSYSKEYUP(const aMessage : TMsg);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.IsFocused and (aMessage.wParam in [VK_BACK..VK_HELP]) then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(aMessage.wParam, aMessage.lParam);
TempKeyEvent.windows_key_code := aMessage.wParam;
TempKeyEvent.native_key_code := aMessage.lParam;
TempKeyEvent.is_system_key := ord(True);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
chrmosr.SendKeyEvent(@TempKeyEvent);
end;
end;
procedure TFMXExternalPumpBrowserFrm.DoBrowserCreated;
begin
Caption := 'FMX External Pump Browser';
AddressPnl.Enabled := True;
Panel1.SetFocus;
LoadURL;
end;
function TFMXExternalPumpBrowserFrm.getModifiers(Shift: TShiftState): TCefEventFlags;
begin
Result := EVENTFLAG_NONE;
if (ssShift in Shift) then Result := Result or EVENTFLAG_SHIFT_DOWN;
if (ssAlt in Shift) then Result := Result or EVENTFLAG_ALT_DOWN;
if (ssCtrl in Shift) then Result := Result or EVENTFLAG_CONTROL_DOWN;
if (ssLeft in Shift) then Result := Result or EVENTFLAG_LEFT_MOUSE_BUTTON;
if (ssRight in Shift) then Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON;
if (ssMiddle in Shift) then Result := Result or EVENTFLAG_MIDDLE_MOUSE_BUTTON;
end;
function TFMXExternalPumpBrowserFrm.GetButton(Button: TMouseButton): TCefMouseButtonType;
begin
case Button of
TMouseButton.mbRight : Result := MBT_RIGHT;
TMouseButton.mbMiddle : Result := MBT_MIDDLE;
else Result := MBT_LEFT;
end;
end;
function TFMXExternalPumpBrowserFrm.SendCompMessage(aMsg, wParam : cardinal; lParam : integer) : boolean;
{$IFDEF MSWINDOWS}
var
TempHandle : TWinWindowHandle;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
TempHandle := WindowHandleToPlatform(Handle);
Result := WinApi.Windows.PostMessage(TempHandle.Wnd, aMsg, wParam, lParam);
{$ELSE}
Result := False;
{$ENDIF}
end;
end.

1
demos/OSRExternalPumpBrowser/OSRExternalPumpBrowser.dpr
View File

@ -72,6 +72,7 @@ begin
GlobalCEFApp.FlashEnabled := False; GlobalCEFApp.FlashEnabled := False;
GlobalCEFApp.ExternalMessagePump := True; GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False; GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.SitePerProcess := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork; GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
if GlobalCEFApp.StartMainProcess then if GlobalCEFApp.StartMainProcess then

1
demos/SimpleOSRBrowser/SimpleOSRBrowser.dpr
View File

@ -59,6 +59,7 @@ begin
GlobalCEFApp.WindowlessRenderingEnabled := True; GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True; GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.FastUnload := True; GlobalCEFApp.FastUnload := True;
GlobalCEFApp.SitePerProcess := False;
if GlobalCEFApp.StartMainProcess then if GlobalCEFApp.StartMainProcess then
begin begin

4
demos/SimpleOSRBrowser/uSimpleOSRBrowser.dfm
View File

@ -2,7 +2,7 @@ object Form1: TForm1
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Simple OSR Browser - Initializing browser. Please wait...' Caption = 'Simple OSR Browser - Initializing browser. Please wait...'
ClientHeight = 510 ClientHeight = 530
ClientWidth = 800 ClientWidth = 800
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -105,7 +105,7 @@ object Form1: TForm1
Left = 0 Left = 0
Top = 30 Top = 30
Width = 800 Width = 800
Height = 480 Height = 500
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 1 TabOrder = 1

8
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@ -633,7 +633,7 @@ procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: T
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
begin begin
if (GlobalCEFApp <> nil) then if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin begin
Panel1.SetFocus; Panel1.SetFocus;
@ -650,7 +650,7 @@ var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
TempPoint : TPoint; TempPoint : TPoint;
begin begin
if (GlobalCEFApp <> nil) then if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin begin
GetCursorPos(TempPoint); GetCursorPos(TempPoint);
TempPoint := Panel1.ScreenToclient(TempPoint); TempPoint := Panel1.ScreenToclient(TempPoint);
@ -666,7 +666,7 @@ procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Inte
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
begin begin
if (GlobalCEFApp <> nil) then if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin begin
TempEvent.x := X; TempEvent.x := X;
TempEvent.y := Y; TempEvent.y := Y;
@ -680,7 +680,7 @@ procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TSh
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
begin begin
if (GlobalCEFApp <> nil) then if (GlobalCEFApp <> nil) and (chrmosr <> nil) then
begin begin
TempEvent.x := X; TempEvent.x := X;
TempEvent.y := Y; TempEvent.y := Y;

0
source/00-CreateResources.bat → packages/00-CreateResources.bat
View File

13
packages/00-DeleteDCUs.bat Normal file
View File

@ -0,0 +1,13 @@
del /s /q *.dcu
del /s /q *.exe
del /s /q *.log
del /s /q *.dsk
del /s /q *.identcache
del /s /q *.stat
del /s /q *.local
del /s /q *.~*
rmdir Win32\Debug
rmdir Win32\Release
rmdir Win32
rmdir __history
rmdir __recovery

170
packages/CEF4Delphi.dpk Normal file
View File

@ -0,0 +1,170 @@
package CEF4Delphi;
{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'CEF4Delphi'}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl;
contains
CEF4Delphi_Register in 'CEF4Delphi_Register.pas',
uCEFFindHandler in '..\source\uCEFFindHandler.pas',
uCEFConstants in '..\source\uCEFConstants.pas',
uCEFTypes in '..\source\uCEFTypes.pas',
uCEFInterfaces in '..\source\uCEFInterfaces.pas',
uCEFMiscFunctions in '..\source\uCEFMiscFunctions.pas',
uCEFLibFunctions in '..\source\uCEFLibFunctions.pas',
uCEFApplication in '..\source\uCEFApplication.pas',
uCEFSchemeRegistrar in '..\source\uCEFSchemeRegistrar.pas',
uCEFCommandLine in '..\source\uCEFCommandLine.pas',
uCEFClient in '..\source\uCEFClient.pas',
uCEFProcessMessage in '..\source\uCEFProcessMessage.pas',
uCEFBrowser in '..\source\uCEFBrowser.pas',
uCEFListValue in '..\source\uCEFListValue.pas',
uCEFBinaryValue in '..\source\uCEFBinaryValue.pas',
uCEFValue in '..\source\uCEFValue.pas',
uCEFDictionaryValue in '..\source\uCEFDictionaryValue.pas',
uCEFDownloadImageCallBack in '..\source\uCEFDownloadImageCallBack.pas',
uCEFFrame in '..\source\uCEFFrame.pas',
uCEFPDFPrintCallback in '..\source\uCEFPDFPrintCallback.pas',
uCEFRunFileDialogCallback in '..\source\uCEFRunFileDialogCallback.pas',
uCEFRequestContext in '..\source\uCEFRequestContext.pas',
uCEFNavigationEntryVisitor in '..\source\uCEFNavigationEntryVisitor.pas',
uCEFStringVisitor in '..\source\uCEFStringVisitor.pas',
uCEFv8Context in '..\source\uCEFv8Context.pas',
uCEFDomVisitor in '..\source\uCEFDomVisitor.pas',
uCEFNavigationEntry in '..\source\uCEFNavigationEntry.pas',
uCEFCookieManager in '..\source\uCEFCookieManager.pas',
uCEFCompletionCallback in '..\source\uCEFCompletionCallback.pas',
uCEFRequestContextHandler in '..\source\uCEFRequestContextHandler.pas',
uCEFWebPluginInfo in '..\source\uCEFWebPluginInfo.pas',
uCEFDomDocument in '..\source\uCEFDomDocument.pas',
uCEFDomNode in '..\source\uCEFDomNode.pas',
uCEFv8Value in '..\source\uCEFv8Value.pas',
uCEFv8Accessor in '..\source\uCEFv8Accessor.pas',
uCEFLoadHandler in '..\source\uCEFLoadHandler.pas',
uCEFFocusHandler in '..\source\uCEFFocusHandler.pas',
uCEFContextMenuHandler in '..\source\uCEFContextMenuHandler.pas',
uCEFDialogHandler in '..\source\uCEFDialogHandler.pas',
uCEFKeyboardHandler in '..\source\uCEFKeyboardHandler.pas',
uCEFDisplayHandler in '..\source\uCEFDisplayHandler.pas',
uCEFDownloadHandler in '..\source\uCEFDownloadHandler.pas',
uCEFGeolocationHandler in '..\source\uCEFGeolocationHandler.pas',
uCEFJsDialogHandler in '..\source\uCEFJsDialogHandler.pas',
uCEFLifeSpanHandler in '..\source\uCEFLifeSpanHandler.pas',
uCEFRequestHandler in '..\source\uCEFRequestHandler.pas',
uCEFRenderHandler in '..\source\uCEFRenderHandler.pas',
uCEFDragHandler in '..\source\uCEFDragHandler.pas',
uCEFPostData in '..\source\uCEFPostData.pas',
uCEFPostDataElement in '..\source\uCEFPostDataElement.pas',
uCEFRequest in '..\source\uCEFRequest.pas',
uCEFStreamReader in '..\source\uCEFStreamReader.pas',
uCEFWriteHandler in '..\source\uCEFWriteHandler.pas',
uCEFStreamWriter in '..\source\uCEFStreamWriter.pas',
uCEFv8StackFrame in '..\source\uCEFv8StackFrame.pas',
uCEFv8StackTrace in '..\source\uCEFv8StackTrace.pas',
uCEFv8Handler in '..\source\uCEFv8Handler.pas',
uCEFRequestCallback in '..\source\uCEFRequestCallback.pas',
uCEFCustomStreamReader in '..\source\uCEFCustomStreamReader.pas',
uCEFCallback in '..\source\uCEFCallback.pas',
uCEFResourceHandler in '..\source\uCEFResourceHandler.pas',
uCEFSchemeHandlerFactory in '..\source\uCEFSchemeHandlerFactory.pas',
uCEFTask in '..\source\uCEFTask.pas',
uCEFTaskRunner in '..\source\uCEFTaskRunner.pas',
uCEFStringMap in '..\source\uCEFStringMap.pas',
uCEFStringMultimap in '..\source\uCEFStringMultimap.pas',
uCEFXmlReader in '..\source\uCEFXmlReader.pas',
uCEFZipReader in '..\source\uCEFZipReader.pas',
uCEFResponse in '..\source\uCEFResponse.pas',
uCEFCookieVisitor in '..\source\uCEFCookieVisitor.pas',
uCEFV8Exception in '..\source\uCEFV8Exception.pas',
uCEFResourceBundleHandler in '..\source\uCEFResourceBundleHandler.pas',
uCEFSetCookieCallback in '..\source\uCEFSetCookieCallback.pas',
uCEFDeleteCookiesCallback in '..\source\uCEFDeleteCookiesCallback.pas',
uCEFDownLoadItem in '..\source\uCEFDownLoadItem.pas',
uCEFBeforeDownloadCallback in '..\source\uCEFBeforeDownloadCallback.pas',
uCEFDownloadItemCallback in '..\source\uCEFDownloadItemCallback.pas',
uCEFAuthCallback in '..\source\uCEFAuthCallback.pas',
uCEFJsDialogCallback in '..\source\uCEFJsDialogCallback.pas',
uCEFGeolocationCallback in '..\source\uCEFGeolocationCallback.pas',
uCEFContextMenuParams in '..\source\uCEFContextMenuParams.pas',
uCEFMenuModel in '..\source\uCEFMenuModel.pas',
uCEFBrowserProcessHandler in '..\source\uCEFBrowserProcessHandler.pas',
uCEFRenderProcessHandler in '..\source\uCEFRenderProcessHandler.pas',
uCEFUrlrequestClient in '..\source\uCEFUrlrequestClient.pas',
uCEFUrlRequest in '..\source\uCEFUrlRequest.pas',
uCEFWebPluginInfoVisitor in '..\source\uCEFWebPluginInfoVisitor.pas',
uCEFWebPluginUnstableCallback in '..\source\uCEFWebPluginUnstableCallback.pas',
uCEFEndTracingCallback in '..\source\uCEFEndTracingCallback.pas',
uCEFGetGeolocationCallback in '..\source\uCEFGetGeolocationCallback.pas',
uCEFFileDialogCallback in '..\source\uCEFFileDialogCallback.pas',
uCEFDragData in '..\source\uCEFDragData.pas',
uCEFResolveCallback in '..\source\uCEFResolveCallback.pas',
uCEFPrintSettings in '..\source\uCEFPrintSettings.pas',
uCEFSslInfo in '..\source\uCEFSslInfo.pas',
uCEFRunContextMenuCallback in '..\source\uCEFRunContextMenuCallback.pas',
uCEFResourceBundle in '..\source\uCEFResourceBundle.pas',
uCEFResponseFilter in '..\source\uCEFResponseFilter.pas',
uCEFImage in '..\source\uCEFImage.pas',
uCEFMenuModelDelegate in '..\source\uCEFMenuModelDelegate.pas',
uCEFv8Types in '..\source\uCEFv8Types.pas',
uCEFWindowParent in '..\source\uCEFWindowParent.pas',
uCEFChromium in '..\source\uCEFChromium.pas',
uCEFChromiumEvents in '..\source\uCEFChromiumEvents.pas',
uCEFChromiumOptions in '..\source\uCEFChromiumOptions.pas',
uCEFChromiumFontOptions in '..\source\uCEFChromiumFontOptions.pas',
uCEFPDFPrintOptions in '..\source\uCEFPDFPrintOptions.pas',
uCEFRegisterCDMCallback in '..\source\uCEFRegisterCDMCallback.pas',
uCEFThread in '..\source\uCEFThread.pas',
uCEFv8Interceptor in '..\source\uCEFv8Interceptor.pas',
uCEFWaitableEvent in '..\source\uCEFWaitableEvent.pas',
uCEFX509CertPrincipal in '..\source\uCEFX509CertPrincipal.pas',
uCEFX509Certificate in '..\source\uCEFX509Certificate.pas',
uCEFSSLStatus in '..\source\uCEFSSLStatus.pas',
uCEFSelectClientCertificateCallback in '..\source\uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in '..\source\uCEFChromiumWindow.pas',
uCEFBaseRefCounted in '..\source\uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in '..\source\uCEFBaseScopedWrapper.pas',
uCEFAccessibilityHandler in '..\source\uCEFAccessibilityHandler.pas',
uOLEDragAndDrop in '..\source\uOLEDragAndDrop.pas',
uCEFDragAndDropMgr in '..\source\uCEFDragAndDropMgr.pas',
uCEFGetExtensionResourceCallback in '..\source\uCEFGetExtensionResourceCallback.pas',
uCEFExtension in '..\source\uCEFExtension.pas',
uCEFExtensionHandler in '..\source\uCEFExtensionHandler.pas',
uBufferPanel in '..\source\uBufferPanel.pas',
uCEFApp in '..\source\uCEFApp.pas',
uCEFWorkScheduler in '..\source\uCEFWorkScheduler.pas',
uCEFWorkSchedulerThread in '..\source\uCEFWorkSchedulerThread.pas',
uCEFServer in '..\source\uCEFServer.pas',
uCEFServerHandler in '..\source\uCEFServerHandler.pas',
uCEFServerEvents in '..\source\uCEFServerEvents.pas',
uCEFServerComponent in '..\source\uCEFServerComponent.pas';
end.

267
source/CEF4Delphi.dproj → packages/CEF4Delphi.dproj
View File

@ -72,14 +72,14 @@
<DCC_K>false</DCC_K> <DCC_K>false</DCC_K>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>rtl;vcl;$(DCC_UsePackage)</DCC_UsePackage> <DCC_UsePackage>rtl;vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''"> <PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>rtl;vcl;$(DCC_UsePackage)</DCC_UsePackage> <DCC_UsePackage>rtl;vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
@ -124,137 +124,138 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="rtl.dcp"/> <DCCReference Include="rtl.dcp"/>
<DCCReference Include="vcl.dcp"/> <DCCReference Include="vcl.dcp"/>
<DCCReference Include="uCEFRegisterComponents.pas"/> <DCCReference Include="CEF4Delphi_Register.pas"/>
<DCCReference Include="uCEFFindHandler.pas"/> <DCCReference Include="..\source\uCEFFindHandler.pas"/>
<DCCReference Include="uCEFConstants.pas"/> <DCCReference Include="..\source\uCEFConstants.pas"/>
<DCCReference Include="uCEFTypes.pas"/> <DCCReference Include="..\source\uCEFTypes.pas"/>
<DCCReference Include="uCEFInterfaces.pas"/> <DCCReference Include="..\source\uCEFInterfaces.pas"/>
<DCCReference Include="uCEFMiscFunctions.pas"/> <DCCReference Include="..\source\uCEFMiscFunctions.pas"/>
<DCCReference Include="uCEFLibFunctions.pas"/> <DCCReference Include="..\source\uCEFLibFunctions.pas"/>
<DCCReference Include="uCEFApplication.pas"/> <DCCReference Include="..\source\uCEFApplication.pas"/>
<DCCReference Include="uCEFSchemeRegistrar.pas"/> <DCCReference Include="..\source\uCEFSchemeRegistrar.pas"/>
<DCCReference Include="uCEFCommandLine.pas"/> <DCCReference Include="..\source\uCEFCommandLine.pas"/>
<DCCReference Include="uCEFClient.pas"/> <DCCReference Include="..\source\uCEFClient.pas"/>
<DCCReference Include="uCEFProcessMessage.pas"/> <DCCReference Include="..\source\uCEFProcessMessage.pas"/>
<DCCReference Include="uCEFBrowser.pas"/> <DCCReference Include="..\source\uCEFBrowser.pas"/>
<DCCReference Include="uCEFListValue.pas"/> <DCCReference Include="..\source\uCEFListValue.pas"/>
<DCCReference Include="uCEFBinaryValue.pas"/> <DCCReference Include="..\source\uCEFBinaryValue.pas"/>
<DCCReference Include="uCEFValue.pas"/> <DCCReference Include="..\source\uCEFValue.pas"/>
<DCCReference Include="uCEFDictionaryValue.pas"/> <DCCReference Include="..\source\uCEFDictionaryValue.pas"/>
<DCCReference Include="uCEFDownloadImageCallBack.pas"/> <DCCReference Include="..\source\uCEFDownloadImageCallBack.pas"/>
<DCCReference Include="uCEFFrame.pas"/> <DCCReference Include="..\source\uCEFFrame.pas"/>
<DCCReference Include="uCEFPDFPrintCallback.pas"/> <DCCReference Include="..\source\uCEFPDFPrintCallback.pas"/>
<DCCReference Include="uCEFRunFileDialogCallback.pas"/> <DCCReference Include="..\source\uCEFRunFileDialogCallback.pas"/>
<DCCReference Include="uCEFRequestContext.pas"/> <DCCReference Include="..\source\uCEFRequestContext.pas"/>
<DCCReference Include="uCEFNavigationEntryVisitor.pas"/> <DCCReference Include="..\source\uCEFNavigationEntryVisitor.pas"/>
<DCCReference Include="uCEFStringVisitor.pas"/> <DCCReference Include="..\source\uCEFStringVisitor.pas"/>
<DCCReference Include="uCEFv8Context.pas"/> <DCCReference Include="..\source\uCEFv8Context.pas"/>
<DCCReference Include="uCEFDomVisitor.pas"/> <DCCReference Include="..\source\uCEFDomVisitor.pas"/>
<DCCReference Include="uCEFNavigationEntry.pas"/> <DCCReference Include="..\source\uCEFNavigationEntry.pas"/>
<DCCReference Include="uCEFCookieManager.pas"/> <DCCReference Include="..\source\uCEFCookieManager.pas"/>
<DCCReference Include="uCEFCompletionCallback.pas"/> <DCCReference Include="..\source\uCEFCompletionCallback.pas"/>
<DCCReference Include="uCEFRequestContextHandler.pas"/> <DCCReference Include="..\source\uCEFRequestContextHandler.pas"/>
<DCCReference Include="uCEFWebPluginInfo.pas"/> <DCCReference Include="..\source\uCEFWebPluginInfo.pas"/>
<DCCReference Include="uCEFDomDocument.pas"/> <DCCReference Include="..\source\uCEFDomDocument.pas"/>
<DCCReference Include="uCEFDomNode.pas"/> <DCCReference Include="..\source\uCEFDomNode.pas"/>
<DCCReference Include="uCEFv8Value.pas"/> <DCCReference Include="..\source\uCEFv8Value.pas"/>
<DCCReference Include="uCEFv8Accessor.pas"/> <DCCReference Include="..\source\uCEFv8Accessor.pas"/>
<DCCReference Include="uCEFLoadHandler.pas"/> <DCCReference Include="..\source\uCEFLoadHandler.pas"/>
<DCCReference Include="uCEFFocusHandler.pas"/> <DCCReference Include="..\source\uCEFFocusHandler.pas"/>
<DCCReference Include="uCEFContextMenuHandler.pas"/> <DCCReference Include="..\source\uCEFContextMenuHandler.pas"/>
<DCCReference Include="uCEFDialogHandler.pas"/> <DCCReference Include="..\source\uCEFDialogHandler.pas"/>
<DCCReference Include="uCEFKeyboardHandler.pas"/> <DCCReference Include="..\source\uCEFKeyboardHandler.pas"/>
<DCCReference Include="uCEFDisplayHandler.pas"/> <DCCReference Include="..\source\uCEFDisplayHandler.pas"/>
<DCCReference Include="uCEFDownloadHandler.pas"/> <DCCReference Include="..\source\uCEFDownloadHandler.pas"/>
<DCCReference Include="uCEFGeolocationHandler.pas"/> <DCCReference Include="..\source\uCEFGeolocationHandler.pas"/>
<DCCReference Include="uCEFJsDialogHandler.pas"/> <DCCReference Include="..\source\uCEFJsDialogHandler.pas"/>
<DCCReference Include="uCEFLifeSpanHandler.pas"/> <DCCReference Include="..\source\uCEFLifeSpanHandler.pas"/>
<DCCReference Include="uCEFRequestHandler.pas"/> <DCCReference Include="..\source\uCEFRequestHandler.pas"/>
<DCCReference Include="uCEFRenderHandler.pas"/> <DCCReference Include="..\source\uCEFRenderHandler.pas"/>
<DCCReference Include="uCEFDragHandler.pas"/> <DCCReference Include="..\source\uCEFDragHandler.pas"/>
<DCCReference Include="uCEFPostData.pas"/> <DCCReference Include="..\source\uCEFPostData.pas"/>
<DCCReference Include="uCEFPostDataElement.pas"/> <DCCReference Include="..\source\uCEFPostDataElement.pas"/>
<DCCReference Include="uCEFRequest.pas"/> <DCCReference Include="..\source\uCEFRequest.pas"/>
<DCCReference Include="uCEFStreamReader.pas"/> <DCCReference Include="..\source\uCEFStreamReader.pas"/>
<DCCReference Include="uCEFWriteHandler.pas"/> <DCCReference Include="..\source\uCEFWriteHandler.pas"/>
<DCCReference Include="uCEFStreamWriter.pas"/> <DCCReference Include="..\source\uCEFStreamWriter.pas"/>
<DCCReference Include="uCEFv8StackFrame.pas"/> <DCCReference Include="..\source\uCEFv8StackFrame.pas"/>
<DCCReference Include="uCEFv8StackTrace.pas"/> <DCCReference Include="..\source\uCEFv8StackTrace.pas"/>
<DCCReference Include="uCEFv8Handler.pas"/> <DCCReference Include="..\source\uCEFv8Handler.pas"/>
<DCCReference Include="uCEFRequestCallback.pas"/> <DCCReference Include="..\source\uCEFRequestCallback.pas"/>
<DCCReference Include="uCEFCustomStreamReader.pas"/> <DCCReference Include="..\source\uCEFCustomStreamReader.pas"/>
<DCCReference Include="uCEFCallback.pas"/> <DCCReference Include="..\source\uCEFCallback.pas"/>
<DCCReference Include="uCEFResourceHandler.pas"/> <DCCReference Include="..\source\uCEFResourceHandler.pas"/>
<DCCReference Include="uCEFSchemeHandlerFactory.pas"/> <DCCReference Include="..\source\uCEFSchemeHandlerFactory.pas"/>
<DCCReference Include="uCEFTask.pas"/> <DCCReference Include="..\source\uCEFTask.pas"/>
<DCCReference Include="uCEFTaskRunner.pas"/> <DCCReference Include="..\source\uCEFTaskRunner.pas"/>
<DCCReference Include="uCEFStringMap.pas"/> <DCCReference Include="..\source\uCEFStringMap.pas"/>
<DCCReference Include="uCEFStringMultimap.pas"/> <DCCReference Include="..\source\uCEFStringMultimap.pas"/>
<DCCReference Include="uCEFXmlReader.pas"/> <DCCReference Include="..\source\uCEFXmlReader.pas"/>
<DCCReference Include="uCEFZipReader.pas"/> <DCCReference Include="..\source\uCEFZipReader.pas"/>
<DCCReference Include="uCEFResponse.pas"/> <DCCReference Include="..\source\uCEFResponse.pas"/>
<DCCReference Include="uCEFCookieVisitor.pas"/> <DCCReference Include="..\source\uCEFCookieVisitor.pas"/>
<DCCReference Include="uCEFV8Exception.pas"/> <DCCReference Include="..\source\uCEFV8Exception.pas"/>
<DCCReference Include="uCEFResourceBundleHandler.pas"/> <DCCReference Include="..\source\uCEFResourceBundleHandler.pas"/>
<DCCReference Include="uCEFSetCookieCallback.pas"/> <DCCReference Include="..\source\uCEFSetCookieCallback.pas"/>
<DCCReference Include="uCEFDeleteCookiesCallback.pas"/> <DCCReference Include="..\source\uCEFDeleteCookiesCallback.pas"/>
<DCCReference Include="uCEFDownLoadItem.pas"/> <DCCReference Include="..\source\uCEFDownLoadItem.pas"/>
<DCCReference Include="uCEFBeforeDownloadCallback.pas"/> <DCCReference Include="..\source\uCEFBeforeDownloadCallback.pas"/>
<DCCReference Include="uCEFDownloadItemCallback.pas"/> <DCCReference Include="..\source\uCEFDownloadItemCallback.pas"/>
<DCCReference Include="uCEFAuthCallback.pas"/> <DCCReference Include="..\source\uCEFAuthCallback.pas"/>
<DCCReference Include="uCEFJsDialogCallback.pas"/> <DCCReference Include="..\source\uCEFJsDialogCallback.pas"/>
<DCCReference Include="uCEFGeolocationCallback.pas"/> <DCCReference Include="..\source\uCEFGeolocationCallback.pas"/>
<DCCReference Include="uCEFContextMenuParams.pas"/> <DCCReference Include="..\source\uCEFContextMenuParams.pas"/>
<DCCReference Include="uCEFMenuModel.pas"/> <DCCReference Include="..\source\uCEFMenuModel.pas"/>
<DCCReference Include="uCEFBrowserProcessHandler.pas"/> <DCCReference Include="..\source\uCEFBrowserProcessHandler.pas"/>
<DCCReference Include="uCEFRenderProcessHandler.pas"/> <DCCReference Include="..\source\uCEFRenderProcessHandler.pas"/>
<DCCReference Include="uCEFUrlrequestClient.pas"/> <DCCReference Include="..\source\uCEFUrlrequestClient.pas"/>
<DCCReference Include="uCEFUrlRequest.pas"/> <DCCReference Include="..\source\uCEFUrlRequest.pas"/>
<DCCReference Include="uCEFWebPluginInfoVisitor.pas"/> <DCCReference Include="..\source\uCEFWebPluginInfoVisitor.pas"/>
<DCCReference Include="uCEFWebPluginUnstableCallback.pas"/> <DCCReference Include="..\source\uCEFWebPluginUnstableCallback.pas"/>
<DCCReference Include="uCEFEndTracingCallback.pas"/> <DCCReference Include="..\source\uCEFEndTracingCallback.pas"/>
<DCCReference Include="uCEFGetGeolocationCallback.pas"/> <DCCReference Include="..\source\uCEFGetGeolocationCallback.pas"/>
<DCCReference Include="uCEFFileDialogCallback.pas"/> <DCCReference Include="..\source\uCEFFileDialogCallback.pas"/>
<DCCReference Include="uCEFDragData.pas"/> <DCCReference Include="..\source\uCEFDragData.pas"/>
<DCCReference Include="uCEFResolveCallback.pas"/> <DCCReference Include="..\source\uCEFResolveCallback.pas"/>
<DCCReference Include="uCEFPrintSettings.pas"/> <DCCReference Include="..\source\uCEFPrintSettings.pas"/>
<DCCReference Include="uCEFSslInfo.pas"/> <DCCReference Include="..\source\uCEFSslInfo.pas"/>
<DCCReference Include="uCEFRunContextMenuCallback.pas"/> <DCCReference Include="..\source\uCEFRunContextMenuCallback.pas"/>
<DCCReference Include="uCEFResourceBundle.pas"/> <DCCReference Include="..\source\uCEFResourceBundle.pas"/>
<DCCReference Include="uCEFResponseFilter.pas"/> <DCCReference Include="..\source\uCEFResponseFilter.pas"/>
<DCCReference Include="uCEFImage.pas"/> <DCCReference Include="..\source\uCEFImage.pas"/>
<DCCReference Include="uCEFMenuModelDelegate.pas"/> <DCCReference Include="..\source\uCEFMenuModelDelegate.pas"/>
<DCCReference Include="uCEFv8Types.pas"/> <DCCReference Include="..\source\uCEFv8Types.pas"/>
<DCCReference Include="uCEFWindowParent.pas"/> <DCCReference Include="..\source\uCEFWindowParent.pas"/>
<DCCReference Include="uCEFChromium.pas"/> <DCCReference Include="..\source\uCEFChromium.pas"/>
<DCCReference Include="uCEFChromiumEvents.pas"/> <DCCReference Include="..\source\uCEFChromiumEvents.pas"/>
<DCCReference Include="uCEFChromiumOptions.pas"/> <DCCReference Include="..\source\uCEFChromiumOptions.pas"/>
<DCCReference Include="uCEFChromiumFontOptions.pas"/> <DCCReference Include="..\source\uCEFChromiumFontOptions.pas"/>
<DCCReference Include="uCEFPDFPrintOptions.pas"/> <DCCReference Include="..\source\uCEFPDFPrintOptions.pas"/>
<DCCReference Include="uCEFRegisterCDMCallback.pas"/> <DCCReference Include="..\source\uCEFRegisterCDMCallback.pas"/>
<DCCReference Include="uCEFThread.pas"/> <DCCReference Include="..\source\uCEFThread.pas"/>
<DCCReference Include="uCEFv8Interceptor.pas"/> <DCCReference Include="..\source\uCEFv8Interceptor.pas"/>
<DCCReference Include="uCEFWaitableEvent.pas"/> <DCCReference Include="..\source\uCEFWaitableEvent.pas"/>
<DCCReference Include="uCEFX509CertPrincipal.pas"/> <DCCReference Include="..\source\uCEFX509CertPrincipal.pas"/>
<DCCReference Include="uCEFX509Certificate.pas"/> <DCCReference Include="..\source\uCEFX509Certificate.pas"/>
<DCCReference Include="uCEFSSLStatus.pas"/> <DCCReference Include="..\source\uCEFSSLStatus.pas"/>
<DCCReference Include="uCEFSelectClientCertificateCallback.pas"/> <DCCReference Include="..\source\uCEFSelectClientCertificateCallback.pas"/>
<DCCReference Include="uCEFChromiumWindow.pas"/> <DCCReference Include="..\source\uCEFChromiumWindow.pas"/>
<DCCReference Include="uCEFBaseRefCounted.pas"/> <DCCReference Include="..\source\uCEFBaseRefCounted.pas"/>
<DCCReference Include="uCEFBaseScopedWrapper.pas"/> <DCCReference Include="..\source\uCEFBaseScopedWrapper.pas"/>
<DCCReference Include="uCEFAccessibilityHandler.pas"/> <DCCReference Include="..\source\uCEFAccessibilityHandler.pas"/>
<DCCReference Include="uOLEDragAndDrop.pas"/> <DCCReference Include="..\source\uOLEDragAndDrop.pas"/>
<DCCReference Include="uCEFDragAndDropMgr.pas"/> <DCCReference Include="..\source\uCEFDragAndDropMgr.pas"/>
<DCCReference Include="uCEFGetExtensionResourceCallback.pas"/> <DCCReference Include="..\source\uCEFGetExtensionResourceCallback.pas"/>
<DCCReference Include="uCEFExtension.pas"/> <DCCReference Include="..\source\uCEFExtension.pas"/>
<DCCReference Include="uCEFExtensionHandler.pas"/> <DCCReference Include="..\source\uCEFExtensionHandler.pas"/>
<DCCReference Include="uBufferPanel.pas"/> <DCCReference Include="..\source\uBufferPanel.pas"/>
<DCCReference Include="uCEFApp.pas"/> <DCCReference Include="..\source\uCEFApp.pas"/>
<DCCReference Include="uCEFWorkScheduler.pas"/> <DCCReference Include="..\source\uCEFWorkScheduler.pas"/>
<DCCReference Include="uCEFServer.pas"/> <DCCReference Include="..\source\uCEFWorkSchedulerThread.pas"/>
<DCCReference Include="uCEFServerHandler.pas"/> <DCCReference Include="..\source\uCEFServer.pas"/>
<DCCReference Include="uCEFServerEvents.pas"/> <DCCReference Include="..\source\uCEFServerHandler.pas"/>
<DCCReference Include="uCEFServerComponent.pas"/> <DCCReference Include="..\source\uCEFServerEvents.pas"/>
<DCCReference Include="..\source\uCEFServerComponent.pas"/>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
<Key>Base</Key> <Key>Base</Key>
</BuildConfiguration> </BuildConfiguration>

0
source/CEF4Delphi.res → packages/CEF4Delphi.res
View File

0
source/CEF4Delphi_D7.cfg → packages/CEF4Delphi_D7.cfg
View File

0
source/CEF4Delphi_D7.dof → packages/CEF4Delphi_D7.dof
View File

166
packages/CEF4Delphi_D7.dpk Normal file
View File

@ -0,0 +1,166 @@
package CEF4Delphi_D7;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'CEF4Delphi'}
{$IMPLICITBUILD OFF}
{$DEFINE DEBUG}
requires
rtl,
vcl;
contains
CEF4Delphi_D7_Register in 'CEF4Delphi_D7_Register.pas',
uCEFFindHandler in '..\source\uCEFFindHandler.pas',
uCEFConstants in '..\source\uCEFConstants.pas',
uCEFTypes in '..\source\uCEFTypes.pas',
uCEFInterfaces in '..\source\uCEFInterfaces.pas',
uCEFMiscFunctions in '..\source\uCEFMiscFunctions.pas',
uCEFLibFunctions in '..\source\uCEFLibFunctions.pas',
uCEFApplication in '..\source\uCEFApplication.pas',
uCEFSchemeRegistrar in '..\source\uCEFSchemeRegistrar.pas',
uCEFCommandLine in '..\source\uCEFCommandLine.pas',
uCEFClient in '..\source\uCEFClient.pas',
uCEFProcessMessage in '..\source\uCEFProcessMessage.pas',
uCEFBrowser in '..\source\uCEFBrowser.pas',
uCEFListValue in '..\source\uCEFListValue.pas',
uCEFBinaryValue in '..\source\uCEFBinaryValue.pas',
uCEFValue in '..\source\uCEFValue.pas',
uCEFDictionaryValue in '..\source\uCEFDictionaryValue.pas',
uCEFDownloadImageCallBack in '..\source\uCEFDownloadImageCallBack.pas',
uCEFFrame in '..\source\uCEFFrame.pas',
uCEFPDFPrintCallback in '..\source\uCEFPDFPrintCallback.pas',
uCEFRunFileDialogCallback in '..\source\uCEFRunFileDialogCallback.pas',
uCEFRequestContext in '..\source\uCEFRequestContext.pas',
uCEFNavigationEntryVisitor in '..\source\uCEFNavigationEntryVisitor.pas',
uCEFStringVisitor in '..\source\uCEFStringVisitor.pas',
uCEFv8Context in '..\source\uCEFv8Context.pas',
uCEFDomVisitor in '..\source\uCEFDomVisitor.pas',
uCEFNavigationEntry in '..\source\uCEFNavigationEntry.pas',
uCEFCookieManager in '..\source\uCEFCookieManager.pas',
uCEFCompletionCallback in '..\source\uCEFCompletionCallback.pas',
uCEFRequestContextHandler in '..\source\uCEFRequestContextHandler.pas',
uCEFWebPluginInfo in '..\source\uCEFWebPluginInfo.pas',
uCEFDomDocument in '..\source\uCEFDomDocument.pas',
uCEFDomNode in '..\source\uCEFDomNode.pas',
uCEFv8Value in '..\source\uCEFv8Value.pas',
uCEFv8Accessor in '..\source\uCEFv8Accessor.pas',
uCEFLoadHandler in '..\source\uCEFLoadHandler.pas',
uCEFFocusHandler in '..\source\uCEFFocusHandler.pas',
uCEFContextMenuHandler in '..\source\uCEFContextMenuHandler.pas',
uCEFDialogHandler in '..\source\uCEFDialogHandler.pas',
uCEFKeyboardHandler in '..\source\uCEFKeyboardHandler.pas',
uCEFDisplayHandler in '..\source\uCEFDisplayHandler.pas',
uCEFDownloadHandler in '..\source\uCEFDownloadHandler.pas',
uCEFGeolocationHandler in '..\source\uCEFGeolocationHandler.pas',
uCEFJsDialogHandler in '..\source\uCEFJsDialogHandler.pas',
uCEFLifeSpanHandler in '..\source\uCEFLifeSpanHandler.pas',
uCEFRequestHandler in '..\source\uCEFRequestHandler.pas',
uCEFRenderHandler in '..\source\uCEFRenderHandler.pas',
uCEFDragHandler in '..\source\uCEFDragHandler.pas',
uCEFPostData in '..\source\uCEFPostData.pas',
uCEFPostDataElement in '..\source\uCEFPostDataElement.pas',
uCEFRequest in '..\source\uCEFRequest.pas',
uCEFStreamReader in '..\source\uCEFStreamReader.pas',
uCEFWriteHandler in '..\source\uCEFWriteHandler.pas',
uCEFStreamWriter in '..\source\uCEFStreamWriter.pas',
uCEFv8StackFrame in '..\source\uCEFv8StackFrame.pas',
uCEFv8StackTrace in '..\source\uCEFv8StackTrace.pas',
uCEFv8Handler in '..\source\uCEFv8Handler.pas',
uCEFRequestCallback in '..\source\uCEFRequestCallback.pas',
uCEFCustomStreamReader in '..\source\uCEFCustomStreamReader.pas',
uCEFCallback in '..\source\uCEFCallback.pas',
uCEFResourceHandler in '..\source\uCEFResourceHandler.pas',
uCEFSchemeHandlerFactory in '..\source\uCEFSchemeHandlerFactory.pas',
uCEFTask in '..\source\uCEFTask.pas',
uCEFTaskRunner in '..\source\uCEFTaskRunner.pas',
uCEFStringMap in '..\source\uCEFStringMap.pas',
uCEFStringMultimap in '..\source\uCEFStringMultimap.pas',
uCEFXmlReader in '..\source\uCEFXmlReader.pas',
uCEFZipReader in '..\source\uCEFZipReader.pas',
uCEFResponse in '..\source\uCEFResponse.pas',
uCEFCookieVisitor in '..\source\uCEFCookieVisitor.pas',
uCEFV8Exception in '..\source\uCEFV8Exception.pas',
uCEFResourceBundleHandler in '..\source\uCEFResourceBundleHandler.pas',
uCEFSetCookieCallback in '..\source\uCEFSetCookieCallback.pas',
uCEFDeleteCookiesCallback in '..\source\uCEFDeleteCookiesCallback.pas',
uCEFDownLoadItem in '..\source\uCEFDownLoadItem.pas',
uCEFBeforeDownloadCallback in '..\source\uCEFBeforeDownloadCallback.pas',
uCEFDownloadItemCallback in '..\source\uCEFDownloadItemCallback.pas',
uCEFAuthCallback in '..\source\uCEFAuthCallback.pas',
uCEFJsDialogCallback in '..\source\uCEFJsDialogCallback.pas',
uCEFGeolocationCallback in '..\source\uCEFGeolocationCallback.pas',
uCEFContextMenuParams in '..\source\uCEFContextMenuParams.pas',
uCEFMenuModel in '..\source\uCEFMenuModel.pas',
uCEFBrowserProcessHandler in '..\source\uCEFBrowserProcessHandler.pas',
uCEFRenderProcessHandler in '..\source\uCEFRenderProcessHandler.pas',
uCEFUrlrequestClient in '..\source\uCEFUrlrequestClient.pas',
uCEFUrlRequest in '..\source\uCEFUrlRequest.pas',
uCEFWebPluginInfoVisitor in '..\source\uCEFWebPluginInfoVisitor.pas',
uCEFWebPluginUnstableCallback in '..\source\uCEFWebPluginUnstableCallback.pas',
uCEFEndTracingCallback in '..\source\uCEFEndTracingCallback.pas',
uCEFGetGeolocationCallback in '..\source\uCEFGetGeolocationCallback.pas',
uCEFFileDialogCallback in '..\source\uCEFFileDialogCallback.pas',
uCEFDragData in '..\source\uCEFDragData.pas',
uCEFResolveCallback in '..\source\uCEFResolveCallback.pas',
uCEFPrintSettings in '..\source\uCEFPrintSettings.pas',
uCEFSslInfo in '..\source\uCEFSslInfo.pas',
uCEFRunContextMenuCallback in '..\source\uCEFRunContextMenuCallback.pas',
uCEFResourceBundle in '..\source\uCEFResourceBundle.pas',
uCEFResponseFilter in '..\source\uCEFResponseFilter.pas',
uCEFImage in '..\source\uCEFImage.pas',
uCEFMenuModelDelegate in '..\source\uCEFMenuModelDelegate.pas',
uCEFv8Types in '..\source\uCEFv8Types.pas',
uCEFWindowParent in '..\source\uCEFWindowParent.pas',
uCEFChromium in '..\source\uCEFChromium.pas',
uCEFChromiumEvents in '..\source\uCEFChromiumEvents.pas',
uCEFChromiumOptions in '..\source\uCEFChromiumOptions.pas',
uCEFChromiumFontOptions in '..\source\uCEFChromiumFontOptions.pas',
uCEFPDFPrintOptions in '..\source\uCEFPDFPrintOptions.pas',
uCEFRegisterCDMCallback in '..\source\uCEFRegisterCDMCallback.pas',
uCEFThread in '..\source\uCEFThread.pas',
uCEFv8Interceptor in '..\source\uCEFv8Interceptor.pas',
uCEFWaitableEvent in '..\source\uCEFWaitableEvent.pas',
uCEFX509CertPrincipal in '..\source\uCEFX509CertPrincipal.pas',
uCEFX509Certificate in '..\source\uCEFX509Certificate.pas',
uCEFSSLStatus in '..\source\uCEFSSLStatus.pas',
uCEFSelectClientCertificateCallback in '..\source\uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in '..\source\uCEFChromiumWindow.pas',
uCEFBaseRefCounted in '..\source\uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in '..\source\uCEFBaseScopedWrapper.pas',
uCEFDragAndDropMgr in '..\source\uCEFDragAndDropMgr.pas',
uOLEDragAndDrop in '..\source\uOLEDragAndDrop.pas',
uCEFGetExtensionResourceCallback in '..\source\uCEFGetExtensionResourceCallback.pas',
uCEFExtension in '..\source\uCEFExtension.pas',
uCEFExtensionHandler in '..\source\uCEFExtensionHandler.pas',
uBufferPanel in '..\source\uBufferPanel.pas',
uCEFApp in '..\source\uCEFApp.pas',
uCEFWorkScheduler in '..\source\uCEFWorkScheduler.pas',
uCEFWorkSchedulerThread in '..\source\uCEFWorkSchedulerThread.pas',
uCEFServer in '..\source\uCEFServer.pas',
uCEFServerHandler in '..\source\uCEFServerHandler.pas',
uCEFServerEvents in '..\source\uCEFServerEvents.pas',
uCEFServerComponent in '..\source\uCEFServerComponent.pas';
end.

0
source/CEF4Delphi_D7.skincfg → packages/CEF4Delphi_D7.skincfg
View File

60
packages/CEF4Delphi_D7_Register.pas Normal file
View File

@ -0,0 +1,60 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit CEF4Delphi_D7_Register;
{$R chromium.dcr}
{$I cef.inc}
interface
procedure Register;
implementation
uses
Classes,
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uBufferPanel, uCEFWorkScheduler, uCEFServerComponent;
procedure Register;
begin
RegisterComponents('Chromium', [TChromium, TCEFWindowParent, TChromiumWindow, TBufferPanel,
TCEFWorkScheduler, TCEFServerComponent]);
end;
end.

174
packages/CEF4Delphi_FMX.dpk Normal file
View File

@ -0,0 +1,174 @@
package CEF4Delphi_FMX;
{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'CEF4Delphi'}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl,
fmx;
contains
CEF4Delphi_FMX_Register in 'CEF4Delphi_FMX_Register.pas',
uCEFFindHandler in '..\source\uCEFFindHandler.pas',
uCEFConstants in '..\source\uCEFConstants.pas',
uCEFTypes in '..\source\uCEFTypes.pas',
uCEFInterfaces in '..\source\uCEFInterfaces.pas',
uCEFMiscFunctions in '..\source\uCEFMiscFunctions.pas',
uCEFLibFunctions in '..\source\uCEFLibFunctions.pas',
uCEFApplication in '..\source\uCEFApplication.pas',
uCEFSchemeRegistrar in '..\source\uCEFSchemeRegistrar.pas',
uCEFCommandLine in '..\source\uCEFCommandLine.pas',
uCEFClient in '..\source\uCEFClient.pas',
uCEFProcessMessage in '..\source\uCEFProcessMessage.pas',
uCEFBrowser in '..\source\uCEFBrowser.pas',
uCEFListValue in '..\source\uCEFListValue.pas',
uCEFBinaryValue in '..\source\uCEFBinaryValue.pas',
uCEFValue in '..\source\uCEFValue.pas',
uCEFDictionaryValue in '..\source\uCEFDictionaryValue.pas',
uCEFDownloadImageCallBack in '..\source\uCEFDownloadImageCallBack.pas',
uCEFFrame in '..\source\uCEFFrame.pas',
uCEFPDFPrintCallback in '..\source\uCEFPDFPrintCallback.pas',
uCEFRunFileDialogCallback in '..\source\uCEFRunFileDialogCallback.pas',
uCEFRequestContext in '..\source\uCEFRequestContext.pas',
uCEFNavigationEntryVisitor in '..\source\uCEFNavigationEntryVisitor.pas',
uCEFStringVisitor in '..\source\uCEFStringVisitor.pas',
uCEFv8Context in '..\source\uCEFv8Context.pas',
uCEFDomVisitor in '..\source\uCEFDomVisitor.pas',
uCEFNavigationEntry in '..\source\uCEFNavigationEntry.pas',
uCEFCookieManager in '..\source\uCEFCookieManager.pas',
uCEFCompletionCallback in '..\source\uCEFCompletionCallback.pas',
uCEFRequestContextHandler in '..\source\uCEFRequestContextHandler.pas',
uCEFWebPluginInfo in '..\source\uCEFWebPluginInfo.pas',
uCEFDomDocument in '..\source\uCEFDomDocument.pas',
uCEFDomNode in '..\source\uCEFDomNode.pas',
uCEFv8Value in '..\source\uCEFv8Value.pas',
uCEFv8Accessor in '..\source\uCEFv8Accessor.pas',
uCEFLoadHandler in '..\source\uCEFLoadHandler.pas',
uCEFFocusHandler in '..\source\uCEFFocusHandler.pas',
uCEFContextMenuHandler in '..\source\uCEFContextMenuHandler.pas',
uCEFDialogHandler in '..\source\uCEFDialogHandler.pas',
uCEFKeyboardHandler in '..\source\uCEFKeyboardHandler.pas',
uCEFDisplayHandler in '..\source\uCEFDisplayHandler.pas',
uCEFDownloadHandler in '..\source\uCEFDownloadHandler.pas',
uCEFGeolocationHandler in '..\source\uCEFGeolocationHandler.pas',
uCEFJsDialogHandler in '..\source\uCEFJsDialogHandler.pas',
uCEFLifeSpanHandler in '..\source\uCEFLifeSpanHandler.pas',
uCEFRequestHandler in '..\source\uCEFRequestHandler.pas',
uCEFRenderHandler in '..\source\uCEFRenderHandler.pas',
uCEFDragHandler in '..\source\uCEFDragHandler.pas',
uCEFPostData in '..\source\uCEFPostData.pas',
uCEFPostDataElement in '..\source\uCEFPostDataElement.pas',
uCEFRequest in '..\source\uCEFRequest.pas',
uCEFStreamReader in '..\source\uCEFStreamReader.pas',
uCEFWriteHandler in '..\source\uCEFWriteHandler.pas',
uCEFStreamWriter in '..\source\uCEFStreamWriter.pas',
uCEFv8StackFrame in '..\source\uCEFv8StackFrame.pas',
uCEFv8StackTrace in '..\source\uCEFv8StackTrace.pas',
uCEFv8Handler in '..\source\uCEFv8Handler.pas',
uCEFRequestCallback in '..\source\uCEFRequestCallback.pas',
uCEFCustomStreamReader in '..\source\uCEFCustomStreamReader.pas',
uCEFCallback in '..\source\uCEFCallback.pas',
uCEFResourceHandler in '..\source\uCEFResourceHandler.pas',
uCEFSchemeHandlerFactory in '..\source\uCEFSchemeHandlerFactory.pas',
uCEFTask in '..\source\uCEFTask.pas',
uCEFTaskRunner in '..\source\uCEFTaskRunner.pas',
uCEFStringMap in '..\source\uCEFStringMap.pas',
uCEFStringMultimap in '..\source\uCEFStringMultimap.pas',
uCEFXmlReader in '..\source\uCEFXmlReader.pas',
uCEFZipReader in '..\source\uCEFZipReader.pas',
uCEFResponse in '..\source\uCEFResponse.pas',
uCEFCookieVisitor in '..\source\uCEFCookieVisitor.pas',
uCEFV8Exception in '..\source\uCEFV8Exception.pas',
uCEFResourceBundleHandler in '..\source\uCEFResourceBundleHandler.pas',
uCEFSetCookieCallback in '..\source\uCEFSetCookieCallback.pas',
uCEFDeleteCookiesCallback in '..\source\uCEFDeleteCookiesCallback.pas',
uCEFDownLoadItem in '..\source\uCEFDownLoadItem.pas',
uCEFBeforeDownloadCallback in '..\source\uCEFBeforeDownloadCallback.pas',
uCEFDownloadItemCallback in '..\source\uCEFDownloadItemCallback.pas',
uCEFAuthCallback in '..\source\uCEFAuthCallback.pas',
uCEFJsDialogCallback in '..\source\uCEFJsDialogCallback.pas',
uCEFGeolocationCallback in '..\source\uCEFGeolocationCallback.pas',
uCEFContextMenuParams in '..\source\uCEFContextMenuParams.pas',
uCEFMenuModel in '..\source\uCEFMenuModel.pas',
uCEFBrowserProcessHandler in '..\source\uCEFBrowserProcessHandler.pas',
uCEFRenderProcessHandler in '..\source\uCEFRenderProcessHandler.pas',
uCEFUrlrequestClient in '..\source\uCEFUrlrequestClient.pas',
uCEFUrlRequest in '..\source\uCEFUrlRequest.pas',
uCEFWebPluginInfoVisitor in '..\source\uCEFWebPluginInfoVisitor.pas',
uCEFWebPluginUnstableCallback in '..\source\uCEFWebPluginUnstableCallback.pas',
uCEFEndTracingCallback in '..\source\uCEFEndTracingCallback.pas',
uCEFGetGeolocationCallback in '..\source\uCEFGetGeolocationCallback.pas',
uCEFFileDialogCallback in '..\source\uCEFFileDialogCallback.pas',
uCEFDragData in '..\source\uCEFDragData.pas',
uCEFResolveCallback in '..\source\uCEFResolveCallback.pas',
uCEFPrintSettings in '..\source\uCEFPrintSettings.pas',
uCEFSslInfo in '..\source\uCEFSslInfo.pas',
uCEFRunContextMenuCallback in '..\source\uCEFRunContextMenuCallback.pas',
uCEFResourceBundle in '..\source\uCEFResourceBundle.pas',
uCEFResponseFilter in '..\source\uCEFResponseFilter.pas',
uCEFImage in '..\source\uCEFImage.pas',
uCEFMenuModelDelegate in '..\source\uCEFMenuModelDelegate.pas',
uCEFv8Types in '..\source\uCEFv8Types.pas',
uCEFWindowParent in '..\source\uCEFWindowParent.pas',
uCEFChromium in '..\source\uCEFChromium.pas',
uCEFChromiumEvents in '..\source\uCEFChromiumEvents.pas',
uCEFChromiumOptions in '..\source\uCEFChromiumOptions.pas',
uCEFChromiumFontOptions in '..\source\uCEFChromiumFontOptions.pas',
uCEFPDFPrintOptions in '..\source\uCEFPDFPrintOptions.pas',
uCEFRegisterCDMCallback in '..\source\uCEFRegisterCDMCallback.pas',
uCEFThread in '..\source\uCEFThread.pas',
uCEFv8Interceptor in '..\source\uCEFv8Interceptor.pas',
uCEFWaitableEvent in '..\source\uCEFWaitableEvent.pas',
uCEFX509CertPrincipal in '..\source\uCEFX509CertPrincipal.pas',
uCEFX509Certificate in '..\source\uCEFX509Certificate.pas',
uCEFSSLStatus in '..\source\uCEFSSLStatus.pas',
uCEFSelectClientCertificateCallback in '..\source\uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in '..\source\uCEFChromiumWindow.pas',
uCEFBaseRefCounted in '..\source\uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in '..\source\uCEFBaseScopedWrapper.pas',
uCEFAccessibilityHandler in '..\source\uCEFAccessibilityHandler.pas',
uOLEDragAndDrop in '..\source\uOLEDragAndDrop.pas',
uCEFDragAndDropMgr in '..\source\uCEFDragAndDropMgr.pas',
uCEFGetExtensionResourceCallback in '..\source\uCEFGetExtensionResourceCallback.pas',
uCEFExtension in '..\source\uCEFExtension.pas',
uCEFExtensionHandler in '..\source\uCEFExtensionHandler.pas',
uBufferPanel in '..\source\uBufferPanel.pas',
uCEFApp in '..\source\uCEFApp.pas',
uCEFWorkScheduler in '..\source\uCEFWorkScheduler.pas',
uCEFWorkSchedulerThread in '..\source\uCEFWorkSchedulerThread.pas',
uCEFServer in '..\source\uCEFServer.pas',
uCEFServerHandler in '..\source\uCEFServerHandler.pas',
uCEFServerEvents in '..\source\uCEFServerEvents.pas',
uCEFServerComponent in '..\source\uCEFServerComponent.pas',
uFMXBufferPanel in '..\source\uFMXBufferPanel.pas',
uFMXChromium in '..\source\uFMXChromium.pas',
uFMXWorkScheduler in '..\source\uFMXWorkScheduler.pas';
end.

672
packages/CEF4Delphi_FMX.dproj Normal file
View File

@ -0,0 +1,672 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{2F51F1BD-0529-4B4A-BFD2-86FE96910A62}</ProjectGuid>
<MainSource>CEF4Delphi_FMX.dpk</MainSource>
<ProjectVersion>18.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Package</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug with optimization' or '$(Cfg_3)'!=''">
<Cfg_3>true</Cfg_3>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_3)'=='true') or '$(Cfg_3_Win32)'!=''">
<Cfg_3_Win32>true</Cfg_3_Win32>
<CfgParent>Cfg_3</CfgParent>
<Cfg_3>true</Cfg_3>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
<GenPackage>true</GenPackage>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<SanitizedProjectName>CEF4Delphi_FMX</SanitizedProjectName>
<GenDll>true</GenDll>
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>rtl;vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>rtl;vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=CEF4Delphi;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=CEF4Delphi;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName)</VerInfo_Keys>
<DCC_Description>CEF4Delphi</DCC_Description>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DCC_RemoteDebug>false</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_3_Win32)'!=''">
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="rtl.dcp"/>
<DCCReference Include="vcl.dcp"/>
<DCCReference Include="fmx.dcp"/>
<DCCReference Include="CEF4Delphi_FMX_Register.pas"/>
<DCCReference Include="..\source\uCEFFindHandler.pas"/>
<DCCReference Include="..\source\uCEFConstants.pas"/>
<DCCReference Include="..\source\uCEFTypes.pas"/>
<DCCReference Include="..\source\uCEFInterfaces.pas"/>
<DCCReference Include="..\source\uCEFMiscFunctions.pas"/>
<DCCReference Include="..\source\uCEFLibFunctions.pas"/>
<DCCReference Include="..\source\uCEFApplication.pas"/>
<DCCReference Include="..\source\uCEFSchemeRegistrar.pas"/>
<DCCReference Include="..\source\uCEFCommandLine.pas"/>
<DCCReference Include="..\source\uCEFClient.pas"/>
<DCCReference Include="..\source\uCEFProcessMessage.pas"/>
<DCCReference Include="..\source\uCEFBrowser.pas"/>
<DCCReference Include="..\source\uCEFListValue.pas"/>
<DCCReference Include="..\source\uCEFBinaryValue.pas"/>
<DCCReference Include="..\source\uCEFValue.pas"/>
<DCCReference Include="..\source\uCEFDictionaryValue.pas"/>
<DCCReference Include="..\source\uCEFDownloadImageCallBack.pas"/>
<DCCReference Include="..\source\uCEFFrame.pas"/>
<DCCReference Include="..\source\uCEFPDFPrintCallback.pas"/>
<DCCReference Include="..\source\uCEFRunFileDialogCallback.pas"/>
<DCCReference Include="..\source\uCEFRequestContext.pas"/>
<DCCReference Include="..\source\uCEFNavigationEntryVisitor.pas"/>
<DCCReference Include="..\source\uCEFStringVisitor.pas"/>
<DCCReference Include="..\source\uCEFv8Context.pas"/>
<DCCReference Include="..\source\uCEFDomVisitor.pas"/>
<DCCReference Include="..\source\uCEFNavigationEntry.pas"/>
<DCCReference Include="..\source\uCEFCookieManager.pas"/>
<DCCReference Include="..\source\uCEFCompletionCallback.pas"/>
<DCCReference Include="..\source\uCEFRequestContextHandler.pas"/>
<DCCReference Include="..\source\uCEFWebPluginInfo.pas"/>
<DCCReference Include="..\source\uCEFDomDocument.pas"/>
<DCCReference Include="..\source\uCEFDomNode.pas"/>
<DCCReference Include="..\source\uCEFv8Value.pas"/>
<DCCReference Include="..\source\uCEFv8Accessor.pas"/>
<DCCReference Include="..\source\uCEFLoadHandler.pas"/>
<DCCReference Include="..\source\uCEFFocusHandler.pas"/>
<DCCReference Include="..\source\uCEFContextMenuHandler.pas"/>
<DCCReference Include="..\source\uCEFDialogHandler.pas"/>
<DCCReference Include="..\source\uCEFKeyboardHandler.pas"/>
<DCCReference Include="..\source\uCEFDisplayHandler.pas"/>
<DCCReference Include="..\source\uCEFDownloadHandler.pas"/>
<DCCReference Include="..\source\uCEFGeolocationHandler.pas"/>
<DCCReference Include="..\source\uCEFJsDialogHandler.pas"/>
<DCCReference Include="..\source\uCEFLifeSpanHandler.pas"/>
<DCCReference Include="..\source\uCEFRequestHandler.pas"/>
<DCCReference Include="..\source\uCEFRenderHandler.pas"/>
<DCCReference Include="..\source\uCEFDragHandler.pas"/>
<DCCReference Include="..\source\uCEFPostData.pas"/>
<DCCReference Include="..\source\uCEFPostDataElement.pas"/>
<DCCReference Include="..\source\uCEFRequest.pas"/>
<DCCReference Include="..\source\uCEFStreamReader.pas"/>
<DCCReference Include="..\source\uCEFWriteHandler.pas"/>
<DCCReference Include="..\source\uCEFStreamWriter.pas"/>
<DCCReference Include="..\source\uCEFv8StackFrame.pas"/>
<DCCReference Include="..\source\uCEFv8StackTrace.pas"/>
<DCCReference Include="..\source\uCEFv8Handler.pas"/>
<DCCReference Include="..\source\uCEFRequestCallback.pas"/>
<DCCReference Include="..\source\uCEFCustomStreamReader.pas"/>
<DCCReference Include="..\source\uCEFCallback.pas"/>
<DCCReference Include="..\source\uCEFResourceHandler.pas"/>
<DCCReference Include="..\source\uCEFSchemeHandlerFactory.pas"/>
<DCCReference Include="..\source\uCEFTask.pas"/>
<DCCReference Include="..\source\uCEFTaskRunner.pas"/>
<DCCReference Include="..\source\uCEFStringMap.pas"/>
<DCCReference Include="..\source\uCEFStringMultimap.pas"/>
<DCCReference Include="..\source\uCEFXmlReader.pas"/>
<DCCReference Include="..\source\uCEFZipReader.pas"/>
<DCCReference Include="..\source\uCEFResponse.pas"/>
<DCCReference Include="..\source\uCEFCookieVisitor.pas"/>
<DCCReference Include="..\source\uCEFV8Exception.pas"/>
<DCCReference Include="..\source\uCEFResourceBundleHandler.pas"/>
<DCCReference Include="..\source\uCEFSetCookieCallback.pas"/>
<DCCReference Include="..\source\uCEFDeleteCookiesCallback.pas"/>
<DCCReference Include="..\source\uCEFDownLoadItem.pas"/>
<DCCReference Include="..\source\uCEFBeforeDownloadCallback.pas"/>
<DCCReference Include="..\source\uCEFDownloadItemCallback.pas"/>
<DCCReference Include="..\source\uCEFAuthCallback.pas"/>
<DCCReference Include="..\source\uCEFJsDialogCallback.pas"/>
<DCCReference Include="..\source\uCEFGeolocationCallback.pas"/>
<DCCReference Include="..\source\uCEFContextMenuParams.pas"/>
<DCCReference Include="..\source\uCEFMenuModel.pas"/>
<DCCReference Include="..\source\uCEFBrowserProcessHandler.pas"/>
<DCCReference Include="..\source\uCEFRenderProcessHandler.pas"/>
<DCCReference Include="..\source\uCEFUrlrequestClient.pas"/>
<DCCReference Include="..\source\uCEFUrlRequest.pas"/>
<DCCReference Include="..\source\uCEFWebPluginInfoVisitor.pas"/>
<DCCReference Include="..\source\uCEFWebPluginUnstableCallback.pas"/>
<DCCReference Include="..\source\uCEFEndTracingCallback.pas"/>
<DCCReference Include="..\source\uCEFGetGeolocationCallback.pas"/>
<DCCReference Include="..\source\uCEFFileDialogCallback.pas"/>
<DCCReference Include="..\source\uCEFDragData.pas"/>
<DCCReference Include="..\source\uCEFResolveCallback.pas"/>
<DCCReference Include="..\source\uCEFPrintSettings.pas"/>
<DCCReference Include="..\source\uCEFSslInfo.pas"/>
<DCCReference Include="..\source\uCEFRunContextMenuCallback.pas"/>
<DCCReference Include="..\source\uCEFResourceBundle.pas"/>
<DCCReference Include="..\source\uCEFResponseFilter.pas"/>
<DCCReference Include="..\source\uCEFImage.pas"/>
<DCCReference Include="..\source\uCEFMenuModelDelegate.pas"/>
<DCCReference Include="..\source\uCEFv8Types.pas"/>
<DCCReference Include="..\source\uCEFWindowParent.pas"/>
<DCCReference Include="..\source\uCEFChromium.pas"/>
<DCCReference Include="..\source\uCEFChromiumEvents.pas"/>
<DCCReference Include="..\source\uCEFChromiumOptions.pas"/>
<DCCReference Include="..\source\uCEFChromiumFontOptions.pas"/>
<DCCReference Include="..\source\uCEFPDFPrintOptions.pas"/>
<DCCReference Include="..\source\uCEFRegisterCDMCallback.pas"/>
<DCCReference Include="..\source\uCEFThread.pas"/>
<DCCReference Include="..\source\uCEFv8Interceptor.pas"/>
<DCCReference Include="..\source\uCEFWaitableEvent.pas"/>
<DCCReference Include="..\source\uCEFX509CertPrincipal.pas"/>
<DCCReference Include="..\source\uCEFX509Certificate.pas"/>
<DCCReference Include="..\source\uCEFSSLStatus.pas"/>
<DCCReference Include="..\source\uCEFSelectClientCertificateCallback.pas"/>
<DCCReference Include="..\source\uCEFChromiumWindow.pas"/>
<DCCReference Include="..\source\uCEFBaseRefCounted.pas"/>
<DCCReference Include="..\source\uCEFBaseScopedWrapper.pas"/>
<DCCReference Include="..\source\uCEFAccessibilityHandler.pas"/>
<DCCReference Include="..\source\uOLEDragAndDrop.pas"/>
<DCCReference Include="..\source\uCEFDragAndDropMgr.pas"/>
<DCCReference Include="..\source\uCEFGetExtensionResourceCallback.pas"/>
<DCCReference Include="..\source\uCEFExtension.pas"/>
<DCCReference Include="..\source\uCEFExtensionHandler.pas"/>
<DCCReference Include="..\source\uBufferPanel.pas"/>
<DCCReference Include="..\source\uCEFApp.pas"/>
<DCCReference Include="..\source\uCEFWorkScheduler.pas"/>
<DCCReference Include="..\source\uCEFWorkSchedulerThread.pas"/>
<DCCReference Include="..\source\uCEFServer.pas"/>
<DCCReference Include="..\source\uCEFServerHandler.pas"/>
<DCCReference Include="..\source\uCEFServerEvents.pas"/>
<DCCReference Include="..\source\uCEFServerComponent.pas"/>
<DCCReference Include="..\source\uFMXBufferPanel.pas"/>
<DCCReference Include="..\source\uFMXChromium.pas"/>
<DCCReference Include="..\source\uFMXWorkScheduler.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug with optimization">
<Key>Cfg_3</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">CEF4Delphi_FMX.dpk</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclIPIndyImpl250.bpl">IP Abstraction Indy Implementation Design Time</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule"/>
<DeployFile LocalName="..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\17.0\Bpl\CEF4Delphi.bpl" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule"/>
<DeployFile LocalName="..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\19.0\Bpl\CEF4Delphi.bpl" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>CEF4Delphi.bpl</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule"/>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1024">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1536">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch768">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch320">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640x1136">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
<DeployClass Name="ProjectiOSEntitlements"/>
<DeployClass Name="ProjectiOSInfoPList"/>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements"/>
<DeployClass Name="ProjectOSXInfoPList"/>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

BIN
packages/CEF4Delphi_FMX.res Normal file
View File

Binary file not shown.

62
packages/CEF4Delphi_FMX_Register.pas Normal file
View File

@ -0,0 +1,62 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit CEF4Delphi_FMX_Register;
{$R chromium.dcr}
{$I cef.inc}
interface
procedure Register;
implementation
uses
System.Classes,
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uBufferPanel, uCEFWorkScheduler,
uFMXBufferPanel, uFMXChromium, uFMXWorkScheduler, uCEFServerComponent;
procedure Register;
begin
RegisterComponents('Chromium', [TChromium, TCEFWindowParent, TChromiumWindow, TBufferPanel,
TFMXBufferPanel, TFMXChromium, TFMXWorkScheduler,
TCEFWorkScheduler, TCEFServerComponent]);
end;
end.

2
source/uCEFRegisterComponents.pas → packages/CEF4Delphi_Register.pas
View File

@ -35,7 +35,7 @@
* *
*) *)
unit uCEFRegisterComponents; unit CEF4Delphi_Register;
{$R chromium.dcr} {$R chromium.dcr}

BIN
packages/bufferpanel.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

384
packages/cef.inc Normal file
View File

@ -0,0 +1,384 @@
// ************************************************************************
// ***************************** 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 © 2017 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.
*
*)
// The complete list of compiler versions is here :
// http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions
{$DEFINE DELPHI_VERSION_UNKNOW}
{$IFDEF FPC}
{$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}
// Delphi 5
{$IFDEF VER130}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$ENDIF}
// Delphi 6
{$IFDEF VER140}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$ENDIF}
// Delphi 7
{$IFDEF VER150}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$ENDIF}
// Delphi 8
{$IFDEF VER160}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$ENDIF}
// Delphi 2005
{$IFDEF VER170}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$ENDIF}
{$IFDEF VER180}
{$UNDEF DELPHI_VERSION_UNKNOW}
// Delphi 2007
{$IFDEF VER185}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
// Delphi 2006
{$ELSE}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$ENDIF}
{$ENDIF}
// Delphi 2009
{$IFDEF VER200}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$ENDIF}
//Delphi 2010
{$IFDEF VER210}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$ENDIF}
// Delphi XE
{$IFDEF VER220}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$ENDIF}
// Delphi XE2
{$IFDEF VER230}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$ENDIF}
// Delphi XE3
{$IFDEF VER240}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$ENDIF}
// Delphi XE4
{$IFDEF VER250}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$ENDIF}
// Delphi XE5
{$IFDEF VER260}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$ENDIF}
// Delphi XE6
{$IFDEF VER270}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$ENDIF}
// Delphi XE7
{$IFDEF VER280}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$ENDIF}
// Delphi XE8
{$IFDEF VER290}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$ENDIF VER290}
// Rad Studio 10 - Delphi Seattle
{$IFDEF VER300}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$ENDIF}
// Rad Studio 10.1 - Delphi Berlin
{$IFDEF VER310}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$ENDIF}
// Rad Studio 10.2 - Delphi Tokyo
{$IFDEF VER320}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI9_UP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}

0
source/chromium.bmp → packages/chromium.bmp
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.7 KiB

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
packages/chromium.dcr Normal file
View File

Binary file not shown.

9
packages/chromium.rc Normal file
View File

@ -0,0 +1,9 @@
TChromium BITMAP "chromium.bmp"
TFMXChromium BITMAP "chromium.bmp"
TCEFWindowParent BITMAP "windowparent.bmp"
TChromiumWindow BITMAP "chromiumwindow.bmp"
TBufferPanel BITMAP "bufferpanel.bmp"
TFMXBufferPanel BITMAP "bufferpanel.bmp"
TCEFWorkScheduler BITMAP "workscheduler.bmp"
TFMXWorkScheduler BITMAP "workscheduler.bmp"
TCEFServerComponent BITMAP "server.bmp"

BIN
packages/chromiumwindow.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

0
source/dcu/placeholder.txt → packages/dcu/placeholder.txt
View File

BIN
packages/server.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
packages/windowparent.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
packages/workscheduler.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

169
source/CEF4Delphi.dpk
View File

@ -1,169 +0,0 @@
package CEF4Delphi;
{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'CEF4Delphi'}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl;
contains
uCEFRegisterComponents in 'uCEFRegisterComponents.pas',
uCEFFindHandler in 'uCEFFindHandler.pas',
uCEFConstants in 'uCEFConstants.pas',
uCEFTypes in 'uCEFTypes.pas',
uCEFInterfaces in 'uCEFInterfaces.pas',
uCEFMiscFunctions in 'uCEFMiscFunctions.pas',
uCEFLibFunctions in 'uCEFLibFunctions.pas',
uCEFApplication in 'uCEFApplication.pas',
uCEFSchemeRegistrar in 'uCEFSchemeRegistrar.pas',
uCEFCommandLine in 'uCEFCommandLine.pas',
uCEFClient in 'uCEFClient.pas',
uCEFProcessMessage in 'uCEFProcessMessage.pas',
uCEFBrowser in 'uCEFBrowser.pas',
uCEFListValue in 'uCEFListValue.pas',
uCEFBinaryValue in 'uCEFBinaryValue.pas',
uCEFValue in 'uCEFValue.pas',
uCEFDictionaryValue in 'uCEFDictionaryValue.pas',
uCEFDownloadImageCallBack in 'uCEFDownloadImageCallBack.pas',
uCEFFrame in 'uCEFFrame.pas',
uCEFPDFPrintCallback in 'uCEFPDFPrintCallback.pas',
uCEFRunFileDialogCallback in 'uCEFRunFileDialogCallback.pas',
uCEFRequestContext in 'uCEFRequestContext.pas',
uCEFNavigationEntryVisitor in 'uCEFNavigationEntryVisitor.pas',
uCEFStringVisitor in 'uCEFStringVisitor.pas',
uCEFv8Context in 'uCEFv8Context.pas',
uCEFDomVisitor in 'uCEFDomVisitor.pas',
uCEFNavigationEntry in 'uCEFNavigationEntry.pas',
uCEFCookieManager in 'uCEFCookieManager.pas',
uCEFCompletionCallback in 'uCEFCompletionCallback.pas',
uCEFRequestContextHandler in 'uCEFRequestContextHandler.pas',
uCEFWebPluginInfo in 'uCEFWebPluginInfo.pas',
uCEFDomDocument in 'uCEFDomDocument.pas',
uCEFDomNode in 'uCEFDomNode.pas',
uCEFv8Value in 'uCEFv8Value.pas',
uCEFv8Accessor in 'uCEFv8Accessor.pas',
uCEFLoadHandler in 'uCEFLoadHandler.pas',
uCEFFocusHandler in 'uCEFFocusHandler.pas',
uCEFContextMenuHandler in 'uCEFContextMenuHandler.pas',
uCEFDialogHandler in 'uCEFDialogHandler.pas',
uCEFKeyboardHandler in 'uCEFKeyboardHandler.pas',
uCEFDisplayHandler in 'uCEFDisplayHandler.pas',
uCEFDownloadHandler in 'uCEFDownloadHandler.pas',
uCEFGeolocationHandler in 'uCEFGeolocationHandler.pas',
uCEFJsDialogHandler in 'uCEFJsDialogHandler.pas',
uCEFLifeSpanHandler in 'uCEFLifeSpanHandler.pas',
uCEFRequestHandler in 'uCEFRequestHandler.pas',
uCEFRenderHandler in 'uCEFRenderHandler.pas',
uCEFDragHandler in 'uCEFDragHandler.pas',
uCEFPostData in 'uCEFPostData.pas',
uCEFPostDataElement in 'uCEFPostDataElement.pas',
uCEFRequest in 'uCEFRequest.pas',
uCEFStreamReader in 'uCEFStreamReader.pas',
uCEFWriteHandler in 'uCEFWriteHandler.pas',
uCEFStreamWriter in 'uCEFStreamWriter.pas',
uCEFv8StackFrame in 'uCEFv8StackFrame.pas',
uCEFv8StackTrace in 'uCEFv8StackTrace.pas',
uCEFv8Handler in 'uCEFv8Handler.pas',
uCEFRequestCallback in 'uCEFRequestCallback.pas',
uCEFCustomStreamReader in 'uCEFCustomStreamReader.pas',
uCEFCallback in 'uCEFCallback.pas',
uCEFResourceHandler in 'uCEFResourceHandler.pas',
uCEFSchemeHandlerFactory in 'uCEFSchemeHandlerFactory.pas',
uCEFTask in 'uCEFTask.pas',
uCEFTaskRunner in 'uCEFTaskRunner.pas',
uCEFStringMap in 'uCEFStringMap.pas',
uCEFStringMultimap in 'uCEFStringMultimap.pas',
uCEFXmlReader in 'uCEFXmlReader.pas',
uCEFZipReader in 'uCEFZipReader.pas',
uCEFResponse in 'uCEFResponse.pas',
uCEFCookieVisitor in 'uCEFCookieVisitor.pas',
uCEFV8Exception in 'uCEFV8Exception.pas',
uCEFResourceBundleHandler in 'uCEFResourceBundleHandler.pas',
uCEFSetCookieCallback in 'uCEFSetCookieCallback.pas',
uCEFDeleteCookiesCallback in 'uCEFDeleteCookiesCallback.pas',
uCEFDownLoadItem in 'uCEFDownLoadItem.pas',
uCEFBeforeDownloadCallback in 'uCEFBeforeDownloadCallback.pas',
uCEFDownloadItemCallback in 'uCEFDownloadItemCallback.pas',
uCEFAuthCallback in 'uCEFAuthCallback.pas',
uCEFJsDialogCallback in 'uCEFJsDialogCallback.pas',
uCEFGeolocationCallback in 'uCEFGeolocationCallback.pas',
uCEFContextMenuParams in 'uCEFContextMenuParams.pas',
uCEFMenuModel in 'uCEFMenuModel.pas',
uCEFBrowserProcessHandler in 'uCEFBrowserProcessHandler.pas',
uCEFRenderProcessHandler in 'uCEFRenderProcessHandler.pas',
uCEFUrlrequestClient in 'uCEFUrlrequestClient.pas',
uCEFUrlRequest in 'uCEFUrlRequest.pas',
uCEFWebPluginInfoVisitor in 'uCEFWebPluginInfoVisitor.pas',
uCEFWebPluginUnstableCallback in 'uCEFWebPluginUnstableCallback.pas',
uCEFEndTracingCallback in 'uCEFEndTracingCallback.pas',
uCEFGetGeolocationCallback in 'uCEFGetGeolocationCallback.pas',
uCEFFileDialogCallback in 'uCEFFileDialogCallback.pas',
uCEFDragData in 'uCEFDragData.pas',
uCEFResolveCallback in 'uCEFResolveCallback.pas',
uCEFPrintSettings in 'uCEFPrintSettings.pas',
uCEFSslInfo in 'uCEFSslInfo.pas',
uCEFRunContextMenuCallback in 'uCEFRunContextMenuCallback.pas',
uCEFResourceBundle in 'uCEFResourceBundle.pas',
uCEFResponseFilter in 'uCEFResponseFilter.pas',
uCEFImage in 'uCEFImage.pas',
uCEFMenuModelDelegate in 'uCEFMenuModelDelegate.pas',
uCEFv8Types in 'uCEFv8Types.pas',
uCEFWindowParent in 'uCEFWindowParent.pas',
uCEFChromium in 'uCEFChromium.pas',
uCEFChromiumEvents in 'uCEFChromiumEvents.pas',
uCEFChromiumOptions in 'uCEFChromiumOptions.pas',
uCEFChromiumFontOptions in 'uCEFChromiumFontOptions.pas',
uCEFPDFPrintOptions in 'uCEFPDFPrintOptions.pas',
uCEFRegisterCDMCallback in 'uCEFRegisterCDMCallback.pas',
uCEFThread in 'uCEFThread.pas',
uCEFv8Interceptor in 'uCEFv8Interceptor.pas',
uCEFWaitableEvent in 'uCEFWaitableEvent.pas',
uCEFX509CertPrincipal in 'uCEFX509CertPrincipal.pas',
uCEFX509Certificate in 'uCEFX509Certificate.pas',
uCEFSSLStatus in 'uCEFSSLStatus.pas',
uCEFSelectClientCertificateCallback in 'uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in 'uCEFChromiumWindow.pas',
uCEFBaseRefCounted in 'uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in 'uCEFBaseScopedWrapper.pas',
uCEFAccessibilityHandler in 'uCEFAccessibilityHandler.pas',
uOLEDragAndDrop in 'uOLEDragAndDrop.pas',
uCEFDragAndDropMgr in 'uCEFDragAndDropMgr.pas',
uCEFGetExtensionResourceCallback in 'uCEFGetExtensionResourceCallback.pas',
uCEFExtension in 'uCEFExtension.pas',
uCEFExtensionHandler in 'uCEFExtensionHandler.pas',
uBufferPanel in 'uBufferPanel.pas',
uCEFApp in 'uCEFApp.pas',
uCEFWorkScheduler in 'uCEFWorkScheduler.pas',
uCEFServer in 'uCEFServer.pas',
uCEFServerHandler in 'uCEFServerHandler.pas',
uCEFServerEvents in 'uCEFServerEvents.pas',
uCEFServerComponent in 'uCEFServerComponent.pas';
end.

165
source/CEF4Delphi_D7.dpk
View File

@ -1,165 +0,0 @@
package CEF4Delphi_D7;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'CEF4Delphi'}
{$IMPLICITBUILD OFF}
{$DEFINE DEBUG}
requires
rtl,
vcl;
contains
uCEFRegisterComponents in 'uCEFRegisterComponents.pas',
uCEFFindHandler in 'uCEFFindHandler.pas',
uCEFConstants in 'uCEFConstants.pas',
uCEFTypes in 'uCEFTypes.pas',
uCEFInterfaces in 'uCEFInterfaces.pas',
uCEFMiscFunctions in 'uCEFMiscFunctions.pas',
uCEFLibFunctions in 'uCEFLibFunctions.pas',
uCEFApplication in 'uCEFApplication.pas',
uCEFSchemeRegistrar in 'uCEFSchemeRegistrar.pas',
uCEFCommandLine in 'uCEFCommandLine.pas',
uCEFClient in 'uCEFClient.pas',
uCEFProcessMessage in 'uCEFProcessMessage.pas',
uCEFBrowser in 'uCEFBrowser.pas',
uCEFListValue in 'uCEFListValue.pas',
uCEFBinaryValue in 'uCEFBinaryValue.pas',
uCEFValue in 'uCEFValue.pas',
uCEFDictionaryValue in 'uCEFDictionaryValue.pas',
uCEFDownloadImageCallBack in 'uCEFDownloadImageCallBack.pas',
uCEFFrame in 'uCEFFrame.pas',
uCEFPDFPrintCallback in 'uCEFPDFPrintCallback.pas',
uCEFRunFileDialogCallback in 'uCEFRunFileDialogCallback.pas',
uCEFRequestContext in 'uCEFRequestContext.pas',
uCEFNavigationEntryVisitor in 'uCEFNavigationEntryVisitor.pas',
uCEFStringVisitor in 'uCEFStringVisitor.pas',
uCEFv8Context in 'uCEFv8Context.pas',
uCEFDomVisitor in 'uCEFDomVisitor.pas',
uCEFNavigationEntry in 'uCEFNavigationEntry.pas',
uCEFCookieManager in 'uCEFCookieManager.pas',
uCEFCompletionCallback in 'uCEFCompletionCallback.pas',
uCEFRequestContextHandler in 'uCEFRequestContextHandler.pas',
uCEFWebPluginInfo in 'uCEFWebPluginInfo.pas',
uCEFDomDocument in 'uCEFDomDocument.pas',
uCEFDomNode in 'uCEFDomNode.pas',
uCEFv8Value in 'uCEFv8Value.pas',
uCEFv8Accessor in 'uCEFv8Accessor.pas',
uCEFLoadHandler in 'uCEFLoadHandler.pas',
uCEFFocusHandler in 'uCEFFocusHandler.pas',
uCEFContextMenuHandler in 'uCEFContextMenuHandler.pas',
uCEFDialogHandler in 'uCEFDialogHandler.pas',
uCEFKeyboardHandler in 'uCEFKeyboardHandler.pas',
uCEFDisplayHandler in 'uCEFDisplayHandler.pas',
uCEFDownloadHandler in 'uCEFDownloadHandler.pas',
uCEFGeolocationHandler in 'uCEFGeolocationHandler.pas',
uCEFJsDialogHandler in 'uCEFJsDialogHandler.pas',
uCEFLifeSpanHandler in 'uCEFLifeSpanHandler.pas',
uCEFRequestHandler in 'uCEFRequestHandler.pas',
uCEFRenderHandler in 'uCEFRenderHandler.pas',
uCEFDragHandler in 'uCEFDragHandler.pas',
uCEFPostData in 'uCEFPostData.pas',
uCEFPostDataElement in 'uCEFPostDataElement.pas',
uCEFRequest in 'uCEFRequest.pas',
uCEFStreamReader in 'uCEFStreamReader.pas',
uCEFWriteHandler in 'uCEFWriteHandler.pas',
uCEFStreamWriter in 'uCEFStreamWriter.pas',
uCEFv8StackFrame in 'uCEFv8StackFrame.pas',
uCEFv8StackTrace in 'uCEFv8StackTrace.pas',
uCEFv8Handler in 'uCEFv8Handler.pas',
uCEFRequestCallback in 'uCEFRequestCallback.pas',
uCEFCustomStreamReader in 'uCEFCustomStreamReader.pas',
uCEFCallback in 'uCEFCallback.pas',
uCEFResourceHandler in 'uCEFResourceHandler.pas',
uCEFSchemeHandlerFactory in 'uCEFSchemeHandlerFactory.pas',
uCEFTask in 'uCEFTask.pas',
uCEFTaskRunner in 'uCEFTaskRunner.pas',
uCEFStringMap in 'uCEFStringMap.pas',
uCEFStringMultimap in 'uCEFStringMultimap.pas',
uCEFXmlReader in 'uCEFXmlReader.pas',
uCEFZipReader in 'uCEFZipReader.pas',
uCEFResponse in 'uCEFResponse.pas',
uCEFCookieVisitor in 'uCEFCookieVisitor.pas',
uCEFV8Exception in 'uCEFV8Exception.pas',
uCEFResourceBundleHandler in 'uCEFResourceBundleHandler.pas',
uCEFSetCookieCallback in 'uCEFSetCookieCallback.pas',
uCEFDeleteCookiesCallback in 'uCEFDeleteCookiesCallback.pas',
uCEFDownLoadItem in 'uCEFDownLoadItem.pas',
uCEFBeforeDownloadCallback in 'uCEFBeforeDownloadCallback.pas',
uCEFDownloadItemCallback in 'uCEFDownloadItemCallback.pas',
uCEFAuthCallback in 'uCEFAuthCallback.pas',
uCEFJsDialogCallback in 'uCEFJsDialogCallback.pas',
uCEFGeolocationCallback in 'uCEFGeolocationCallback.pas',
uCEFContextMenuParams in 'uCEFContextMenuParams.pas',
uCEFMenuModel in 'uCEFMenuModel.pas',
uCEFBrowserProcessHandler in 'uCEFBrowserProcessHandler.pas',
uCEFRenderProcessHandler in 'uCEFRenderProcessHandler.pas',
uCEFUrlrequestClient in 'uCEFUrlrequestClient.pas',
uCEFUrlRequest in 'uCEFUrlRequest.pas',
uCEFWebPluginInfoVisitor in 'uCEFWebPluginInfoVisitor.pas',
uCEFWebPluginUnstableCallback in 'uCEFWebPluginUnstableCallback.pas',
uCEFEndTracingCallback in 'uCEFEndTracingCallback.pas',
uCEFGetGeolocationCallback in 'uCEFGetGeolocationCallback.pas',
uCEFFileDialogCallback in 'uCEFFileDialogCallback.pas',
uCEFDragData in 'uCEFDragData.pas',
uCEFResolveCallback in 'uCEFResolveCallback.pas',
uCEFPrintSettings in 'uCEFPrintSettings.pas',
uCEFSslInfo in 'uCEFSslInfo.pas',
uCEFRunContextMenuCallback in 'uCEFRunContextMenuCallback.pas',
uCEFResourceBundle in 'uCEFResourceBundle.pas',
uCEFResponseFilter in 'uCEFResponseFilter.pas',
uCEFImage in 'uCEFImage.pas',
uCEFMenuModelDelegate in 'uCEFMenuModelDelegate.pas',
uCEFv8Types in 'uCEFv8Types.pas',
uCEFWindowParent in 'uCEFWindowParent.pas',
uCEFChromium in 'uCEFChromium.pas',
uCEFChromiumEvents in 'uCEFChromiumEvents.pas',
uCEFChromiumOptions in 'uCEFChromiumOptions.pas',
uCEFChromiumFontOptions in 'uCEFChromiumFontOptions.pas',
uCEFPDFPrintOptions in 'uCEFPDFPrintOptions.pas',
uCEFRegisterCDMCallback in 'uCEFRegisterCDMCallback.pas',
uCEFThread in 'uCEFThread.pas',
uCEFv8Interceptor in 'uCEFv8Interceptor.pas',
uCEFWaitableEvent in 'uCEFWaitableEvent.pas',
uCEFX509CertPrincipal in 'uCEFX509CertPrincipal.pas',
uCEFX509Certificate in 'uCEFX509Certificate.pas',
uCEFSSLStatus in 'uCEFSSLStatus.pas',
uCEFSelectClientCertificateCallback in 'uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in 'uCEFChromiumWindow.pas',
uCEFBaseRefCounted in 'uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in 'uCEFBaseScopedWrapper.pas',
uCEFDragAndDropMgr in 'uCEFDragAndDropMgr.pas',
uOLEDragAndDrop in 'uOLEDragAndDrop.pas',
uCEFGetExtensionResourceCallback in 'uCEFGetExtensionResourceCallback.pas',
uCEFExtension in 'uCEFExtension.pas',
uCEFExtensionHandler in 'uCEFExtensionHandler.pas',
uBufferPanel in 'uBufferPanel.pas',
uCEFApp in 'uCEFApp.pas',
uCEFWorkScheduler in 'uCEFWorkScheduler.pas',
uCEFServer in 'uCEFServer.pas',
uCEFServerHandler in 'uCEFServerHandler.pas',
uCEFServerEvents in 'uCEFServerEvents.pas',
uCEFServerComponent in 'uCEFServerComponent.pas';
end.

BIN
source/CEF4Delphi_D7.res
View File

Binary file not shown.

BIN
source/chromium.dcr
View File

Binary file not shown.

2
source/chromium.rc
View File

@ -1,2 +0,0 @@
TChromium BITMAP "chromium.bmp"
TChromiumWindow BITMAP "chromium.bmp"

33
source/uBufferPanel.pas
View File

@ -57,9 +57,9 @@ type
FBuffer : TBitmap; FBuffer : TBitmap;
FScanlineSize : integer; FScanlineSize : integer;
procedure CreateBufferMutex; procedure CreateSyncObj;
procedure DestroyBufferMutex; procedure DestroySyncObj;
procedure DestroyBuffer; procedure DestroyBuffer;
function GetBufferBits : pointer; function GetBufferBits : pointer;
@ -192,7 +192,7 @@ end;
destructor TBufferPanel.Destroy; destructor TBufferPanel.Destroy;
begin begin
DestroyBuffer; DestroyBuffer;
DestroyBufferMutex; DestroySyncObj;
inherited Destroy; inherited Destroy;
end; end;
@ -201,15 +201,15 @@ procedure TBufferPanel.AfterConstruction;
begin begin
inherited AfterConstruction; inherited AfterConstruction;
CreateBufferMutex; CreateSyncObj;
end; end;
procedure TBufferPanel.CreateBufferMutex; procedure TBufferPanel.CreateSyncObj;
begin begin
FMutex := CreateMutex(nil, False, nil); FMutex := CreateMutex(nil, False, nil);
end; end;
procedure TBufferPanel.DestroyBufferMutex; procedure TBufferPanel.DestroySyncObj;
begin begin
if (FMutex <> 0) then if (FMutex <> 0) then
begin begin
@ -359,18 +359,35 @@ begin
end; end;
function TBufferPanel.BufferIsResized(aUseMutex : boolean) : boolean; function TBufferPanel.BufferIsResized(aUseMutex : boolean) : boolean;
var
TempDevWidth, TempLogWidth, TempDevHeight, TempLogHeight : integer;
begin begin
Result := False; Result := False;
if not(aUseMutex) or BeginBufferDraw then if not(aUseMutex) or BeginBufferDraw then
begin
if (GlobalCEFApp.DeviceScaleFactor = 1) then
begin
Result := (FBuffer <> nil) and
(FBuffer.Width = Width) and
(FBuffer.Height = Height);
end
else
begin begin
// CEF and Chromium use 'floor' to round the float values in Device <-> Logical unit conversions // CEF and Chromium use 'floor' to round the float values in Device <-> Logical unit conversions
// and Delphi uses MulDiv, which uses the bankers rounding, to resize the components in high DPI mode. // and Delphi uses MulDiv, which uses the bankers rounding, to resize the components in high DPI mode.
// This is the cause of slight differences in size between the buffer and the panel in some occasions. // This is the cause of slight differences in size between the buffer and the panel in some occasions.
TempLogWidth := DeviceToLogical(Width, GlobalCEFApp.DeviceScaleFactor);
TempLogHeight := DeviceToLogical(Height, GlobalCEFApp.DeviceScaleFactor);
TempDevWidth := LogicalToDevice(TempLogWidth, GlobalCEFApp.DeviceScaleFactor);
TempDevHeight := LogicalToDevice(TempLogHeight, GlobalCEFApp.DeviceScaleFactor);
Result := (FBuffer <> nil) and Result := (FBuffer <> nil) and
(FBuffer.Width = LogicalToDevice(DeviceToLogical(Width, GlobalCEFApp.DeviceScaleFactor), GlobalCEFApp.DeviceScaleFactor)) and (FBuffer.Width = TempDevWidth) and
(FBuffer.Height = LogicalToDevice(DeviceToLogical(Height, GlobalCEFApp.DeviceScaleFactor), GlobalCEFApp.DeviceScaleFactor)); (FBuffer.Height = TempDevHeight);
end;
if aUseMutex then EndBufferDraw; if aUseMutex then EndBufferDraw;
end; end;

17
source/uCEFApplication.pas
View File

@ -124,6 +124,7 @@ type
FSetCurrentDir : boolean; FSetCurrentDir : boolean;
FGlobalContextInitialized : boolean; FGlobalContextInitialized : boolean;
FSitePerProcess : boolean; FSitePerProcess : boolean;
FDisableWebSecurity : boolean;
FChromeVersionInfo : TFileVersionInfo; FChromeVersionInfo : TFileVersionInfo;
FLibHandle : THandle; FLibHandle : THandle;
FOnRegisterCustomSchemes : TOnRegisterCustomSchemes; FOnRegisterCustomSchemes : TOnRegisterCustomSchemes;
@ -327,6 +328,7 @@ type
property EnableHighDPISupport : boolean read FEnableHighDPISupport write FEnableHighDPISupport; property EnableHighDPISupport : boolean read FEnableHighDPISupport write FEnableHighDPISupport;
property MuteAudio : boolean read FMuteAudio write FMuteAudio; property MuteAudio : boolean read FMuteAudio write FMuteAudio;
property SitePerProcess : boolean read FSitePerProcess write FSitePerProcess; property SitePerProcess : boolean read FSitePerProcess write FSitePerProcess;
property DisableWebSecurity : boolean read FDisableWebSecurity write FDisableWebSecurity;
property ReRaiseExceptions : boolean read FReRaiseExceptions write FReRaiseExceptions; property ReRaiseExceptions : boolean read FReRaiseExceptions write FReRaiseExceptions;
property DeviceScaleFactor : single read FDeviceScaleFactor; property DeviceScaleFactor : single read FDeviceScaleFactor;
property CheckDevToolsResources : boolean read FCheckDevToolsResources write FCheckDevToolsResources; property CheckDevToolsResources : boolean read FCheckDevToolsResources write FCheckDevToolsResources;
@ -380,9 +382,9 @@ implementation
uses uses
{$IFDEF DELPHI16_UP} {$IFDEF DELPHI16_UP}
System.Math, System.IOUtils, System.SysUtils, Vcl.Dialogs, System.Math, System.IOUtils, System.SysUtils,
{$ELSE} {$ELSE}
Math, {$IFDEF DELPHI14_UP}IOUtils,{$ENDIF} SysUtils, Dialogs, Math, {$IFDEF DELPHI14_UP}IOUtils,{$ENDIF} SysUtils,
{$ENDIF} {$ENDIF}
uCEFLibFunctions, uCEFMiscFunctions, uCEFCommandLine, uCEFConstants, uCEFLibFunctions, uCEFMiscFunctions, uCEFCommandLine, uCEFConstants,
uCEFSchemeHandlerFactory, uCEFCookieManager, uCEFApp, uCEFSchemeHandlerFactory, uCEFCookieManager, uCEFApp,
@ -443,6 +445,7 @@ begin
FEnableHighDPISupport := False; FEnableHighDPISupport := False;
FMuteAudio := False; FMuteAudio := False;
FSitePerProcess := True; FSitePerProcess := True;
FDisableWebSecurity := False;
FReRaiseExceptions := False; FReRaiseExceptions := False;
FLibLoaded := False; FLibLoaded := False;
FShowMessageDlg := True; FShowMessageDlg := True;
@ -960,7 +963,12 @@ procedure TCefApplication.ShowErrorMessageDlg(const aError : string);
begin begin
OutputDebugMessage(aError); OutputDebugMessage(aError);
if FShowMessageDlg then MessageDlg(aError, mtError, [mbOk], 0); if FShowMessageDlg then
begin
{$IFDEF MSWINDOWS}
MessageBox(0, PChar(aError + #0), PChar('Error' + #0), MB_ICONERROR or MB_OK or MB_TOPMOST);
{$ENDIF}
end;
end; end;
function TCefApplication.ParseProcessType : TCefProcessType; function TCefApplication.ParseProcessType : TCefProcessType;
@ -1163,6 +1171,9 @@ begin
if FMuteAudio then if FMuteAudio then
commandLine.AppendSwitch('--mute-audio'); commandLine.AppendSwitch('--mute-audio');
if FDisableWebSecurity then
commandLine.AppendSwitch('--disable-web-security');
if FSitePerProcess then if FSitePerProcess then
commandLine.AppendSwitch('--site-per-process'); commandLine.AppendSwitch('--site-per-process');

100
source/uCEFChromium.pas
View File

@ -419,10 +419,25 @@ type
// ICefFindHandler // ICefFindHandler
procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual; procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); virtual;
// Custom
procedure doCookiesDeleted(numDeleted : integer); virtual;
procedure doGetHTML(const aFrameName : ustring); overload;
procedure doGetHTML(const aFrame : ICefFrame); overload;
procedure doGetHTML(const aFrameIdentifier : int64); overload;
procedure doGetText(const aFrameName : ustring); overload;
procedure doGetText(const aFrame : ICefFrame); overload;
procedure doGetText(const aFrameIdentifier : int64); overload;
procedure doPdfPrintFinished(aResultOK : boolean); virtual;
procedure doTextResultAvailable(const aText : string); virtual;
procedure doUpdatePreferences; virtual;
function doSavePreferences : boolean; virtual;
procedure doResolvedHostAvailable(result: TCefErrorCode; const resolvedIps: TStrings); virtual;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure AfterConstruction; override; procedure AfterConstruction; override;
procedure BeforeDestruction; override;
function CreateClientHandler(aIsOSR : boolean) : boolean; overload; function CreateClientHandler(aIsOSR : boolean) : boolean; overload;
function CreateClientHandler(var aClient : ICefClient) : boolean; overload; function CreateClientHandler(var aClient : ICefClient) : boolean; overload;
procedure CloseBrowser(aForceClose : boolean); procedure CloseBrowser(aForceClose : boolean);
@ -432,21 +447,6 @@ type
procedure InitializeDragAndDrop(const aDropTargetCtrl : TWinControl); procedure InitializeDragAndDrop(const aDropTargetCtrl : TWinControl);
procedure ShutdownDragAndDrop; procedure ShutdownDragAndDrop;
// Internal procedures.
// Only tasks, visitors or callbacks should use them in the right thread/process.
procedure Internal_CookiesDeleted(numDeleted : integer);
procedure Internal_GetHTML(const aFrameName : ustring); overload;
procedure Internal_GetHTML(const aFrame : ICefFrame); overload;
procedure Internal_GetHTML(const aFrameIdentifier : int64); overload;
procedure Internal_GetText(const aFrameName : ustring); overload;
procedure Internal_GetText(const aFrame : ICefFrame); overload;
procedure Internal_GetText(const aFrameIdentifier : int64); overload;
procedure Internal_PdfPrintFinished(aResultOK : boolean);
procedure Internal_TextResultAvailable(const aText : string);
procedure Internal_UpdatePreferences; virtual;
function Internal_SavePreferences : boolean;
procedure Internal_ResolvedHostAvailable(result: TCefErrorCode; const resolvedIps: TStrings);
procedure LoadURL(const aURL : ustring); procedure LoadURL(const aURL : ustring);
procedure LoadString(const aString : ustring; const aURL : ustring = ''); procedure LoadString(const aString : ustring; const aURL : ustring = '');
procedure LoadRequest(const aRequest: ICefRequest); procedure LoadRequest(const aRequest: ICefRequest);
@ -774,12 +774,6 @@ begin
ClearBrowserReference; ClearBrowserReference;
DestroyClientHandler;
DestroyVisitor;
DestroyPDFPrintcb;
DestroyResolveHostcb;
DestroyCookiDeletercb;
if (FFontOptions <> nil) then FreeAndNil(FFontOptions); if (FFontOptions <> nil) then FreeAndNil(FFontOptions);
if (FOptions <> nil) then FreeAndNil(FOptions); if (FOptions <> nil) then FreeAndNil(FOptions);
if (FPDFPrintOptions <> nil) then FreeAndNil(FPDFPrintOptions); if (FPDFPrintOptions <> nil) then FreeAndNil(FPDFPrintOptions);
@ -792,6 +786,17 @@ begin
end; end;
end; end;
procedure TChromium.BeforeDestruction;
begin
DestroyClientHandler;
DestroyVisitor;
DestroyPDFPrintcb;
DestroyResolveHostcb;
DestroyCookiDeletercb;
inherited BeforeDestruction;
end;
procedure TChromium.ClearBrowserReference; procedure TChromium.ClearBrowserReference;
begin begin
FBrowser := nil; FBrowser := nil;
@ -800,47 +805,72 @@ end;
procedure TChromium.DestroyClientHandler; procedure TChromium.DestroyClientHandler;
begin begin
try
if (FHandler <> nil) then if (FHandler <> nil) then
begin begin
FHandler.InitializeVars; FHandler.InitializeVars;
FHandler := nil; FHandler := nil;
end; end;
except
on e : exception do
if CustomExceptionHandler('TChromium.DestroyClientHandler', e) then raise;
end;
end; end;
procedure TChromium.DestroyVisitor; procedure TChromium.DestroyVisitor;
begin begin
try
if (FVisitor <> nil) then if (FVisitor <> nil) then
begin begin
FVisitor.InitializeVars; FVisitor.InitializeVars;
FVisitor := nil; FVisitor := nil;
end; end;
except
on e : exception do
if CustomExceptionHandler('TChromium.DestroyVisitor', e) then raise;
end;
end; end;
procedure TChromium.DestroyPDFPrintcb; procedure TChromium.DestroyPDFPrintcb;
begin begin
try
if (FPDFPrintcb <> nil) then if (FPDFPrintcb <> nil) then
begin begin
FPDFPrintcb.InitializeVars; FPDFPrintcb.InitializeVars;
FPDFPrintcb := nil; FPDFPrintcb := nil;
end; end;
except
on e : exception do
if CustomExceptionHandler('TChromium.DestroyPDFPrintcb', e) then raise;
end;
end; end;
procedure TChromium.DestroyResolveHostcb; procedure TChromium.DestroyResolveHostcb;
begin begin
try
if (FResolveHostcb <> nil) then if (FResolveHostcb <> nil) then
begin begin
FResolveHostcb.InitializeVars; FResolveHostcb.InitializeVars;
FResolveHostcb := nil; FResolveHostcb := nil;
end; end;
except
on e : exception do
if CustomExceptionHandler('TChromium.DestroyResolveHostcb', e) then raise;
end;
end; end;
procedure TChromium.DestroyCookiDeletercb; procedure TChromium.DestroyCookiDeletercb;
begin begin
try
if (FCookiDeletercb <> nil) then if (FCookiDeletercb <> nil) then
begin begin
FCookiDeletercb.InitializeVars; FCookiDeletercb.InitializeVars;
FCookiDeletercb := nil; FCookiDeletercb := nil;
end; end;
except
on e : exception do
if CustomExceptionHandler('TChromium.DestroyCookiDeletercb', e) then raise;
end;
end; end;
procedure TChromium.AfterConstruction; procedure TChromium.AfterConstruction;
@ -1897,7 +1927,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetHTML(const aFrameName : ustring); procedure TChromium.doGetHTML(const aFrameName : ustring);
var var
TempFrame : ICefFrame; TempFrame : ICefFrame;
begin begin
@ -1916,7 +1946,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetHTML(const aFrame : ICefFrame); procedure TChromium.doGetHTML(const aFrame : ICefFrame);
begin begin
if Initialized and (aFrame <> nil) then if Initialized and (aFrame <> nil) then
begin begin
@ -1925,7 +1955,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetHTML(const aFrameIdentifier : int64); procedure TChromium.doGetHTML(const aFrameIdentifier : int64);
var var
TempFrame : ICefFrame; TempFrame : ICefFrame;
begin begin
@ -1944,7 +1974,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetText(const aFrameName : ustring); procedure TChromium.doGetText(const aFrameName : ustring);
var var
TempFrame : ICefFrame; TempFrame : ICefFrame;
begin begin
@ -1963,7 +1993,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetText(const aFrame : ICefFrame); procedure TChromium.doGetText(const aFrame : ICefFrame);
begin begin
if Initialized and (aFrame <> nil) then if Initialized and (aFrame <> nil) then
begin begin
@ -1972,7 +2002,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_GetText(const aFrameIdentifier : int64); procedure TChromium.doGetText(const aFrameIdentifier : int64);
var var
TempFrame : ICefFrame; TempFrame : ICefFrame;
begin begin
@ -2189,7 +2219,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_UpdatePreferences; procedure TChromium.doUpdatePreferences;
begin begin
FUpdatePreferences := False; FUpdatePreferences := False;
@ -2609,7 +2639,7 @@ begin
end; end;
end; end;
function TChromium.Internal_SavePreferences : boolean; function TChromium.doSavePreferences : boolean;
var var
TempDict : ICefDictionaryValue; TempDict : ICefDictionaryValue;
TempPrefs : TStringList; TempPrefs : TStringList;
@ -2637,7 +2667,7 @@ begin
end; end;
end; end;
procedure TChromium.Internal_ResolvedHostAvailable(result: TCefErrorCode; const resolvedIps: TStrings); procedure TChromium.doResolvedHostAvailable(result: TCefErrorCode; const resolvedIps: TStrings);
begin begin
if assigned(FOnResolvedHostAvailable) then FOnResolvedHostAvailable(self, result, resolvedIps); if assigned(FOnResolvedHostAvailable) then FOnResolvedHostAvailable(self, result, resolvedIps);
end; end;
@ -2757,7 +2787,7 @@ begin
Result := (FCompHandle <> 0) and PostMessage(FCompHandle, aMsg, wParam, lParam); Result := (FCompHandle <> 0) and PostMessage(FCompHandle, aMsg, wParam, lParam);
end; end;
procedure TChromium.Internal_TextResultAvailable(const aText : string); procedure TChromium.doTextResultAvailable(const aText : string);
begin begin
if assigned(FOnTextResultAvailable) then FOnTextResultAvailable(self, aText); if assigned(FOnTextResultAvailable) then FOnTextResultAvailable(self, aText);
end; end;
@ -2815,12 +2845,12 @@ begin
end; end;
end; end;
procedure TChromium.Internal_CookiesDeleted(numDeleted : integer); procedure TChromium.doCookiesDeleted(numDeleted : integer);
begin begin
if assigned(FOnCookiesDeleted) then FOnCookiesDeleted(self, numDeleted); if assigned(FOnCookiesDeleted) then FOnCookiesDeleted(self, numDeleted);
end; end;
procedure TChromium.Internal_PdfPrintFinished(aResultOK : boolean); procedure TChromium.doPdfPrintFinished(aResultOK : boolean);
begin begin
if assigned(FOnPdfPrintFinished) then FOnPdfPrintFinished(self, aResultOK); if assigned(FOnPdfPrintFinished) then FOnPdfPrintFinished(self, aResultOK);
end; end;
@ -2912,7 +2942,7 @@ begin
if (FBrowser <> nil) then FBrowserId := FBrowser.Identifier; if (FBrowser <> nil) then FBrowserId := FBrowser.Identifier;
end; end;
Internal_UpdatePreferences; doUpdatePreferences;
FInitialized := (FBrowser <> nil) and (FBrowserId <> 0); FInitialized := (FBrowser <> nil) and (FBrowserId <> 0);
@ -2926,7 +2956,7 @@ function TChromium.doOnBeforeBrowse(const browser : ICefBrowser;
begin begin
Result := False; Result := False;
if FUpdatePreferences then Internal_UpdatePreferences; if FUpdatePreferences then doUpdatePreferences;
if Assigned(FOnBeforeBrowse) then FOnBeforeBrowse(Self, browser, frame, request, isRedirect, Result); if Assigned(FOnBeforeBrowse) then FOnBeforeBrowse(Self, browser, frame, request, isRedirect, Result);
end; end;

4
source/uCEFConstants.pas
View File

@ -366,10 +366,12 @@ const
CEF_DESTROY = WM_APP + $A06; CEF_DESTROY = WM_APP + $A06;
CEF_DOONBEFORECLOSE = WM_APP + $A07; CEF_DOONBEFORECLOSE = WM_APP + $A07;
CEF_TIMER_FIRST_ID = high(cardinal) div 3; // A highly unlikely nIDEvent for our timers
CEF_TIMER_MINIMUM = $0000000A; CEF_TIMER_MINIMUM = $0000000A;
CEF_TIMER_MAXIMUM = $7FFFFFFF; CEF_TIMER_MAXIMUM = $7FFFFFFF;
CEF_TIMER_MAXDELAY = 1000 div 30; // 30fps CEF_TIMER_MAXDELAY = 1000 div 30; // 30fps
CEF_TIMER_DELAY_PLACEHOLDER = high(integer); CEF_TIMER_DEPLETEWORK_CYCLES = 10;
CEF_TIMER_DEPLETEWORK_DELAY = 50;
CEF4DELPHI_URL = 'https://github.com/salvadordf/CEF4Delphi'; CEF4DELPHI_URL = 'https://github.com/salvadordf/CEF4Delphi';
CRLF = #13 + #10; CRLF = #13 + #10;

11
source/uCEFDeleteCookiesCallback.pas
View File

@ -73,12 +73,12 @@ type
TCefCustomDeleteCookiesCallback = class(TCefDeleteCookiesCallbackOwn) TCefCustomDeleteCookiesCallback = class(TCefDeleteCookiesCallbackOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure OnComplete(numDeleted: Integer); override; procedure OnComplete(numDeleted: Integer); override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure InitializeVars; override; procedure InitializeVars; override;
end; end;
@ -86,7 +86,7 @@ type
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium; uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_delete_cookie_callback_on_complete(self: PCefDeleteCookiesCallback; num_deleted: Integer); stdcall; procedure cef_delete_cookie_callback_on_complete(self: PCefDeleteCookiesCallback; num_deleted: Integer); stdcall;
begin begin
@ -130,7 +130,7 @@ end;
// TCefCustomDeleteCookiesCallback // TCefCustomDeleteCookiesCallback
constructor TCefCustomDeleteCookiesCallback.Create(const aChromiumBrowser : TObject); constructor TCefCustomDeleteCookiesCallback.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
@ -151,8 +151,7 @@ end;
procedure TCefCustomDeleteCookiesCallback.OnComplete(numDeleted: Integer); procedure TCefCustomDeleteCookiesCallback.OnComplete(numDeleted: Integer);
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doCookiesDeleted(numDeleted);
TChromium(FChromiumBrowser).Internal_CookiesDeleted(numDeleted);
end; end;
end. end.

2
source/uCEFDomVisitor.pas
View File

@ -83,7 +83,7 @@ type
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFTypes, uCEFDomDocument, uCEFChromium; uCEFMiscFunctions, uCEFLibFunctions, uCEFTypes, uCEFDomDocument;
procedure cef_dom_visitor_visite(self: PCefDomVisitor; document: PCefDomDocument); stdcall; procedure cef_dom_visitor_visite(self: PCefDomVisitor; document: PCefDomDocument); stdcall;
begin begin

14
source/uCEFInterfaces.pas
View File

@ -1809,6 +1809,20 @@ type
// ICefFindHandler // ICefFindHandler
procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean); procedure doOnFindResult(const browser: ICefBrowser; identifier, count: Integer; const selectionRect: PCefRect; activeMatchOrdinal: Integer; finalUpdate: Boolean);
// Custom
procedure doCookiesDeleted(numDeleted : integer);
procedure doGetHTML(const aFrameName : ustring); overload;
procedure doGetHTML(const aFrame : ICefFrame); overload;
procedure doGetHTML(const aFrameIdentifier : int64); overload;
procedure doGetText(const aFrameName : ustring); overload;
procedure doGetText(const aFrame : ICefFrame); overload;
procedure doGetText(const aFrameIdentifier : int64); overload;
procedure doPdfPrintFinished(aResultOK : boolean);
procedure doTextResultAvailable(const aText : string);
procedure doUpdatePreferences;
function doSavePreferences : boolean;
procedure doResolvedHostAvailable(result: TCefErrorCode; const resolvedIps: TStrings);
end; end;

11
source/uCEFPDFPrintCallback.pas
View File

@ -74,12 +74,12 @@ type
TCefCustomPDFPrintCallBack = class(TCefPdfPrintCallbackOwn) TCefCustomPDFPrintCallBack = class(TCefPdfPrintCallbackOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure OnPdfPrintFinished(const path: ustring; aResultOK : Boolean); override; procedure OnPdfPrintFinished(const path: ustring; aResultOK : Boolean); override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure InitializeVars; override; procedure InitializeVars; override;
end; end;
@ -87,7 +87,7 @@ type
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium; uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_pdf_print_callback_on_pdf_print_finished(self: PCefPdfPrintCallback; const path: PCefString; ok: Integer); stdcall; procedure cef_pdf_print_callback_on_pdf_print_finished(self: PCefPdfPrintCallback; const path: PCefString; ok: Integer); stdcall;
begin begin
@ -128,7 +128,7 @@ end;
// TCefCustomPDFPrintCallBack // TCefCustomPDFPrintCallBack
constructor TCefCustomPDFPrintCallBack.Create(const aChromiumBrowser : TObject); constructor TCefCustomPDFPrintCallBack.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
@ -149,8 +149,7 @@ end;
procedure TCefCustomPDFPrintCallBack.OnPdfPrintFinished(const path: ustring; aResultOK : Boolean); procedure TCefCustomPDFPrintCallBack.OnPdfPrintFinished(const path: ustring; aResultOK : Boolean);
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doPdfPrintFinished(aResultOK);
TChromium(FChromiumBrowser).Internal_PdfPrintFinished(aResultOK);
end; end;
end. end.

11
source/uCEFResolveCallback.pas
View File

@ -66,11 +66,11 @@ type
TCefCustomResolveCallback = class(TCefResolveCallbackOwn) TCefCustomResolveCallback = class(TCefResolveCallbackOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); override; procedure OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure InitializeVars; override; procedure InitializeVars; override;
end; end;
@ -78,7 +78,7 @@ type
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium; uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_resolve_callback_on_resolve_completed(self: PCefResolveCallback; procedure cef_resolve_callback_on_resolve_completed(self: PCefResolveCallback;
result: TCefErrorCode; result: TCefErrorCode;
@ -126,7 +126,7 @@ end;
// TCefCustomResolveCallback // TCefCustomResolveCallback
constructor TCefCustomResolveCallback.Create(const aChromiumBrowser : TObject); constructor TCefCustomResolveCallback.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
@ -147,8 +147,7 @@ end;
procedure TCefCustomResolveCallback.OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); procedure TCefCustomResolveCallback.OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings);
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doResolvedHostAvailable(result, resolvedIps);
TChromium(FChromiumBrowser).Internal_ResolvedHostAvailable(result, resolvedIps);
end; end;
end. end.

11
source/uCEFStringVisitor.pas
View File

@ -71,12 +71,12 @@ type
TCustomCefStringVisitor = class(TCefStringVisitorOwn) TCustomCefStringVisitor = class(TCefStringVisitorOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure Visit(const str: ustring); override; procedure Visit(const str: ustring); override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure InitializeVars; override; procedure InitializeVars; override;
end; end;
@ -84,7 +84,7 @@ type
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium; uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_string_visitor_visit(self: PCefStringVisitor; const str: PCefString); stdcall; procedure cef_string_visitor_visit(self: PCefStringVisitor; const str: PCefString); stdcall;
begin begin
@ -126,7 +126,7 @@ end;
// TCustomCefStringVisitor // TCustomCefStringVisitor
constructor TCustomCefStringVisitor.Create(const aChromiumBrowser : TObject); constructor TCustomCefStringVisitor.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
@ -147,8 +147,7 @@ end;
procedure TCustomCefStringVisitor.Visit(const str: ustring); procedure TCustomCefStringVisitor.Visit(const str: ustring);
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doTextResultAvailable(str);
TChromium(FChromiumBrowser).Internal_TextResultAvailable(str);
end; end;
end. end.

67
source/uCEFTask.pas
View File

@ -82,7 +82,7 @@ type
TCefGetTextTask = class(TCefTaskOwn) TCefGetTextTask = class(TCefTaskOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
FFrameName : ustring; FFrameName : ustring;
FFrame : ICefFrame; FFrame : ICefFrame;
FFrameIdentifier : int64; FFrameIdentifier : int64;
@ -90,9 +90,9 @@ type
procedure Execute; override; procedure Execute; override;
public public
constructor Create(const aChromiumBrowser : TObject; const aFrameName : ustring); reintroduce; overload; constructor Create(const aChromiumBrowser : IChromiumEvents; const aFrameName : ustring); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame); reintroduce; overload; constructor Create(const aChromiumBrowser : IChromiumEvents; const aFrame : ICefFrame); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64); reintroduce; overload; constructor Create(const aChromiumBrowser : IChromiumEvents; const aFrameIdentifier : int64); reintroduce; overload;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -103,28 +103,30 @@ type
TCefUpdatePrefsTask = class(TCefTaskOwn) TCefUpdatePrefsTask = class(TCefTaskOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure Execute; override; procedure Execute; override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override;
end; end;
TCefSavePrefsTask = class(TCefTaskOwn) TCefSavePrefsTask = class(TCefTaskOwn)
protected protected
FChromiumBrowser : TObject; FChromiumBrowser : IChromiumEvents;
procedure Execute; override; procedure Execute; override;
public public
constructor Create(const aChromiumBrowser : TObject); reintroduce; constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
destructor Destroy; override;
end; end;
implementation implementation
uses uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium, uCEFCookieManager; uCEFMiscFunctions, uCEFLibFunctions, uCEFCookieManager;
procedure cef_task_execute(self: PCefTask); stdcall; procedure cef_task_execute(self: PCefTask); stdcall;
begin begin
@ -189,7 +191,7 @@ end;
// TCefGetTextTask // TCefGetTextTask
constructor TCefGetTextTask.Create(const aChromiumBrowser : TObject; const aFrameName : ustring); constructor TCefGetTextTask.Create(const aChromiumBrowser : IChromiumEvents; const aFrameName : ustring);
begin begin
inherited Create; inherited Create;
@ -199,7 +201,7 @@ begin
FFrameIdentifier := 0; FFrameIdentifier := 0;
end; end;
constructor TCefGetTextTask.Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame); constructor TCefGetTextTask.Create(const aChromiumBrowser : IChromiumEvents; const aFrame : ICefFrame);
begin begin
inherited Create; inherited Create;
@ -209,7 +211,7 @@ begin
FFrameIdentifier := 0; FFrameIdentifier := 0;
end; end;
constructor TCefGetTextTask.Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64); constructor TCefGetTextTask.Create(const aChromiumBrowser : IChromiumEvents; const aFrameIdentifier : int64);
begin begin
inherited Create; inherited Create;
@ -221,6 +223,7 @@ end;
destructor TCefGetTextTask.Destroy; destructor TCefGetTextTask.Destroy;
begin begin
FChromiumBrowser := nil;
FFrame := nil; FFrame := nil;
inherited Destroy; inherited Destroy;
@ -228,15 +231,15 @@ end;
procedure TCefGetTextTask.Execute; procedure TCefGetTextTask.Execute;
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then
begin begin
if (FFrame <> nil) then if (FFrame <> nil) then
TChromium(FChromiumBrowser).Internal_GetText(FFrame) FChromiumBrowser.doGetText(FFrame)
else else
if (FFrameIdentifier <> 0) then if (FFrameIdentifier <> 0) then
TChromium(FChromiumBrowser).Internal_GetText(FFrameIdentifier) FChromiumBrowser.doGetText(FFrameIdentifier)
else else
TChromium(FChromiumBrowser).Internal_GetText(FFrameName); FChromiumBrowser.doGetText(FFrameName);
end; end;
end; end;
@ -245,15 +248,15 @@ end;
procedure TCefGetHTMLTask.Execute; procedure TCefGetHTMLTask.Execute;
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then
begin begin
if (FFrame <> nil) then if (FFrame <> nil) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrame) FChromiumBrowser.doGetHTML(FFrame)
else else
if (FFrameIdentifier <> 0) then if (FFrameIdentifier <> 0) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameIdentifier) FChromiumBrowser.doGetHTML(FFrameIdentifier)
else else
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameName); FChromiumBrowser.doGetHTML(FFrameName);
end; end;
end; end;
@ -261,34 +264,46 @@ end;
// TCefUpdatePrefsTask // TCefUpdatePrefsTask
constructor TCefUpdatePrefsTask.Create(const aChromiumBrowser : TObject); constructor TCefUpdatePrefsTask.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
FChromiumBrowser := aChromiumBrowser; FChromiumBrowser := aChromiumBrowser;
end; end;
destructor TCefUpdatePrefsTask.Destroy;
begin
FChromiumBrowser := nil;
inherited Destroy;
end;
procedure TCefUpdatePrefsTask.Execute; procedure TCefUpdatePrefsTask.Execute;
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doUpdatePreferences;
TChromium(FChromiumBrowser).Internal_UpdatePreferences;
end; end;
// TCefSavePrefsTask // TCefSavePrefsTask
constructor TCefSavePrefsTask.Create(const aChromiumBrowser : TObject); constructor TCefSavePrefsTask.Create(const aChromiumBrowser : IChromiumEvents);
begin begin
inherited Create; inherited Create;
FChromiumBrowser := aChromiumBrowser; FChromiumBrowser := aChromiumBrowser;
end; end;
destructor TCefSavePrefsTask.Destroy;
begin
FChromiumBrowser := nil;
inherited Destroy;
end;
procedure TCefSavePrefsTask.Execute; procedure TCefSavePrefsTask.Execute;
begin begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then if (FChromiumBrowser <> nil) then FChromiumBrowser.doSavePreferences;
TChromium(FChromiumBrowser).Internal_SavePreferences;
end; end;
end. end.

216
source/uCEFWorkScheduler.pas
View File

@ -52,35 +52,41 @@ uses
{$ELSE} {$ELSE}
Windows, Messages, Classes, Controls, Graphics, Forms, Windows, Messages, Classes, Controls, Graphics, Forms,
{$ENDIF} {$ENDIF}
uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFMiscFunctions, uCEFConstants; uCEFConstants, uCEFWorkSchedulerThread;
const
TIMER_NIDEVENT = 1;
TIMER_DEPLETEWORK_CYCLES = 10;
TIMER_DEPLETEWORK_DELAY = 50;
type type
TCEFWorkScheduler = class(TComponent) TCEFWorkScheduler = class(TComponent)
protected protected
FCompHandle : HWND; FCompHandle : HWND;
FThread : TCEFWorkSchedulerThread;
FDepleteWorkCycles : cardinal; FDepleteWorkCycles : cardinal;
FDepleteWorkDelay : cardinal; FDepleteWorkDelay : cardinal;
FTimerPending : boolean; FDefaultInterval : integer;
FIsActive : boolean;
FReentrancyDetected : boolean;
FStopped : boolean; FStopped : boolean;
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
FPriority : TThreadPriority;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure WndProc(var aMessage: TMessage); procedure CreateThread;
function SendCompMessage(aMsg, wParam : cardinal; lParam : integer) : boolean; procedure DestroyThread;
procedure CreateTimer(const delay_ms : int64);
procedure TimerTimeout;
procedure DoWork;
procedure ScheduleWork(const delay_ms : int64);
procedure DoMessageLoopWork;
function PerformMessageLoopWork : boolean;
procedure DestroyTimer;
procedure DeallocateWindowHandle; procedure DeallocateWindowHandle;
procedure DepleteWork; procedure DepleteWork;
procedure WndProc(var aMessage: TMessage);
procedure NextPulse(aInterval : integer);
procedure ScheduleWork(const delay_ms : int64);
procedure DoWork;
procedure DoMessageLoopWork;
procedure SetDefaultInterval(aValue : integer);
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
procedure SetPriority(aValue : TThreadPriority);
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure Thread_OnPulse(Sender : TObject);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -89,11 +95,15 @@ type
procedure ScheduleMessagePumpWork(const delay_ms : int64); procedure ScheduleMessagePumpWork(const delay_ms : int64);
procedure StopScheduler; procedure StopScheduler;
property IsTimerPending : boolean read FTimerPending;
published published
property DepleteWorkCycles : cardinal read FDepleteWorkCycles write FDepleteWorkCycles default TIMER_DEPLETEWORK_CYCLES; {$IFDEF MSWINDOWS}
property DepleteWorkDelay : cardinal read FDepleteWorkDelay write FDepleteWorkDelay default TIMER_DEPLETEWORK_DELAY; {$WARN SYMBOL_PLATFORM OFF}
property Priority : TThreadPriority read FPriority write SetPriority default tpNormal;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
property DefaultInterval : integer read FDefaultInterval write SetDefaultInterval default CEF_TIMER_MAXDELAY;
property DepleteWorkCycles : cardinal read FDepleteWorkCycles write FDepleteWorkCycles default CEF_TIMER_DEPLETEWORK_CYCLES;
property DepleteWorkDelay : cardinal read FDepleteWorkDelay write FDepleteWorkDelay default CEF_TIMER_DEPLETEWORK_DELAY;
end; end;
implementation implementation
@ -104,25 +114,29 @@ uses
{$ELSE} {$ELSE}
SysUtils, Math, SysUtils, Math,
{$ENDIF} {$ENDIF}
uCEFApplication; uCEFMiscFunctions, uCEFApplication;
constructor TCEFWorkScheduler.Create(AOwner: TComponent); constructor TCEFWorkScheduler.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FThread := nil;
FCompHandle := 0; FCompHandle := 0;
FTimerPending := False;
FIsActive := False;
FReentrancyDetected := False;
FStopped := False; FStopped := False;
FDepleteWorkCycles := TIMER_DEPLETEWORK_CYCLES; {$IFDEF MSWINDOWS}
FDepleteWorkDelay := TIMER_DEPLETEWORK_DELAY; {$WARN SYMBOL_PLATFORM OFF}
FPriority := tpNormal;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
FDefaultInterval := CEF_TIMER_MAXDELAY;
FDepleteWorkCycles := CEF_TIMER_DEPLETEWORK_CYCLES;
FDepleteWorkDelay := CEF_TIMER_DEPLETEWORK_DELAY;
end; end;
destructor TCEFWorkScheduler.Destroy; destructor TCEFWorkScheduler.Destroy;
begin begin
DestroyTimer; DestroyThread;
DeallocateWindowHandle; DeallocateWindowHandle;
inherited Destroy; inherited Destroy;
@ -133,35 +147,49 @@ begin
inherited AfterConstruction; inherited AfterConstruction;
if not(csDesigning in ComponentState) then if not(csDesigning in ComponentState) then
begin
FCompHandle := AllocateHWnd(WndProc); FCompHandle := AllocateHWnd(WndProc);
CreateThread;
end;
end;
procedure TCEFWorkScheduler.CreateThread;
begin
FThread := TCEFWorkSchedulerThread.Create;
{$IFDEF MSWINDOWS}
FThread.Priority := FPriority;
{$ENDIF}
FThread.DefaultInterval := FDefaultInterval;
FThread.OnPulse := Thread_OnPulse;
{$IFDEF DELPHI8_UP}
FThread.Start;
{$ELSE}
FThread.Resume;
{$ENDIF}
end;
procedure TCEFWorkScheduler.DestroyThread;
begin
try
if (FThread <> nil) then
begin
FThread.Terminate;
FThread.NextPulse(0);
FThread.WaitFor;
FreeAndNil(FThread);
end;
except
on e : exception do
if CustomExceptionHandler('TCEFWorkScheduler.DestroyThread', e) then raise;
end;
end; end;
procedure TCEFWorkScheduler.WndProc(var aMessage: TMessage); procedure TCEFWorkScheduler.WndProc(var aMessage: TMessage);
begin begin
case aMessage.Msg of if (aMessage.Msg = CEF_PUMPHAVEWORK) then
WM_TIMER : TimerTimeout; ScheduleWork(aMessage.lParam)
CEF_PUMPHAVEWORK : ScheduleWork(aMessage.lParam); else
else aMessage.Result := DefWindowProc(FCompHandle, aMessage.Msg, aMessage.WParam, aMessage.LParam); aMessage.Result := DefWindowProc(FCompHandle, aMessage.Msg, aMessage.WParam, aMessage.LParam);
end;
end;
function TCEFWorkScheduler.SendCompMessage(aMsg, wParam : cardinal; lParam : integer) : boolean;
begin
Result := not(FStopped) and (FCompHandle <> 0) and PostMessage(FCompHandle, aMsg, wParam, lParam);
end;
procedure TCEFWorkScheduler.CreateTimer(const delay_ms : int64);
begin
if not(FTimerPending) and
not(FStopped) and
(delay_ms > 0) and
(SetTimer(FCompHandle, TIMER_NIDEVENT, cardinal(delay_ms), nil) <> 0) then
FTimerPending := True;
end;
procedure TCEFWorkScheduler.DestroyTimer;
begin
if FTimerPending and KillTimer(FCompHandle, TIMER_NIDEVENT) then FTimerPending := False;
end; end;
procedure TCEFWorkScheduler.DeallocateWindowHandle; procedure TCEFWorkScheduler.DeallocateWindowHandle;
@ -173,6 +201,27 @@ begin
end; end;
end; end;
procedure TCEFWorkScheduler.DoMessageLoopWork;
begin
if (GlobalCEFApp <> nil) then GlobalCEFApp.DoMessageLoopWork;
end;
procedure TCEFWorkScheduler.SetDefaultInterval(aValue : integer);
begin
FDefaultInterval := aValue;
if (FThread <> nil) then FThread.DefaultInterval := aValue;
end;
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
procedure TCEFWorkScheduler.SetPriority(aValue : TThreadPriority);
begin
FPriority := aValue;
if (FThread <> nil) then FThread.Priority := aValue;
end;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure TCEFWorkScheduler.DepleteWork; procedure TCEFWorkScheduler.DepleteWork;
var var
i : cardinal; i : cardinal;
@ -189,78 +238,43 @@ end;
procedure TCEFWorkScheduler.ScheduleMessagePumpWork(const delay_ms : int64); procedure TCEFWorkScheduler.ScheduleMessagePumpWork(const delay_ms : int64);
begin begin
SendCompMessage(CEF_PUMPHAVEWORK, 0, LPARAM(delay_ms)); if not(FStopped) and (FCompHandle <> 0) then
PostMessage(FCompHandle, CEF_PUMPHAVEWORK, 0, LPARAM(delay_ms));
end; end;
procedure TCEFWorkScheduler.StopScheduler; procedure TCEFWorkScheduler.StopScheduler;
begin begin
FStopped := True; FStopped := True;
DestroyTimer; NextPulse(0);
DepleteWork; DepleteWork;
DeallocateWindowHandle; DeallocateWindowHandle;
end; end;
procedure TCEFWorkScheduler.TimerTimeout; procedure TCEFWorkScheduler.Thread_OnPulse(Sender: TObject);
begin begin
if not(FStopped) then if not(FStopped) then DoMessageLoopWork;
begin
DestroyTimer;
DoWork;
end;
end; end;
procedure TCEFWorkScheduler.DoWork; procedure TCEFWorkScheduler.DoWork;
var
TempWasReentrant : boolean;
begin begin
TempWasReentrant := PerformMessageLoopWork; DoMessageLoopWork;
NextPulse(FDefaultInterval);
if TempWasReentrant then
ScheduleMessagePumpWork(0)
else
if not(IsTimerPending) then
ScheduleMessagePumpWork(CEF_TIMER_DELAY_PLACEHOLDER);
end; end;
procedure TCEFWorkScheduler.ScheduleWork(const delay_ms : int64); procedure TCEFWorkScheduler.ScheduleWork(const delay_ms : int64);
begin begin
if FStopped or if not(FStopped) then
((delay_ms = CEF_TIMER_DELAY_PLACEHOLDER) and IsTimerPending) then begin
exit;
DestroyTimer;
if (delay_ms <= 0) then if (delay_ms <= 0) then
DoWork DoWork
else else
if (delay_ms > CEF_TIMER_MAXDELAY) then NextPulse(delay_ms);
CreateTimer(CEF_TIMER_MAXDELAY) end;
else
CreateTimer(delay_ms);
end; end;
procedure TCEFWorkScheduler.DoMessageLoopWork; procedure TCEFWorkScheduler.NextPulse(aInterval : integer);
begin begin
if (GlobalCEFApp <> nil) then GlobalCEFApp.DoMessageLoopWork; if (FThread <> nil) then FThread.NextPulse(aInterval);
end;
function TCEFWorkScheduler.PerformMessageLoopWork : boolean;
begin
Result := False;
if FIsActive then
begin
FReentrancyDetected := True;
exit;
end;
FReentrancyDetected := False;
FIsActive := True;
DoMessageLoopWork;
FIsActive := False;
Result := FReentrancyDetected;
end; end;
end. end.

222
source/uCEFWorkSchedulerThread.pas Normal file
View File

@ -0,0 +1,222 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit uCEFWorkSchedulerThread;
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes, System.SyncObjs,
{$ELSE}
Classes, SyncObjs,
{$ENDIF}
uCEFConstants;
type
TCEFWorkSchedulerThread = class(TThread)
protected
FCritSect : TCriticalSection;
FInterval : integer;
FEvent : TEvent;
FOnPulse : TNotifyEvent;
FPulsing : boolean;
FMustReset : boolean;
FDefaultInterval : integer;
function Lock : boolean;
procedure Unlock;
function CanPulse(var aInterval : integer) : boolean;
procedure DoOnPulseEvent;
procedure EventTimeOut;
procedure SignaledEvent;
procedure Execute; override;
public
constructor Create;
destructor Destroy; override;
procedure AfterConstruction; override;
procedure NextPulse(aInterval : integer);
property DefaultInterval : integer read FDefaultInterval write FDefaultInterval default CEF_TIMER_MAXDELAY;
property OnPulse : TNotifyEvent read FOnPulse write FOnPulse;
end;
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils, System.Math,
{$ELSE}
SysUtils, Math,
{$ENDIF}
uCEFApplication;
constructor TCEFWorkSchedulerThread.Create;
begin
FOnPulse := nil;
FCritSect := nil;
FPulsing := False;
FEvent := nil;
FDefaultInterval := CEF_TIMER_MAXDELAY;
FInterval := FDefaultInterval;
FMustReset := False;
inherited Create(True);
FreeOnTerminate := False;
end;
destructor TCEFWorkSchedulerThread.Destroy;
begin
if (FEvent <> nil) then FreeAndNil(FEvent);
if (FCritSect <> nil) then FreeAndNil(FCritSect);
inherited Destroy;
end;
procedure TCEFWorkSchedulerThread.AfterConstruction;
begin
inherited AfterConstruction;
FEvent := TEvent.Create(nil, False, False, '');
FCritSect := TCriticalSection.Create;
end;
procedure TCEFWorkSchedulerThread.DoOnPulseEvent;
begin
if assigned(FOnPulse) then FOnPulse(self);
end;
function TCEFWorkSchedulerThread.Lock : boolean;
begin
if not(Terminated) and (FCritSect <> nil) then
begin
FCritSect.Acquire;
Result := True;
end
else
Result := False;
end;
procedure TCEFWorkSchedulerThread.Unlock;
begin
if (FCritSect <> nil) then FCritSect.Release;
end;
procedure TCEFWorkSchedulerThread.NextPulse(aInterval : integer);
begin
if Lock then
try
FInterval := min(aInterval, CEF_TIMER_MAXDELAY);
FMustReset := True;
if FPulsing then
begin
FPulsing := False;
FEvent.SetEvent;
end;
finally
Unlock;
end;
end;
procedure TCEFWorkSchedulerThread.EventTimeOut;
begin
if Lock then
try
if FMustReset then
begin
FInterval := FDefaultInterval;
FMustReset := False;
end;
FPulsing := False;
finally
Unlock;
if not(Terminated) then Synchronize(DoOnPulseEvent);
end;
end;
procedure TCEFWorkSchedulerThread.SignaledEvent;
begin
if Lock then
try
FPulsing := False;
finally
Unlock;
end;
end;
function TCEFWorkSchedulerThread.CanPulse(var aInterval : integer) : boolean;
begin
Result := False;
if Lock then
try
aInterval := FInterval;
if (aInterval > 0) then
begin
Result := True;
FPulsing := True;
FEvent.ResetEvent;
end;
finally
Unlock;
end;
end;
procedure TCEFWorkSchedulerThread.Execute;
var
TempInterval : integer;
begin
while CanPulse(TempInterval) do
if (FEvent.WaitFor(TempInterval) = wrTimeout) then
EventTimeOut
else
SignaledEvent;
end;
end.

426
source/uFMXBufferPanel.pas Normal file
View File

@ -0,0 +1,426 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit uFMXBufferPanel;
{$I cef.inc}
interface
uses
{$IFDEF MSWINDOWS}
Winapi.Windows,
{$ELSE}
System.SyncObjs,
{$ENDIF}
System.Classes, System.UIConsts, System.Types, System.UITypes,
{$IFDEF DELPHI17_UP}
FMX.Graphics,
{$ENDIF}
FMX.Types, FMX.Controls;
type
TDialogKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of object;
TFMXBufferPanel = class(TControl)
protected
{$IFDEF MSWINDOWS}
FMutex : THandle;
{$ELSE}
FBufferCS : TCriticalSection;
{$ENDIF}
FBuffer : TBitmap;
FScanlineSize : integer;
FColor : TAlphaColor;
FHighSpeedDrawing : boolean;
FOnDialogKey : TDialogKeyEvent;
procedure CreateSyncObj;
procedure DestroySyncObj;
procedure DestroyBuffer;
function GetScreenScale : Single;
function GetBufferWidth : integer;
function GetBufferHeight : integer;
function CopyBuffer : boolean;
function SaveBufferToFile(const aFilename : string) : boolean;
procedure Paint; override;
procedure DialogKey(var Key: Word; Shift: TShiftState); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure AfterConstruction; override;
function SaveToFile(const aFilename : string) : boolean;
procedure InvalidatePanel;
function BeginBufferDraw : boolean;
procedure EndBufferDraw;
procedure BufferDraw(x, y : integer; const aBitmap : TBitmap);
function UpdateBufferDimensions(aWidth, aHeight : integer) : boolean;
function BufferIsResized(aUseMutex : boolean = True) : boolean;
function ScreenToClient(aPoint : TPoint) : TPoint;
function ClientToScreen(aPoint : TPoint) : TPoint;
property Buffer : TBitmap read FBuffer;
property ScanlineSize : integer read FScanlineSize;
property BufferWidth : integer read GetBufferWidth;
property BufferHeight : integer read GetBufferHeight;
property ScreenScale : single read GetScreenScale;
published
property Align;
property Anchors;
property Visible;
property Enabled;
property TabOrder;
property Color : TAlphaColor read FColor write FColor default claWhite;
property HighSpeedDrawing : boolean read FHighSpeedDrawing write FHighSpeedDrawing default True;
{$IFDEF DELPHI17_UP}
property TabStop;
property CanFocus;
property CanParentFocus;
property Height;
property Width;
property Padding;
property Opacity;
property Margins;
property Position;
property RotationAngle;
property RotationCenter;
property Scale;
property Size;
{$ENDIF}
property OnEnter;
property OnExit;
property OnResize;
property OnClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseWheel;
property OnKeyUp;
property OnKeyDown;
property OnDialogKey : TDialogKeyEvent read FOnDialogKey write FOnDialogKey;
end;
implementation
uses
System.SysUtils, System.Math,
FMX.Platform, uCEFMiscFunctions, uCEFApplication;
constructor TFMXBufferPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF MSWINDOWS}
FMutex := 0;
{$ELSE}
FBufferCS := nil;
{$ENDIF}
FBuffer := nil;
FScanlineSize := 0;
FColor := claWhite;
FOnDialogKey := nil;
FHighSpeedDrawing := True;
end;
destructor TFMXBufferPanel.Destroy;
begin
DestroyBuffer;
DestroySyncObj;
inherited Destroy;
end;
procedure TFMXBufferPanel.AfterConstruction;
begin
inherited AfterConstruction;
CreateSyncObj;
end;
procedure TFMXBufferPanel.CreateSyncObj;
begin
{$IFDEF MSWINDOWS}
FMutex := CreateMutex(nil, False, nil);
{$ELSE}
FBufferCS := TCriticalSection.Create;
{$ENDIF}
end;
procedure TFMXBufferPanel.DestroySyncObj;
begin
{$IFDEF MSWINDOWS}
if (FMutex <> 0) then
begin
CloseHandle(FMutex);
FMutex := 0;
end;
{$ELSE}
if (FBufferCS <> nil) then FreeAndNil(FBufferCS);
{$ENDIF}
end;
procedure TFMXBufferPanel.DestroyBuffer;
begin
if BeginBufferDraw then
begin
if (FBuffer <> nil) then FreeAndNil(FBuffer);
EndBufferDraw;
end;
end;
function TFMXBufferPanel.SaveBufferToFile(const aFilename : string) : boolean;
begin
Result := False;
try
if (FBuffer <> nil) then
begin
FBuffer.SaveToFile(aFilename);
Result := True;
end;
except
on e : exception do
if CustomExceptionHandler('TFMXBufferPanel.SaveBufferToFile', e) then raise;
end;
end;
function TFMXBufferPanel.SaveToFile(const aFilename : string) : boolean;
begin
Result := False;
if BeginBufferDraw then
begin
Result := SaveBufferToFile(aFilename);
EndBufferDraw;
end;
end;
procedure TFMXBufferPanel.InvalidatePanel;
begin
InvalidateRect(TRectF.Create(0, 0, Width, Height));
end;
function TFMXBufferPanel.BeginBufferDraw : boolean;
begin
{$IFDEF MSWINDOWS}
Result := (FMutex <> 0) and (WaitForSingleObject(FMutex, 5000) = WAIT_OBJECT_0);
{$ELSE}
if (FBufferCS <> nil) then
begin
FBufferCS.Acquire;
Result := True;
end
else
Result := False;
{$ENDIF}
end;
procedure TFMXBufferPanel.EndBufferDraw;
begin
{$IFDEF MSWINDOWS}
if (FMutex <> 0) then ReleaseMutex(FMutex);
{$ELSE}
if (FBufferCS <> nil) then FBufferCS.Release;
{$ENDIF}
end;
function TFMXBufferPanel.CopyBuffer : boolean;
var
TempSrc, TempDst : TRectF;
begin
Result := False;
if Canvas.BeginScene then
try
if BeginBufferDraw then
begin
if (FBuffer <> nil) then
begin
TempSrc := TRectF.Create(0, 0, FBuffer.Width, FBuffer.Height);
TempDst := TRectF.Create(0, 0, FBuffer.Width / ScreenScale, FBuffer.Height / ScreenScale);
Canvas.DrawBitmap(FBuffer, TempSrc, TempDst, 1, FHighSpeedDrawing);
Result := True;
end;
EndBufferDraw;
end;
finally
Canvas.EndScene;
end;
end;
procedure TFMXBufferPanel.DialogKey(var Key: Word; Shift: TShiftState);
begin
if assigned(FOnDialogKey) then FOnDialogKey(self, Key, Shift);
inherited DialogKey(Key, Shift);
end;
procedure TFMXBufferPanel.Paint;
var
TempRect : TRectF;
begin
if (csDesigning in ComponentState) or not(CopyBuffer) then
begin
TempRect := TRectF.Create(0, 0, Width, Height);
if Canvas.BeginScene then
try
Canvas.ClearRect(TempRect, FColor);
finally
Canvas.EndScene;
end;
end;
end;
function TFMXBufferPanel.GetScreenScale : Single;
begin
if (GlobalCEFApp <> nil) then
Result := GlobalCEFApp.DeviceScaleFactor
else
Result := 1;
end;
function TFMXBufferPanel.GetBufferWidth : integer;
begin
if (FBuffer <> nil) then
Result := FBuffer.Width
else
Result := 0;
end;
function TFMXBufferPanel.GetBufferHeight : integer;
begin
if (FBuffer <> nil) then
Result := FBuffer.Height
else
Result := 0;
end;
procedure TFMXBufferPanel.BufferDraw(x, y : integer; const aBitmap : TBitmap);
var
TempSrc, TempDst : TRectF;
begin
if (FBuffer <> nil) then
begin
TempSrc := TRectF.Create(0, 0, aBitmap.Width, aBitmap.Height);
TempDst := TRectF.Create(x, y, x + (aBitmap.Width / ScreenScale), y + (aBitmap.Height / ScreenScale));
if FBuffer.Canvas.BeginScene then
try
FBuffer.Canvas.DrawBitmap(aBitmap, TempSrc, TempDst, 1, FHighSpeedDrawing);
finally
FBuffer.Canvas.EndScene;
end;
end;
end;
function TFMXBufferPanel.UpdateBufferDimensions(aWidth, aHeight : integer) : boolean;
begin
Result := False;
if ((FBuffer = nil) or
(FBuffer.Width <> aWidth) or
(FBuffer.Height <> aHeight)) then
begin
if (FBuffer <> nil) then FreeAndNil(FBuffer);
FBuffer := TBitmap.Create(aWidth, aHeight);
{$IFDEF DELPHI17_UP}
FBuffer.BitmapScale := ScreenScale;
FScanlineSize := FBuffer.BytesPerLine;
{$ELSE}
FScanlineSize := aWidth * SizeOf(TRGBQuad);
{$ENDIF}
Result := True;
end;
end;
function TFMXBufferPanel.BufferIsResized(aUseMutex : boolean) : boolean;
var
TempWidth, TempHeight : integer;
begin
Result := False;
if not(aUseMutex) or BeginBufferDraw then
begin
TempWidth := round(Width * GlobalCEFApp.DeviceScaleFactor);
TempHeight := round(Height * GlobalCEFApp.DeviceScaleFactor);
Result := (FBuffer <> nil) and
(FBuffer.Width = TempWidth) and
(FBuffer.Height = TempHeight);
if aUseMutex then EndBufferDraw;
end;
end;
function TFMXBufferPanel.ScreenToClient(aPoint : TPoint) : TPoint;
var
TempPoint : TPointF;
begin
TempPoint.x := aPoint.x;
TempPoint.y := aPoint.y;
TempPoint := ScreenToLocal(TempPoint);
Result.x := round(TempPoint.x);
Result.y := round(TempPoint.y);
end;
function TFMXBufferPanel.ClientToScreen(aPoint : TPoint) : TPoint;
var
TempPoint : TPointF;
begin
TempPoint.x := aPoint.x;
TempPoint.y := aPoint.y;
TempPoint := LocalToScreen(TempPoint);
Result.x := round(TempPoint.x);
Result.y := round(TempPoint.y);
end;
end.

3435
source/uFMXChromium.pas Normal file
View File

File diff suppressed because it is too large Load Diff

260
source/uFMXWorkScheduler.pas Normal file
View File

@ -0,0 +1,260 @@
// ************************************************************************
// ***************************** 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.
*
*)
unit uFMXWorkScheduler;
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
System.Classes, System.Types,
FMX.Types, FMX.Controls,
uCEFConstants, uCEFWorkSchedulerThread;
type
TFMXWorkScheduler = class(TComponent)
protected
FThread : TCEFWorkSchedulerThread;
FDepleteWorkCycles : cardinal;
FDepleteWorkDelay : cardinal;
FDefaultInterval : integer;
FStopped : boolean;
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
FPriority : TThreadPriority;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure CreateThread;
procedure DestroyThread;
procedure DepleteWork;
procedure NextPulse(aInterval : integer);
procedure DoWork;
procedure DoMessageLoopWork;
procedure SetDefaultInterval(aValue : integer);
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
procedure SetPriority(aValue : TThreadPriority);
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure Thread_OnPulse(Sender : TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure AfterConstruction; override;
procedure ScheduleMessagePumpWork(const delay_ms : int64);
procedure StopScheduler;
procedure ScheduleWork(const delay_ms : int64);
published
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
property Priority : TThreadPriority read FPriority write SetPriority default tpNormal;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
property DefaultInterval : integer read FDefaultInterval write SetDefaultInterval default CEF_TIMER_MAXDELAY;
property DepleteWorkCycles : cardinal read FDepleteWorkCycles write FDepleteWorkCycles default CEF_TIMER_DEPLETEWORK_CYCLES;
property DepleteWorkDelay : cardinal read FDepleteWorkDelay write FDepleteWorkDelay default CEF_TIMER_DEPLETEWORK_DELAY;
end;
implementation
uses
{$IFDEF MSWINDOWS}
WinApi.Windows,
{$ENDIF}
System.SysUtils, System.Math,
FMX.Platform, FMX.Platform.Win, FMX.Forms,
uCEFMiscFunctions, uCEFApplication;
constructor TFMXWorkScheduler.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FThread := nil;
FStopped := False;
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
FPriority := tpNormal;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
FDefaultInterval := CEF_TIMER_MAXDELAY;
FDepleteWorkCycles := CEF_TIMER_DEPLETEWORK_CYCLES;
FDepleteWorkDelay := CEF_TIMER_DEPLETEWORK_DELAY;
end;
destructor TFMXWorkScheduler.Destroy;
begin
DestroyThread;
inherited Destroy;
end;
procedure TFMXWorkScheduler.AfterConstruction;
begin
inherited AfterConstruction;
if not(csDesigning in ComponentState) then CreateThread;
end;
procedure TFMXWorkScheduler.CreateThread;
begin
FThread := TCEFWorkSchedulerThread.Create;
{$IFDEF MSWINDOWS}
FThread.Priority := FPriority;
{$ENDIF}
FThread.DefaultInterval := FDefaultInterval;
FThread.OnPulse := Thread_OnPulse;
FThread.Start;
end;
procedure TFMXWorkScheduler.DestroyThread;
begin
try
if (FThread <> nil) then
begin
FThread.Terminate;
FThread.NextPulse(0);
FThread.WaitFor;
FreeAndNil(FThread);
end;
except
on e : exception do
if CustomExceptionHandler('TFMXWorkScheduler.DestroyThread', e) then raise;
end;
end;
procedure TFMXWorkScheduler.DoMessageLoopWork;
begin
if (GlobalCEFApp <> nil) then GlobalCEFApp.DoMessageLoopWork;
end;
procedure TFMXWorkScheduler.SetDefaultInterval(aValue : integer);
begin
FDefaultInterval := aValue;
if (FThread <> nil) then FThread.DefaultInterval := aValue;
end;
{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}
procedure TFMXWorkScheduler.SetPriority(aValue : TThreadPriority);
begin
FPriority := aValue;
if (FThread <> nil) then FThread.Priority := aValue;
end;
{$WARN SYMBOL_PLATFORM ON}
{$ENDIF}
procedure TFMXWorkScheduler.DepleteWork;
var
i : cardinal;
begin
i := FDepleteWorkCycles;
while (i > 0) do
begin
DoMessageLoopWork;
Sleep(FDepleteWorkDelay);
dec(i);
end;
end;
procedure TFMXWorkScheduler.ScheduleMessagePumpWork(const delay_ms : int64);
{$IFDEF MSWINDOWS}
var
TempHandle : HWND;
{$ENDIF}
begin
if not(FStopped) then
begin
{$IFDEF MSWINDOWS}
{$IFDEF DELPHI17_UP}
TempHandle := ApplicationHWND;
{$ELSE}
TempHandle := FmxHandleToHWND(Application.MainForm.Handle);
{$ENDIF}
if (TempHandle <> 0) then
WinApi.Windows.PostMessage(TempHandle, CEF_PUMPHAVEWORK, 0, LPARAM(delay_ms));
{$ENDIF}
end;
end;
procedure TFMXWorkScheduler.StopScheduler;
begin
FStopped := True;
NextPulse(0);
DepleteWork;
end;
procedure TFMXWorkScheduler.Thread_OnPulse(Sender: TObject);
begin
if not(FStopped) then DoMessageLoopWork;
end;
procedure TFMXWorkScheduler.DoWork;
begin
DoMessageLoopWork;
NextPulse(FDefaultInterval);
end;
procedure TFMXWorkScheduler.ScheduleWork(const delay_ms : int64);
begin
if not(FStopped) then
begin
if (delay_ms <= 0) then
DoWork
else
NextPulse(delay_ms);
end;
end;
procedure TFMXWorkScheduler.NextPulse(aInterval : integer);
begin
if (FThread <> nil) then FThread.NextPulse(aInterval);
end;
end.