pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +02:00
Code Issues Actions Releases Activity

Update to CEF 75.0.13

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-07-04 10:03:43 +02:00
parent 6ad2c32243
commit 5d36c422eb
8 changed files with 78 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D
CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 75.0.11 which includes Chromium 75.0.3770.100.
CEF4Delphi uses CEF 75.0.13 which includes Chromium 75.0.3770.100.
The CEF binaries used by CEF4Delphi are available for download at spotify :
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.0.11%2Bgf50b3c2%2Bchromium-75.0.3770.100_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.0.11%2Bgf50b3c2%2Bchromium-75.0.3770.100_windows64.tar.bz2)
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.0.13%2Bg2c92fcd%2Bchromium-75.0.3770.100_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.0.13%2Bg2c92fcd%2Bchromium-75.0.3770.100_windows64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.2/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

2
demos/Delphi_VCL/MiniBrowser/MiniBrowser.dpr
View File

@ -65,6 +65,8 @@ begin
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
GlobalCEFApp.DisableFeatures := 'NetworkService';
if GlobalCEFApp.StartMainProcess then
begin
Application.Initialize;

2
packages/cef4delphi_lazarus.lpk
View File

@ -21,7 +21,7 @@
</CompilerOptions>
<Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
<License Value="MPL 1.1"/>
<Version Major="75" Release="11"/>
<Version Major="75" Release="13"/>
<Files Count="143">
<Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

5
source/uCEFApplication.pas
View File

@ -62,7 +62,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 75;
CEF_SUPPORTED_VERSION_MINOR = 0;
CEF_SUPPORTED_VERSION_RELEASE = 11;
CEF_SUPPORTED_VERSION_RELEASE = 13;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 75;
@ -1575,9 +1575,6 @@ begin
appUserGestureRequired :
commandLine.AppendSwitchWithValue('--autoplay-policy', 'user-gesture-required');
appUserGestureRequiredForCrossOrigin :
commandLine.AppendSwitchWithValue('--autoplay-policy', 'user-gesture-required-for-cross-origin');
end;
if FFastUnload then

46
source/uCEFChromium.pas
View File

@ -2192,9 +2192,11 @@ begin
TempManager := FBrowser.Host.RequestContext.GetCookieManager(nil);
if (TempManager <> nil) then
begin
try
TempCallback := TCefCustomDeleteCookiesCallback.Create(self);
Result := TempManager.DeleteCookies(url, cookieName, TempCallback);
finally
TempCallback := nil;
end;
end;
end;
@ -2213,9 +2215,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -2225,9 +2229,11 @@ var
TempVisitor : ICefStringVisitor;
begin
if Initialized and (aFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
aFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
@ -2244,9 +2250,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -2265,9 +2273,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -2277,9 +2287,11 @@ var
TempVisitor : ICefStringVisitor;
begin
if Initialized and (aFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
aFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
@ -2296,21 +2308,25 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
procedure TChromium.GetNavigationEntries(currentOnly: Boolean);
var
TempVisitor : TCustomCefNavigationEntryVisitor;
TempVisitor : ICefNavigationEntryVisitor;
begin
if Initialized then
begin
try
TempVisitor := TCustomCefNavigationEntryVisitor.Create(self);
FBrowser.Host.GetNavigationEntries(TempVisitor, currentOnly);
finally
TempVisitor := nil;
end;
end;
@ -2329,9 +2345,11 @@ var
TempTask: ICefTask;
begin
if Initialized then
begin
try
TempTask := TCefUpdatePrefsTask.Create(self);
CefPostTask(TID_UI, TempTask);
finally
TempTask := nil;
end;
end;
@ -2340,10 +2358,12 @@ var
TempTask: ICefTask;
begin
if Initialized and (length(aFileName) > 0) then
begin
try
FPrefsFileName := aFileName;
TempTask := TCefSavePrefsTask.Create(self);
CefPostTask(TID_UI, TempTask);
finally
TempTask := nil;
end;
end;
@ -2366,9 +2386,11 @@ var
begin
// Results will be received in the OnResolvedHostAvailable event of this class
if Initialized and (length(aURL) > 0) then
begin
try
TempCallback := TCefCustomResolveCallback.Create(self);
FBrowser.Host.RequestContext.ResolveHost(aURL, TempCallback);
finally
TempCallback := nil;
end;
end;

46
source/uCEFFMXChromium.pas
View File

@ -1965,9 +1965,11 @@ begin
TempManager := FBrowser.Host.RequestContext.GetCookieManager(nil);
if (TempManager <> nil) then
begin
try
TempCallback := TCefCustomDeleteCookiesCallback.Create(self);
Result := TempManager.DeleteCookies(url, cookieName, TempCallback);
finally
TempCallback := nil;
end;
end;
end;
@ -1986,9 +1988,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -1998,9 +2002,11 @@ var
TempVisitor : ICefStringVisitor;
begin
if Initialized and (aFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
aFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
@ -2017,9 +2023,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetSource(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -2038,9 +2046,11 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
@ -2050,9 +2060,11 @@ var
TempVisitor : ICefStringVisitor;
begin
if Initialized and (aFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
aFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
@ -2069,21 +2081,25 @@ begin
TempFrame := FBrowser.MainFrame;
if (TempFrame <> nil) then
begin
try
TempVisitor := TCustomCefStringVisitor.Create(self);
TempFrame.GetText(TempVisitor);
finally
TempVisitor := nil;
end;
end;
end;
procedure TFMXChromium.GetNavigationEntries(currentOnly: Boolean);
var
TempVisitor : TCustomCefNavigationEntryVisitor;
TempVisitor : ICefNavigationEntryVisitor;
begin
if Initialized then
begin
try
TempVisitor := TCustomCefNavigationEntryVisitor.Create(self);
FBrowser.Host.GetNavigationEntries(TempVisitor, currentOnly);
finally
TempVisitor := nil;
end;
end;
@ -2102,9 +2118,11 @@ var
TempTask: ICefTask;
begin
if Initialized then
begin
try
TempTask := TCefUpdatePrefsTask.Create(self);
CefPostTask(TID_UI, TempTask);
finally
TempTask := nil;
end;
end;
@ -2113,10 +2131,12 @@ var
TempTask: ICefTask;
begin
if Initialized and (length(aFileName) > 0) then
begin
try
FPrefsFileName := aFileName;
TempTask := TCefSavePrefsTask.Create(self);
CefPostTask(TID_UI, TempTask);
finally
TempTask := nil;
end;
end;
@ -2126,9 +2146,11 @@ var
begin
// Results will be received in the OnResolvedHostAvailable event of this class
if Initialized and (length(aURL) > 0) then
begin
try
TempCallback := TCefCustomResolveCallback.Create(self);
FBrowser.Host.RequestContext.ResolveHost(aURL, TempCallback);
finally
TempCallback := nil;
end;
end;

3
source/uCEFTypes.pas
View File

@ -382,8 +382,7 @@ type
TCefAutoplayPolicy = (appDefault,
appDocumentUserActivationRequired,
appNoUserGestureRequired,
appUserGestureRequired,
appUserGestureRequiredForCrossOrigin);
appUserGestureRequired);
TCefWebRTCHandlingPolicy = (
hpDefault,

4
update_CEF4Delphi.json
View File

@ -2,9 +2,9 @@
"UpdateLazPackages" : [
{
"ForceNotify" : false,
"InternalVersion" : 13,
"InternalVersion" : 14,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "75.0.11.0"
"Version" : "75.0.13.0"
}
],
"UpdatePackageData" : {