pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 114.2.10

Browse Source
This commit is contained in:
salvadordf
2023-06-09 15:13:45 +02:00
parent f216f751dd
commit f2237604fb
11 changed files with 112 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
README.md
View File

@ -3,14 +3,15 @@ CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chro
CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file. CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 113.3.5 which includes Chromium 113.0.5672.129. CEF4Delphi uses CEF 114.2.10 which includes Chromium 114.0.5735.110.
The CEF binaries used by CEF4Delphi are available for download at Spotify : The CEF binaries used by CEF4Delphi are available for download at Spotify :
* [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_113.3.5%2Bg0b33855%2Bchromium-113.0.5672.129_windows32.tar.bz2) * [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_windows32.tar.bz2)
* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_113.3.5%2Bg0b33855%2Bchromium-113.0.5672.129_windows64.tar.bz2) * [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_windows64.tar.bz2)
* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_113.3.5%2Bg0b33855%2Bchromium-113.0.5672.129_linux64.tar.bz2) * [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_linux64.tar.bz2)
* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_113.3.5%2Bg0b33855%2Bchromium-113.0.5672.129_linuxarm64.tar.bz2) * [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_linuxarm.tar.bz2)
* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_113.3.5%2Bg0b33855%2Bchromium-113.0.5672.129_macosx64.tar.bz2) * [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_linuxarm64.tar.bz2)
* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_114.2.10%2Bg398e3c3%2Bchromium-114.0.5735.110_macosx64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 11.3 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3, Delphi 10.4 and Lazarus 2.2.6/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 11.3 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3, Delphi 10.4 and Lazarus 2.2.6/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

4
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -619,6 +619,7 @@ procedure TMiniBrowserFrm.Chromium1CursorChange(Sender: TObject;
cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo;
var aResult: Boolean); var aResult: Boolean);
begin begin
aResult := True;
CEFWindowParent1.Cursor := CefCursorToWindowsCursor(cursorType); CEFWindowParent1.Cursor := CefCursorToWindowsCursor(cursorType);
end; end;
@ -656,6 +657,9 @@ begin
else else
if downloadItem.IsCanceled then if downloadItem.IsCanceled then
ShowStatusText(downloadItem.FullPath + ' canceled') ShowStatusText(downloadItem.FullPath + ' canceled')
else
if downloadItem.IsInterrupted then
ShowStatusText(downloadItem.FullPath + ' interrupted')
else else
if downloadItem.IsInProgress then if downloadItem.IsInProgress then
begin begin

3
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
View File

@ -708,6 +708,9 @@ begin
else else
if downloadItem.IsCanceled then if downloadItem.IsCanceled then
ShowStatusText(downloadItem.FullPath + ' canceled') ShowStatusText(downloadItem.FullPath + ' canceled')
else
if downloadItem.IsInterrupted then
ShowStatusText(downloadItem.FullPath + ' interrupted')
else else
if downloadItem.IsInProgress then if downloadItem.IsInProgress then
begin begin

2
packages/cef4delphi_lazarus.lpk
View File

@ -21,7 +21,7 @@
</CompilerOptions> </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."/> <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"/> <License Value="MPL 1.1"/>
<Version Major="113" Minor="3" Release="5"/> <Version Major="114" Minor="2" Release="10"/>
<Files Count="214"> <Files Count="214">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

33
source/uCEFConstants.pas
View File

@ -1040,6 +1040,39 @@ const
CEF_API_HASH_UNIVERSAL = 1; CEF_API_HASH_UNIVERSAL = 1;
CEF_COMMIT_HASH = 2; CEF_COMMIT_HASH = 2;
// /include/internal/cef_types.h (cef_download_interrupt_reason_t)
CEF_DOWNLOAD_INTERRUPT_REASON_NONE = 0;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_FAILED = 1;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_ACCESS_DENIED = 2;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_NO_SPACE = 3;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_NAME_TOO_LONG = 5;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_TOO_LARGE = 6;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_VIRUS_INFECTED = 7;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_TRANSIENT_ERROR = 10;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_BLOCKED = 11;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_SECURITY_CHECK_FAILED = 12;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_TOO_SHORT = 13;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_HASH_MISMATCH = 14;
CEF_DOWNLOAD_INTERRUPT_REASON_FILE_SAME_AS_SOURCE = 15;
CEF_DOWNLOAD_INTERRUPT_REASON_NETWORK_FAILED = 20;
CEF_DOWNLOAD_INTERRUPT_REASON_NETWORK_TIMEOUT = 21;
CEF_DOWNLOAD_INTERRUPT_REASON_NETWORK_DISCONNECTED = 22;
CEF_DOWNLOAD_INTERRUPT_REASON_NETWORK_SERVER_DOWN = 23;
CEF_DOWNLOAD_INTERRUPT_REASON_NETWORK_INVALID_REQUEST = 24;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_FAILED = 30;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_NO_RANGE = 31;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_BAD_CONTENT = 33;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_UNAUTHORIZED = 34;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_CERT_PROBLEM = 35;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_FORBIDDEN = 36;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_UNREACHABLE = 37;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_CONTENT_LENGTH_MISMATCH = 38;
CEF_DOWNLOAD_INTERRUPT_REASON_SERVER_CROSS_ORIGIN_REDIRECT = 39;
CEF_DOWNLOAD_INTERRUPT_REASON_USER_CANCELED = 40;
CEF_DOWNLOAD_INTERRUPT_REASON_USER_SHUTDOWN = 41;
CEF_DOWNLOAD_INTERRUPT_REASON_CRASH = 50;
//****************************************************** //******************************************************
//****************** OTHER CONSTANTS ******************* //****************** OTHER CONSTANTS *******************

12
source/uCEFDownLoadItem.pas
View File

@ -58,6 +58,8 @@ type
function IsInProgress: Boolean; function IsInProgress: Boolean;
function IsComplete: Boolean; function IsComplete: Boolean;
function IsCanceled: Boolean; function IsCanceled: Boolean;
function IsInterrupted: Boolean;
function GetInterruptReason: TCefDownloadInterruptReason;
function GetCurrentSpeed: Int64; function GetCurrentSpeed: Int64;
function GetPercentComplete: Integer; function GetPercentComplete: Integer;
function GetTotalBytes: Int64; function GetTotalBytes: Int64;
@ -150,6 +152,16 @@ begin
Result := PCefDownloadItem(FData)^.is_canceled(PCefDownloadItem(FData)) <> 0; Result := PCefDownloadItem(FData)^.is_canceled(PCefDownloadItem(FData)) <> 0;
end; end;
function TCefDownLoadItemRef.IsInterrupted: Boolean;
begin
Result := PCefDownloadItem(FData)^.is_interrupted(PCefDownloadItem(FData)) <> 0;
end;
function TCefDownLoadItemRef.GetInterruptReason: TCefDownloadInterruptReason;
begin
Result := PCefDownloadItem(FData)^.get_interrupt_reason(PCefDownloadItem(FData));
end;
function TCefDownLoadItemRef.IsComplete: Boolean; function TCefDownLoadItemRef.IsComplete: Boolean;
begin begin
Result := PCefDownloadItem(FData)^.is_complete(PCefDownloadItem(FData)) <> 0; Result := PCefDownloadItem(FData)^.is_complete(PCefDownloadItem(FData)) <> 0;

3
source/uCEFInterfaces.pas
View File

@ -911,6 +911,8 @@ type
function IsInProgress: Boolean; function IsInProgress: Boolean;
function IsComplete: Boolean; function IsComplete: Boolean;
function IsCanceled: Boolean; function IsCanceled: Boolean;
function IsInterrupted: Boolean;
function GetInterruptReason: TCefDownloadInterruptReason;
function GetCurrentSpeed: Int64; function GetCurrentSpeed: Int64;
function GetPercentComplete: Integer; function GetPercentComplete: Integer;
function GetTotalBytes: Int64; function GetTotalBytes: Int64;
@ -938,6 +940,7 @@ type
property SuggestedFileName : ustring read GetSuggestedFileName; property SuggestedFileName : ustring read GetSuggestedFileName;
property ContentDisposition : ustring read GetContentDisposition; property ContentDisposition : ustring read GetContentDisposition;
property MimeType : ustring read GetMimeType; property MimeType : ustring read GetMimeType;
property InterruptReason : TCefDownloadInterruptReason read GetInterruptReason;
end; end;
// TCefBeforeDownloadCallback // TCefBeforeDownloadCallback

18
source/uCEFMiscFunctions.pas
View File

@ -1553,63 +1553,63 @@ begin
begin begin
TempBuild := StrToIntDef(TempRegKey.ReadString('CurrentBuildNumber'), 0); TempBuild := StrToIntDef(TempRegKey.ReadString('CurrentBuildNumber'), 0);
if (TempBuild > 22000) then // Windows 11 if (TempBuild >= 22000) then // Windows 11
begin begin
aMajor := 10; aMajor := 10;
aMinor := 0; aMinor := 0;
Result := True; Result := True;
end end
else else
if (TempBuild > 10240) then // Windows 10 if (TempBuild >= 10240) then // Windows 10
begin begin
aMajor := 10; aMajor := 10;
aMinor := 0; aMinor := 0;
Result := True; Result := True;
end end
else else
if (TempBuild > 9600) then // Windows 8.1 if (TempBuild >= 9600) then // Windows 8.1
begin begin
aMajor := 6; aMajor := 6;
aMinor := 3; aMinor := 3;
Result := True; Result := True;
end end
else else
if (TempBuild > 9200) then // Windows 8 if (TempBuild >= 9200) then // Windows 8
begin begin
aMajor := 6; aMajor := 6;
aMinor := 2; aMinor := 2;
Result := True; Result := True;
end end
else else
if (TempBuild > 7600) then // Windows 7 if (TempBuild >= 7600) then // Windows 7
begin begin
aMajor := 6; aMajor := 6;
aMinor := 1; aMinor := 1;
Result := True; Result := True;
end end
else else
if (TempBuild > 6000) then // Windows Vista if (TempBuild >= 6000) then // Windows Vista
begin begin
aMajor := 6; aMajor := 6;
aMinor := 0; aMinor := 0;
Result := True; Result := True;
end end
else else
if (TempBuild > 3790) then // Windows Server 2003 if (TempBuild >= 3790) then // Windows Server 2003
begin begin
aMajor := 5; aMajor := 5;
aMinor := 2; aMinor := 2;
Result := True; Result := True;
end end
else else
if (TempBuild > 2600) then // Windows XP if (TempBuild >= 2600) then // Windows XP
begin begin
aMajor := 5; aMajor := 5;
aMinor := 1; aMinor := 1;
Result := True; Result := True;
end end
else else
if (TempBuild > 2195) then // Windows 2000 if (TempBuild >= 2195) then // Windows 2000
begin begin
aMajor := 5; aMajor := 5;
aMinor := 0; aMinor := 0;

3
source/uCEFTypes.pas
View File

@ -337,6 +337,7 @@ type
TCefTouchHandleStateFlags = type Integer; // /include/internal/cef_types.h (cef_touch_handle_state_flags_t) TCefTouchHandleStateFlags = type Integer; // /include/internal/cef_types.h (cef_touch_handle_state_flags_t)
TCefMediaAccessPermissionTypes = type Integer; // /include/internal/cef_types.h (cef_media_access_permission_types_t) TCefMediaAccessPermissionTypes = type Integer; // /include/internal/cef_types.h (cef_media_access_permission_types_t)
TCefPermissionRequestTypes = type Integer; // /include/internal/cef_types.h (cef_permission_request_types_t) TCefPermissionRequestTypes = type Integer; // /include/internal/cef_types.h (cef_permission_request_types_t)
TCefDownloadInterruptReason = type Integer; // /include/internal/cef_types.h (cef_download_interrupt_reason_t)
{$IFDEF FPC} {$IFDEF FPC}
@ -2754,6 +2755,8 @@ type
is_in_progress : function(self: PCefDownloadItem): Integer; stdcall; is_in_progress : function(self: PCefDownloadItem): Integer; stdcall;
is_complete : function(self: PCefDownloadItem): Integer; stdcall; is_complete : function(self: PCefDownloadItem): Integer; stdcall;
is_canceled : function(self: PCefDownloadItem): Integer; stdcall; is_canceled : function(self: PCefDownloadItem): Integer; stdcall;
is_interrupted : function(self: PCefDownloadItem): Integer; stdcall;
get_interrupt_reason : function(self: PCefDownloadItem): TCefDownloadInterruptReason; stdcall;
get_current_speed : function(self: PCefDownloadItem): Int64; stdcall; get_current_speed : function(self: PCefDownloadItem): Int64; stdcall;
get_percent_complete : function(self: PCefDownloadItem): Integer; stdcall; get_percent_complete : function(self: PCefDownloadItem): Integer; stdcall;
get_total_bytes : function(self: PCefDownloadItem): Int64; stdcall; get_total_bytes : function(self: PCefDownloadItem): Int64; stdcall;

10
source/uCEFVersion.inc
View File

@ -1,9 +1,9 @@
CEF_SUPPORTED_VERSION_MAJOR = 113; CEF_SUPPORTED_VERSION_MAJOR = 114;
CEF_SUPPORTED_VERSION_MINOR = 3; CEF_SUPPORTED_VERSION_MINOR = 2;
CEF_SUPPORTED_VERSION_RELEASE = 5; CEF_SUPPORTED_VERSION_RELEASE = 10;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = CEF_SUPPORTED_VERSION_MAJOR; CEF_CHROMEELF_VERSION_MAJOR = CEF_SUPPORTED_VERSION_MAJOR;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 5672; CEF_CHROMEELF_VERSION_RELEASE = 5735;
CEF_CHROMEELF_VERSION_BUILD = 129; CEF_CHROMEELF_VERSION_BUILD = 110;

4
update_CEF4Delphi.json
View File

@ -2,9 +2,9 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 489, "InternalVersion" : 490,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "113.3.5" "Version" : "114.2.10"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {