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 105.3.25

Browse Source
This commit is contained in:
salvadordf
2022-09-04 19:18:07 +02:00
parent ccd7f30724
commit 0cfd39aae4
17 changed files with 235 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
README.md
View File

@ -3,15 +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 104.4.26 which includes Chromium 104.0.5112.102. CEF4Delphi uses CEF 105.3.25 which includes Chromium 105.0.5195.54.
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_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_windows32.tar.bz2) * [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_windows32.tar.bz2)
* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_windows64.tar.bz2) * [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_windows64.tar.bz2)
* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_linux64.tar.bz2) * [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_linux64.tar.bz2)
* [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_linuxarm.tar.bz2) * [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_linuxarm.tar.bz2)
* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_linuxarm64.tar.bz2) * [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_linuxarm64.tar.bz2)
* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_104.4.26%2Bg4180781%2Bchromium-104.0.5112.102_macosx64.tar.bz2) * [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_105.3.25%2Bg0ca6a9e%2Bchromium-105.0.5195.54_macosx64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 11.1 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.2/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 11.1 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.2/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

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="104" Minor="4" Release="26"/> <Version Major="105" Minor="3" Release="25"/>
<Files Count="210"> <Files Count="210">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

33
source/uCEFApplicationCore.pas
View File

@ -66,15 +66,15 @@ uses
uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar; uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar;
const const
CEF_SUPPORTED_VERSION_MAJOR = 104; CEF_SUPPORTED_VERSION_MAJOR = 105;
CEF_SUPPORTED_VERSION_MINOR = 4; CEF_SUPPORTED_VERSION_MINOR = 3;
CEF_SUPPORTED_VERSION_RELEASE = 26; CEF_SUPPORTED_VERSION_RELEASE = 25;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 104; CEF_CHROMEELF_VERSION_MAJOR = 105;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 5112; CEF_CHROMEELF_VERSION_RELEASE = 5195;
CEF_CHROMEELF_VERSION_BUILD = 102; CEF_CHROMEELF_VERSION_BUILD = 54;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
LIBCEF_DLL = 'libcef.dll'; LIBCEF_DLL = 'libcef.dll';
@ -3214,19 +3214,26 @@ end;
function TCefApplicationCore.Load_cef_time_h : boolean; function TCefApplicationCore.Load_cef_time_h : boolean;
begin begin
{$IFDEF FPC}Pointer({$ENDIF}cef_time_to_timet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_to_timet'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_to_timet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_to_timet');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_from_timet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_from_timet'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_from_timet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_from_timet');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_to_doublet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_to_doublet'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_to_doublet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_to_doublet');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_from_doublet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_from_doublet'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_from_doublet{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_from_doublet');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_now{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_now'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_now{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_now');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_delta{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_delta'); {$IFDEF FPC}Pointer({$ENDIF}cef_time_delta{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_delta');
{$IFDEF FPC}Pointer({$ENDIF}cef_basetime_now{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_basetime_now');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_to_basetime{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_to_basetime');
{$IFDEF FPC}Pointer({$ENDIF}cef_time_from_basetime{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_time_from_basetime');
Result := assigned(cef_time_to_timet) and Result := assigned(cef_time_to_timet) and
assigned(cef_time_from_timet) and assigned(cef_time_from_timet) and
assigned(cef_time_to_doublet) and assigned(cef_time_to_doublet) and
assigned(cef_time_from_doublet) and assigned(cef_time_from_doublet) and
assigned(cef_time_now) and assigned(cef_time_now) and
assigned(cef_time_delta); assigned(cef_time_delta) and
assigned(cef_basetime_now) and
assigned(cef_time_to_basetime) and
assigned(cef_time_from_basetime);
end; end;
// TCEFDirectoryDeleterThread // TCEFDirectoryDeleterThread

1
source/uCEFConstants.pas
View File

@ -598,7 +598,6 @@ const
CEF_MRCR_CANCELLED = 8; CEF_MRCR_CANCELLED = 8;
CEF_MRCR_ROUTE_ALREADY_EXISTS = 9; CEF_MRCR_ROUTE_ALREADY_EXISTS = 9;
CEF_MRCR_ROUTE_ALREADY_TERMINATED = 11; CEF_MRCR_ROUTE_ALREADY_TERMINATED = 11;
CEF_MRCR_TOTAL_COUNT = 12;
// /include/internal/cef_types.h (cef_cookie_priority_t) // /include/internal/cef_types.h (cef_cookie_priority_t)
CEF_COOKIE_PRIORITY_LOW = -1; CEF_COOKIE_PRIORITY_LOW = -1;

8
source/uCEFCookieManager.pas
View File

@ -143,16 +143,16 @@ begin
TempCookie.path := CefString(path); TempCookie.path := CefString(path);
TempCookie.secure := Ord(secure); TempCookie.secure := Ord(secure);
TempCookie.httponly := Ord(httponly); TempCookie.httponly := Ord(httponly);
TempCookie.creation := DateTimeToCefTime(creation); TempCookie.creation := DateTimeToCefBaseTime(creation);
TempCookie.last_access := DateTimeToCefTime(lastAccess); TempCookie.last_access := DateTimeToCefBaseTime(lastAccess);
TempCookie.has_expires := Ord(hasExpires); TempCookie.has_expires := Ord(hasExpires);
TempCookie.same_site := same_site; TempCookie.same_site := same_site;
TempCookie.priority := priority; TempCookie.priority := priority;
if hasExpires then if hasExpires then
TempCookie.expires := DateTimeToCefTime(expires) TempCookie.expires := DateTimeToCefBaseTime(expires)
else else
FillChar(TempCookie.expires, SizeOf(TCefTime), 0); TempCookie.expires := 0;
Result := PCefCookieManager(FData)^.set_cookie(PCefCookieManager(FData), @TempURL, @TempCookie, CefGetData(callback)) <> 0; Result := PCefCookieManager(FData)^.set_cookie(PCefCookieManager(FData), @TempURL, @TempCookie, CefGetData(callback)) <> 0;
end; end;

6
source/uCEFCookieVisitor.pas
View File

@ -107,7 +107,7 @@ begin
TempObject := CefGetObject(self); TempObject := CefGetObject(self);
if (cookie^.has_expires <> 0) then if (cookie^.has_expires <> 0) then
exp := CefTimeToDateTime(cookie^.expires) exp := CefBaseTimeToDateTime(cookie^.expires)
else else
exp := 0; exp := 0;
@ -119,8 +119,8 @@ begin
Boolean(cookie^.secure), Boolean(cookie^.secure),
Boolean(cookie^.httponly), Boolean(cookie^.httponly),
Boolean(cookie^.has_expires), Boolean(cookie^.has_expires),
CefTimeToDateTime(cookie^.creation), CefBaseTimeToDateTime(cookie^.creation),
CefTimeToDateTime(cookie^.last_access), CefBaseTimeToDateTime(cookie^.last_access),
exp, exp,
count, count,
total, total,

4
source/uCEFDownLoadItem.pas
View File

@ -92,7 +92,7 @@ end;
function TCefDownLoadItemRef.GetEndTime: TDateTime; function TCefDownLoadItemRef.GetEndTime: TDateTime;
begin begin
Result := CefTimeToDateTime(PCefDownloadItem(FData)^.get_end_time(PCefDownloadItem(FData))); Result := CefBaseTimeToDateTime(PCefDownloadItem(FData)^.get_end_time(PCefDownloadItem(FData)));
end; end;
function TCefDownLoadItemRef.GetFullPath: ustring; function TCefDownLoadItemRef.GetFullPath: ustring;
@ -127,7 +127,7 @@ end;
function TCefDownLoadItemRef.GetStartTime: TDateTime; function TCefDownLoadItemRef.GetStartTime: TDateTime;
begin begin
Result := CefTimeToDateTime(PCefDownloadItem(FData)^.get_start_time(PCefDownloadItem(FData))); Result := CefBaseTimeToDateTime(PCefDownloadItem(FData)^.get_start_time(PCefDownloadItem(FData)));
end; end;
function TCefDownLoadItemRef.GetSuggestedFileName: ustring; function TCefDownLoadItemRef.GetSuggestedFileName: ustring;

58
source/uCEFInterfaces.pas
View File

@ -1237,7 +1237,7 @@ type
function Close: Boolean; function Close: Boolean;
function GetFileName: ustring; function GetFileName: ustring;
function GetFileSize: Int64; function GetFileSize: Int64;
function GetFileLastModified: TCefTime; function GetFileLastModified: TCefBaseTime;
function OpenFile(const password: ustring): Boolean; function OpenFile(const password: ustring): Boolean;
function CloseFile: Boolean; function CloseFile: Boolean;
function ReadFile(buffer: Pointer; bufferSize: NativeUInt): Integer; function ReadFile(buffer: Pointer; bufferSize: NativeUInt): Integer;
@ -1665,54 +1665,54 @@ type
['{40AF19D3-8B4E-44B8-8F89-DEB5907FC495}'] ['{40AF19D3-8B4E-44B8-8F89-DEB5907FC495}']
function IsSubMenu: Boolean; function IsSubMenu: Boolean;
function Clear: Boolean; function Clear: Boolean;
function GetCount: Integer; function GetCount: NativeUInt;
function AddSeparator: Boolean; function AddSeparator: Boolean;
function AddItem(commandId: Integer; const text: ustring): Boolean; function AddItem(commandId: Integer; const text: ustring): Boolean;
function AddCheckItem(commandId: Integer; const text: ustring): Boolean; function AddCheckItem(commandId: Integer; const text: ustring): Boolean;
function AddRadioItem(commandId: Integer; const text: ustring; groupId: Integer): Boolean; function AddRadioItem(commandId: Integer; const text: ustring; groupId: Integer): Boolean;
function AddSubMenu(commandId: Integer; const text: ustring): ICefMenuModel; function AddSubMenu(commandId: Integer; const text: ustring): ICefMenuModel;
function InsertSeparatorAt(index: Integer): Boolean; function InsertSeparatorAt(index: NativeUInt): Boolean;
function InsertItemAt(index, commandId: Integer; const text: ustring): Boolean; function InsertItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
function InsertCheckItemAt(index, commandId: Integer; const text: ustring): Boolean; function InsertCheckItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
function InsertRadioItemAt(index, commandId: Integer; const text: ustring; groupId: Integer): Boolean; function InsertRadioItemAt(index: NativeUInt; commandId: Integer; const text: ustring; groupId: Integer): Boolean;
function InsertSubMenuAt(index, commandId: Integer; const text: ustring): ICefMenuModel; function InsertSubMenuAt(index: NativeUInt; commandId: Integer; const text: ustring): ICefMenuModel;
function Remove(commandId: Integer): Boolean; function Remove(commandId: Integer): Boolean;
function RemoveAt(index: Integer): Boolean; function RemoveAt(index: NativeUInt): Boolean;
function GetIndexOf(commandId: Integer): Integer; function GetIndexOf(commandId: Integer): Integer;
function GetCommandIdAt(index: Integer): Integer; function GetCommandIdAt(index: NativeUInt): Integer;
function SetCommandIdAt(index, commandId: Integer): Boolean; function SetCommandIdAt(index: NativeUInt; commandId: Integer): Boolean;
function GetLabel(commandId: Integer): ustring; function GetLabel(commandId: Integer): ustring;
function GetLabelAt(index: Integer): ustring; function GetLabelAt(index: NativeUInt): ustring;
function SetLabel(commandId: Integer; const text: ustring): Boolean; function SetLabel(commandId: Integer; const text: ustring): Boolean;
function SetLabelAt(index: Integer; const text: ustring): Boolean; function SetLabelAt(index: NativeUInt; const text: ustring): Boolean;
function GetType(commandId: Integer): TCefMenuItemType; function GetType(commandId: Integer): TCefMenuItemType;
function GetTypeAt(index: Integer): TCefMenuItemType; function GetTypeAt(index: NativeUInt): TCefMenuItemType;
function GetGroupId(commandId: Integer): Integer; function GetGroupId(commandId: Integer): Integer;
function GetGroupIdAt(index: Integer): Integer; function GetGroupIdAt(index: NativeUInt): Integer;
function SetGroupId(commandId, groupId: Integer): Boolean; function SetGroupId(commandId, groupId: Integer): Boolean;
function SetGroupIdAt(index, groupId: Integer): Boolean; function SetGroupIdAt(index: NativeUInt; groupId: Integer): Boolean;
function GetSubMenu(commandId: Integer): ICefMenuModel; function GetSubMenu(commandId: Integer): ICefMenuModel;
function GetSubMenuAt(index: Integer): ICefMenuModel; function GetSubMenuAt(index: NativeUInt): ICefMenuModel;
function IsVisible(commandId: Integer): Boolean; function IsVisible(commandId: Integer): Boolean;
function isVisibleAt(index: Integer): Boolean; function isVisibleAt(index: NativeUInt): Boolean;
function SetVisible(commandId: Integer; visible: Boolean): Boolean; function SetVisible(commandId: Integer; visible: Boolean): Boolean;
function SetVisibleAt(index: Integer; visible: Boolean): Boolean; function SetVisibleAt(index: NativeUInt; visible: Boolean): Boolean;
function IsEnabled(commandId: Integer): Boolean; function IsEnabled(commandId: Integer): Boolean;
function IsEnabledAt(index: Integer): Boolean; function IsEnabledAt(index: NativeUInt): Boolean;
function SetEnabled(commandId: Integer; enabled: Boolean): Boolean; function SetEnabled(commandId: Integer; enabled: Boolean): Boolean;
function SetEnabledAt(index: Integer; enabled: Boolean): Boolean; function SetEnabledAt(index: NativeUInt; enabled: Boolean): Boolean;
function IsChecked(commandId: Integer): Boolean; function IsChecked(commandId: Integer): Boolean;
function IsCheckedAt(index: Integer): Boolean; function IsCheckedAt(index: NativeUInt): Boolean;
function setChecked(commandId: Integer; checked: Boolean): Boolean; function setChecked(commandId: Integer; checked: Boolean): Boolean;
function setCheckedAt(index: Integer; checked: Boolean): Boolean; function setCheckedAt(index: NativeUInt; checked: Boolean): Boolean;
function HasAccelerator(commandId: Integer): Boolean; function HasAccelerator(commandId: Integer): Boolean;
function HasAcceleratorAt(index: Integer): Boolean; function HasAcceleratorAt(index: NativeUInt): Boolean;
function SetAccelerator(commandId, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function SetAccelerator(commandId, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function SetAcceleratorAt(index, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function SetAcceleratorAt(index: NativeUInt; keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function RemoveAccelerator(commandId: Integer): Boolean; function RemoveAccelerator(commandId: Integer): Boolean;
function RemoveAcceleratorAt(index: Integer): Boolean; function RemoveAcceleratorAt(index: NativeUInt): Boolean;
function GetAccelerator(commandId: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function GetAccelerator(commandId: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function GetAcceleratorAt(index: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function GetAcceleratorAt(index: NativeUInt; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function SetColor(commandId: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean; function SetColor(commandId: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean;
function SetColorAt(index: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean; function SetColorAt(index: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean;
function GetColor(commandId: Integer; colorType: TCefMenuColorType; out color: TCefColor): Boolean; function GetColor(commandId: Integer; colorType: TCefMenuColorType; out color: TCefColor): Boolean;
@ -2404,8 +2404,10 @@ type
function GetSubject: ICefX509CertPrincipal; function GetSubject: ICefX509CertPrincipal;
function GetIssuer: ICefX509CertPrincipal; function GetIssuer: ICefX509CertPrincipal;
function GetSerialNumber: ICefBinaryValue; function GetSerialNumber: ICefBinaryValue;
function GetValidStart: TCefTime; function GetValidStart: TCefBaseTime;
function GetValidExpiry: TCefTime; function GetValidExpiry: TCefBaseTime;
function GetValidStartAsDateTime: TDateTime;
function GetValidExpiryAsDateTime: TDateTime;
function GetDerEncoded: ICefBinaryValue; function GetDerEncoded: ICefBinaryValue;
function GetPemEncoded: ICefBinaryValue; function GetPemEncoded: ICefBinaryValue;
function GetIssuerChainSize: NativeUInt; function GetIssuerChainSize: NativeUInt;

5
source/uCEFLibFunctions.pas
View File

@ -219,7 +219,7 @@ var
cef_v8value_create_int : function(value: Integer): PCefv8Value; cdecl; cef_v8value_create_int : function(value: Integer): PCefv8Value; cdecl;
cef_v8value_create_uint : function(value: Cardinal): PCefv8Value; cdecl; cef_v8value_create_uint : function(value: Cardinal): PCefv8Value; cdecl;
cef_v8value_create_double : function(value: Double): PCefv8Value; cdecl; cef_v8value_create_double : function(value: Double): PCefv8Value; cdecl;
cef_v8value_create_date : function(const value: PCefTime): PCefv8Value; cdecl; cef_v8value_create_date : function(value: TCefBaseTime): PCefv8Value; cdecl;
cef_v8value_create_string : function(const value: PCefString): PCefv8Value; cdecl; cef_v8value_create_string : function(const value: PCefString): PCefv8Value; cdecl;
cef_v8value_create_object : function(accessor: PCefV8Accessor; interceptor: PCefV8Interceptor): PCefv8Value; cdecl; cef_v8value_create_object : function(accessor: PCefV8Accessor; interceptor: PCefV8Interceptor): PCefv8Value; cdecl;
cef_v8value_create_array : function(length: Integer): PCefv8Value; cdecl; cef_v8value_create_array : function(length: Integer): PCefv8Value; cdecl;
@ -356,7 +356,10 @@ var
cef_time_to_doublet : function(const cef_time: PCefTime; out time_: double): integer; cdecl; cef_time_to_doublet : function(const cef_time: PCefTime; out time_: double): integer; cdecl;
cef_time_from_doublet : function(time: double; out cef_time: TCefTime): integer; cdecl; cef_time_from_doublet : function(time: double; out cef_time: TCefTime): integer; cdecl;
cef_time_now : function(out cef_time: TCefTime): integer; cdecl; cef_time_now : function(out cef_time: TCefTime): integer; cdecl;
cef_basetime_now : function : TCefBaseTime; cdecl;
cef_time_delta : function(const cef_time1, cef_time2: PCefTime; out delta: int64): integer; cdecl; cef_time_delta : function(const cef_time1, cef_time2: PCefTime; out delta: int64): integer; cdecl;
cef_time_to_basetime : function(const from: PCefTime; to_: PCefBaseTime) : integer; cdecl;
cef_time_from_basetime : function(const from: TCefBaseTime; to_: PCefTime) : integer; cdecl;
// /include/internal/cef_trace_event_internal.h // /include/internal/cef_trace_event_internal.h
cef_trace_event_instant : procedure(const category, name, arg1_name: PAnsiChar; arg1_val: uint64; const arg2_name: PAnsiChar; arg2_val: UInt64; copy: Integer); cdecl; cef_trace_event_instant : procedure(const category, name, arg1_name: PAnsiChar; arg1_val: uint64; const arg2_name: PAnsiChar; arg2_val: UInt64; copy: Integer); cdecl;

100
source/uCEFMenuModel.pas
View File

@ -56,54 +56,54 @@ type
protected protected
function IsSubMenu: Boolean; function IsSubMenu: Boolean;
function Clear: Boolean; function Clear: Boolean;
function GetCount: Integer; function GetCount: NativeUInt;
function AddSeparator: Boolean; function AddSeparator: Boolean;
function AddItem(commandId: Integer; const text: ustring): Boolean; function AddItem(commandId: Integer; const text: ustring): Boolean;
function AddCheckItem(commandId: Integer; const text: ustring): Boolean; function AddCheckItem(commandId: Integer; const text: ustring): Boolean;
function AddRadioItem(commandId: Integer; const text: ustring; groupId: Integer): Boolean; function AddRadioItem(commandId: Integer; const text: ustring; groupId: Integer): Boolean;
function AddSubMenu(commandId: Integer; const text: ustring): ICefMenuModel; function AddSubMenu(commandId: Integer; const text: ustring): ICefMenuModel;
function InsertSeparatorAt(index: Integer): Boolean; function InsertSeparatorAt(index: NativeUInt): Boolean;
function InsertItemAt(index, commandId: Integer; const text: ustring): Boolean; function InsertItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
function InsertCheckItemAt(index, commandId: Integer; const text: ustring): Boolean; function InsertCheckItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
function InsertRadioItemAt(index, commandId: Integer; const text: ustring; groupId: Integer): Boolean; function InsertRadioItemAt(index: NativeUInt; commandId: Integer; const text: ustring; groupId: Integer): Boolean;
function InsertSubMenuAt(index, commandId: Integer; const text: ustring): ICefMenuModel; function InsertSubMenuAt(index: NativeUInt; commandId: Integer; const text: ustring): ICefMenuModel;
function Remove(commandId: Integer): Boolean; function Remove(commandId: Integer): Boolean;
function RemoveAt(index: Integer): Boolean; function RemoveAt(index: NativeUInt): Boolean;
function GetIndexOf(commandId: Integer): Integer; function GetIndexOf(commandId: Integer): Integer;
function GetCommandIdAt(index: Integer): Integer; function GetCommandIdAt(index: NativeUInt): Integer;
function SetCommandIdAt(index, commandId: Integer): Boolean; function SetCommandIdAt(index: NativeUInt; commandId: Integer): Boolean;
function GetLabel(commandId: Integer): ustring; function GetLabel(commandId: Integer): ustring;
function GetLabelAt(index: Integer): ustring; function GetLabelAt(index: NativeUInt): ustring;
function SetLabel(commandId: Integer; const text: ustring): Boolean; function SetLabel(commandId: Integer; const text: ustring): Boolean;
function SetLabelAt(index: Integer; const text: ustring): Boolean; function SetLabelAt(index: NativeUInt; const text: ustring): Boolean;
function GetType(commandId: Integer): TCefMenuItemType; function GetType(commandId: Integer): TCefMenuItemType;
function GetTypeAt(index: Integer): TCefMenuItemType; function GetTypeAt(index: NativeUInt): TCefMenuItemType;
function GetGroupId(commandId: Integer): Integer; function GetGroupId(commandId: Integer): Integer;
function GetGroupIdAt(index: Integer): Integer; function GetGroupIdAt(index: NativeUInt): Integer;
function SetGroupId(commandId, groupId: Integer): Boolean; function SetGroupId(commandId, groupId: Integer): Boolean;
function SetGroupIdAt(index, groupId: Integer): Boolean; function SetGroupIdAt(index: NativeUInt; groupId: Integer): Boolean;
function GetSubMenu(commandId: Integer): ICefMenuModel; function GetSubMenu(commandId: Integer): ICefMenuModel;
function GetSubMenuAt(index: Integer): ICefMenuModel; function GetSubMenuAt(index: NativeUInt): ICefMenuModel;
function IsVisible(commandId: Integer): Boolean; function IsVisible(commandId: Integer): Boolean;
function isVisibleAt(index: Integer): Boolean; function isVisibleAt(index: NativeUInt): Boolean;
function SetVisible(commandId: Integer; visible: Boolean): Boolean; function SetVisible(commandId: Integer; visible: Boolean): Boolean;
function SetVisibleAt(index: Integer; visible: Boolean): Boolean; function SetVisibleAt(index: NativeUInt; visible: Boolean): Boolean;
function IsEnabled(commandId: Integer): Boolean; function IsEnabled(commandId: Integer): Boolean;
function IsEnabledAt(index: Integer): Boolean; function IsEnabledAt(index: NativeUInt): Boolean;
function SetEnabled(commandId: Integer; enabled: Boolean): Boolean; function SetEnabled(commandId: Integer; enabled: Boolean): Boolean;
function SetEnabledAt(index: Integer; enabled: Boolean): Boolean; function SetEnabledAt(index: NativeUInt; enabled: Boolean): Boolean;
function IsChecked(commandId: Integer): Boolean; function IsChecked(commandId: Integer): Boolean;
function IsCheckedAt(index: Integer): Boolean; function IsCheckedAt(index: NativeUInt): Boolean;
function setChecked(commandId: Integer; checked: Boolean): Boolean; function setChecked(commandId: Integer; checked: Boolean): Boolean;
function setCheckedAt(index: Integer; checked: Boolean): Boolean; function setCheckedAt(index: NativeUInt; checked: Boolean): Boolean;
function HasAccelerator(commandId: Integer): Boolean; function HasAccelerator(commandId: Integer): Boolean;
function HasAcceleratorAt(index: Integer): Boolean; function HasAcceleratorAt(index: NativeUInt): Boolean;
function SetAccelerator(commandId, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function SetAccelerator(commandId, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function SetAcceleratorAt(index, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function SetAcceleratorAt(index: NativeUInt; keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function RemoveAccelerator(commandId: Integer): Boolean; function RemoveAccelerator(commandId: Integer): Boolean;
function RemoveAcceleratorAt(index: Integer): Boolean; function RemoveAcceleratorAt(index: NativeUInt): Boolean;
function GetAccelerator(commandId: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function GetAccelerator(commandId: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function GetAcceleratorAt(index: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function GetAcceleratorAt(index: NativeUInt; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
function SetColor(commandId: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean; function SetColor(commandId: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean;
function SetColorAt(index: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean; function SetColorAt(index: Integer; colorType: TCefMenuColorType; color: TCefColor): Boolean;
function GetColor(commandId: Integer; colorType: TCefMenuColorType; out color: TCefColor): Boolean; function GetColor(commandId: Integer; colorType: TCefMenuColorType; out color: TCefColor): Boolean;
@ -178,7 +178,7 @@ begin
altPressed := TempAlt <> 0; altPressed := TempAlt <> 0;
end; end;
function TCefMenuModelRef.GetAcceleratorAt(index: Integer; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function TCefMenuModelRef.GetAcceleratorAt(index: NativeUInt; out keyCode: Integer; out shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
var var
TempShift, TempCtrl, TempAlt : Integer; TempShift, TempCtrl, TempAlt : Integer;
begin begin
@ -224,12 +224,12 @@ begin
Result := PCefMenuModel(FData)^.set_font_list_at(PCefMenuModel(FData), index, @TempList) <> 0; Result := PCefMenuModel(FData)^.set_font_list_at(PCefMenuModel(FData), index, @TempList) <> 0;
end; end;
function TCefMenuModelRef.GetCommandIdAt(index: Integer): Integer; function TCefMenuModelRef.GetCommandIdAt(index: NativeUInt): Integer;
begin begin
Result := PCefMenuModel(FData)^.get_command_id_at(PCefMenuModel(FData), index); Result := PCefMenuModel(FData)^.get_command_id_at(PCefMenuModel(FData), index);
end; end;
function TCefMenuModelRef.GetCount: Integer; function TCefMenuModelRef.GetCount: NativeUInt;
begin begin
Result := PCefMenuModel(FData)^.get_count(PCefMenuModel(FData)); Result := PCefMenuModel(FData)^.get_count(PCefMenuModel(FData));
end; end;
@ -239,7 +239,7 @@ begin
Result := PCefMenuModel(FData)^.get_group_id(PCefMenuModel(FData), commandId); Result := PCefMenuModel(FData)^.get_group_id(PCefMenuModel(FData), commandId);
end; end;
function TCefMenuModelRef.GetGroupIdAt(index: Integer): Integer; function TCefMenuModelRef.GetGroupIdAt(index: NativeUInt): Integer;
begin begin
Result := PCefMenuModel(FData)^.get_group_id(PCefMenuModel(FData), index); Result := PCefMenuModel(FData)^.get_group_id(PCefMenuModel(FData), index);
end; end;
@ -254,7 +254,7 @@ begin
Result := CefStringFreeAndGet(PCefMenuModel(FData)^.get_label(PCefMenuModel(FData), commandId)); Result := CefStringFreeAndGet(PCefMenuModel(FData)^.get_label(PCefMenuModel(FData), commandId));
end; end;
function TCefMenuModelRef.GetLabelAt(index: Integer): ustring; function TCefMenuModelRef.GetLabelAt(index: NativeUInt): ustring;
begin begin
Result := CefStringFreeAndGet(PCefMenuModel(FData)^.get_label_at(PCefMenuModel(FData), index)); Result := CefStringFreeAndGet(PCefMenuModel(FData)^.get_label_at(PCefMenuModel(FData), index));
end; end;
@ -264,7 +264,7 @@ begin
Result := TCefMenuModelRef.UnWrap(PCefMenuModel(FData)^.get_sub_menu(PCefMenuModel(FData), commandId)); Result := TCefMenuModelRef.UnWrap(PCefMenuModel(FData)^.get_sub_menu(PCefMenuModel(FData), commandId));
end; end;
function TCefMenuModelRef.GetSubMenuAt(index: Integer): ICefMenuModel; function TCefMenuModelRef.GetSubMenuAt(index: NativeUInt): ICefMenuModel;
begin begin
Result := TCefMenuModelRef.UnWrap(PCefMenuModel(FData)^.get_sub_menu_at(PCefMenuModel(FData), index)); Result := TCefMenuModelRef.UnWrap(PCefMenuModel(FData)^.get_sub_menu_at(PCefMenuModel(FData), index));
end; end;
@ -274,7 +274,7 @@ begin
Result := PCefMenuModel(FData)^.get_type(PCefMenuModel(FData), commandId); Result := PCefMenuModel(FData)^.get_type(PCefMenuModel(FData), commandId);
end; end;
function TCefMenuModelRef.GetTypeAt(index: Integer): TCefMenuItemType; function TCefMenuModelRef.GetTypeAt(index: NativeUInt): TCefMenuItemType;
begin begin
Result := PCefMenuModel(FData)^.get_type_at(PCefMenuModel(FData), index); Result := PCefMenuModel(FData)^.get_type_at(PCefMenuModel(FData), index);
end; end;
@ -284,12 +284,12 @@ begin
Result := PCefMenuModel(FData)^.has_accelerator(PCefMenuModel(FData), commandId) <> 0; Result := PCefMenuModel(FData)^.has_accelerator(PCefMenuModel(FData), commandId) <> 0;
end; end;
function TCefMenuModelRef.HasAcceleratorAt(index: Integer): Boolean; function TCefMenuModelRef.HasAcceleratorAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.has_accelerator_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.has_accelerator_at(PCefMenuModel(FData), index) <> 0;
end; end;
function TCefMenuModelRef.InsertCheckItemAt(index, commandId: Integer; const text: ustring): Boolean; function TCefMenuModelRef.InsertCheckItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
var var
TempText : TCefString; TempText : TCefString;
begin begin
@ -297,7 +297,7 @@ begin
Result := PCefMenuModel(FData)^.insert_check_item_at(PCefMenuModel(FData), index, commandId, @TempText) <> 0; Result := PCefMenuModel(FData)^.insert_check_item_at(PCefMenuModel(FData), index, commandId, @TempText) <> 0;
end; end;
function TCefMenuModelRef.InsertItemAt(index, commandId: Integer; const text: ustring): Boolean; function TCefMenuModelRef.InsertItemAt(index: NativeUInt; commandId: Integer; const text: ustring): Boolean;
var var
TempText : TCefString; TempText : TCefString;
begin begin
@ -305,7 +305,7 @@ begin
Result := PCefMenuModel(FData)^.insert_item_at(PCefMenuModel(FData), index, commandId, @TempText) <> 0; Result := PCefMenuModel(FData)^.insert_item_at(PCefMenuModel(FData), index, commandId, @TempText) <> 0;
end; end;
function TCefMenuModelRef.InsertRadioItemAt(index, commandId: Integer; const text: ustring; groupId: Integer): Boolean; function TCefMenuModelRef.InsertRadioItemAt(index: NativeUInt; commandId: Integer; const text: ustring; groupId: Integer): Boolean;
var var
TempText : TCefString; TempText : TCefString;
begin begin
@ -313,12 +313,12 @@ begin
Result := PCefMenuModel(FData)^.insert_radio_item_at(PCefMenuModel(FData), index, commandId, @TempText, groupId) <> 0; Result := PCefMenuModel(FData)^.insert_radio_item_at(PCefMenuModel(FData), index, commandId, @TempText, groupId) <> 0;
end; end;
function TCefMenuModelRef.InsertSeparatorAt(index: Integer): Boolean; function TCefMenuModelRef.InsertSeparatorAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.insert_separator_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.insert_separator_at(PCefMenuModel(FData), index) <> 0;
end; end;
function TCefMenuModelRef.InsertSubMenuAt(index, commandId: Integer; const text: ustring): ICefMenuModel; function TCefMenuModelRef.InsertSubMenuAt(index: NativeUInt; commandId: Integer; const text: ustring): ICefMenuModel;
var var
TempText : TCefString; TempText : TCefString;
begin begin
@ -331,7 +331,7 @@ begin
Result := PCefMenuModel(FData)^.is_checked(PCefMenuModel(FData), commandId) <> 0; Result := PCefMenuModel(FData)^.is_checked(PCefMenuModel(FData), commandId) <> 0;
end; end;
function TCefMenuModelRef.IsCheckedAt(index: Integer): Boolean; function TCefMenuModelRef.IsCheckedAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.is_checked_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.is_checked_at(PCefMenuModel(FData), index) <> 0;
end; end;
@ -341,7 +341,7 @@ begin
Result := PCefMenuModel(FData)^.is_enabled(PCefMenuModel(FData), commandId) <> 0; Result := PCefMenuModel(FData)^.is_enabled(PCefMenuModel(FData), commandId) <> 0;
end; end;
function TCefMenuModelRef.IsEnabledAt(index: Integer): Boolean; function TCefMenuModelRef.IsEnabledAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.is_enabled_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.is_enabled_at(PCefMenuModel(FData), index) <> 0;
end; end;
@ -351,7 +351,7 @@ begin
Result := PCefMenuModel(FData)^.is_visible(PCefMenuModel(FData), commandId) <> 0; Result := PCefMenuModel(FData)^.is_visible(PCefMenuModel(FData), commandId) <> 0;
end; end;
function TCefMenuModelRef.isVisibleAt(index: Integer): Boolean; function TCefMenuModelRef.isVisibleAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.is_visible_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.is_visible_at(PCefMenuModel(FData), index) <> 0;
end; end;
@ -371,12 +371,12 @@ begin
Result := PCefMenuModel(FData)^.remove_accelerator(PCefMenuModel(FData), commandId) <> 0; Result := PCefMenuModel(FData)^.remove_accelerator(PCefMenuModel(FData), commandId) <> 0;
end; end;
function TCefMenuModelRef.RemoveAcceleratorAt(index: Integer): Boolean; function TCefMenuModelRef.RemoveAcceleratorAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.remove_accelerator_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.remove_accelerator_at(PCefMenuModel(FData), index) <> 0;
end; end;
function TCefMenuModelRef.RemoveAt(index: Integer): Boolean; function TCefMenuModelRef.RemoveAt(index: NativeUInt): Boolean;
begin begin
Result := PCefMenuModel(FData)^.remove_at(PCefMenuModel(FData), index) <> 0; Result := PCefMenuModel(FData)^.remove_at(PCefMenuModel(FData), index) <> 0;
end; end;
@ -387,7 +387,7 @@ begin
Ord(shiftPressed), Ord(ctrlPressed), Ord(altPressed)) <> 0; Ord(shiftPressed), Ord(ctrlPressed), Ord(altPressed)) <> 0;
end; end;
function TCefMenuModelRef.SetAcceleratorAt(index, keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean; function TCefMenuModelRef.SetAcceleratorAt(index: NativeUInt; keyCode: Integer; shiftPressed, ctrlPressed, altPressed: Boolean): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_accelerator_at(PCefMenuModel(FData), index, keyCode, Result := PCefMenuModel(FData)^.set_accelerator_at(PCefMenuModel(FData), index, keyCode,
Ord(shiftPressed), Ord(ctrlPressed), Ord(altPressed)) <> 0; Ord(shiftPressed), Ord(ctrlPressed), Ord(altPressed)) <> 0;
@ -398,12 +398,12 @@ begin
Result := PCefMenuModel(FData)^.set_checked(PCefMenuModel(FData), commandId, Ord(checked)) <> 0; Result := PCefMenuModel(FData)^.set_checked(PCefMenuModel(FData), commandId, Ord(checked)) <> 0;
end; end;
function TCefMenuModelRef.setCheckedAt(index: Integer; checked: Boolean): Boolean; function TCefMenuModelRef.setCheckedAt(index: NativeUInt; checked: Boolean): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_checked_at(PCefMenuModel(FData), index, Ord(checked)) <> 0; Result := PCefMenuModel(FData)^.set_checked_at(PCefMenuModel(FData), index, Ord(checked)) <> 0;
end; end;
function TCefMenuModelRef.SetCommandIdAt(index, commandId: Integer): Boolean; function TCefMenuModelRef.SetCommandIdAt(index: NativeUInt; commandId: Integer): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_command_id_at(PCefMenuModel(FData), index, commandId) <> 0; Result := PCefMenuModel(FData)^.set_command_id_at(PCefMenuModel(FData), index, commandId) <> 0;
end; end;
@ -413,7 +413,7 @@ begin
Result := PCefMenuModel(FData)^.set_enabled(PCefMenuModel(FData), commandId, Ord(enabled)) <> 0; Result := PCefMenuModel(FData)^.set_enabled(PCefMenuModel(FData), commandId, Ord(enabled)) <> 0;
end; end;
function TCefMenuModelRef.SetEnabledAt(index: Integer; enabled: Boolean): Boolean; function TCefMenuModelRef.SetEnabledAt(index: NativeUInt; enabled: Boolean): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_enabled_at(PCefMenuModel(FData), index, Ord(enabled)) <> 0; Result := PCefMenuModel(FData)^.set_enabled_at(PCefMenuModel(FData), index, Ord(enabled)) <> 0;
end; end;
@ -423,7 +423,7 @@ begin
Result := PCefMenuModel(FData)^.set_group_id(PCefMenuModel(FData), commandId, groupId) <> 0; Result := PCefMenuModel(FData)^.set_group_id(PCefMenuModel(FData), commandId, groupId) <> 0;
end; end;
function TCefMenuModelRef.SetGroupIdAt(index, groupId: Integer): Boolean; function TCefMenuModelRef.SetGroupIdAt(index: NativeUInt; groupId: Integer): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_group_id_at(PCefMenuModel(FData), index, groupId) <> 0; Result := PCefMenuModel(FData)^.set_group_id_at(PCefMenuModel(FData), index, groupId) <> 0;
end; end;
@ -436,7 +436,7 @@ begin
Result := PCefMenuModel(FData)^.set_label(PCefMenuModel(FData), commandId, @TempText) <> 0; Result := PCefMenuModel(FData)^.set_label(PCefMenuModel(FData), commandId, @TempText) <> 0;
end; end;
function TCefMenuModelRef.SetLabelAt(index: Integer; const text: ustring): Boolean; function TCefMenuModelRef.SetLabelAt(index: NativeUInt; const text: ustring): Boolean;
var var
TempText : TCefString; TempText : TCefString;
begin begin
@ -449,7 +449,7 @@ begin
Result := PCefMenuModel(FData)^.set_visible(PCefMenuModel(FData), commandId, Ord(visible)) <> 0; Result := PCefMenuModel(FData)^.set_visible(PCefMenuModel(FData), commandId, Ord(visible)) <> 0;
end; end;
function TCefMenuModelRef.SetVisibleAt(index: Integer; visible: Boolean): Boolean; function TCefMenuModelRef.SetVisibleAt(index: NativeUInt; visible: Boolean): Boolean;
begin begin
Result := PCefMenuModel(FData)^.set_visible_at(PCefMenuModel(FData), index, Ord(visible)) <> 0; Result := PCefMenuModel(FData)^.set_visible_at(PCefMenuModel(FData), index, Ord(visible)) <> 0;
end; end;

44
source/uCEFMiscFunctions.pas
View File

@ -131,6 +131,7 @@ function SystemTimeToCefTime(const dt: TSystemTime): TCefTime;
function FixCefTime(const dt : TCefTime): TCefTime; function FixCefTime(const dt : TCefTime): TCefTime;
function CefTimeToDateTime(const dt: TCefTime): TDateTime; function CefTimeToDateTime(const dt: TCefTime): TDateTime;
function DateTimeToCefTime(dt: TDateTime): TCefTime; function DateTimeToCefTime(dt: TDateTime): TCefTime;
function DateTimeToCefBaseTime(dt: TDateTime): TCefBaseTime;
function CefTimeToDouble(const dt: TCefTime): double; function CefTimeToDouble(const dt: TCefTime): double;
function DoubleToCefTime(const dt: double): TCefTime; function DoubleToCefTime(const dt: double): TCefTime;
function CefTimeToUnixTime(const dt: TCefTime): int64; function CefTimeToUnixTime(const dt: TCefTime): int64;
@ -138,6 +139,10 @@ function UnixTimeToCefTime(const dt: int64): TCefTime;
function CefTimeNow: TCefTime; function CefTimeNow: TCefTime;
function DoubleTimeNow: double; function DoubleTimeNow: double;
function CefTimeDelta(const cef_time1, cef_time2: TCefTime): int64; function CefTimeDelta(const cef_time1, cef_time2: TCefTime): int64;
function CefBaseTimeNow: TCefBaseTime;
function CetTimeToCefBaseTime(const ct: TCefTime) : TCefBaseTime;
function CetTimeFromCefBaseTime(const cbt: TCefBaseTime) : TCefTime;
function CefBaseTimeToDateTime(const cbt: TCefBaseTime) : TDateTime;
function GetTimeIntervalMilliseconds(const from_: TCefTime): integer; function GetTimeIntervalMilliseconds(const from_: TCefTime): integer;
procedure InitializeCefTime(var aTime : TCefTime); procedure InitializeCefTime(var aTime : TCefTime);
@ -628,6 +633,11 @@ begin
Result.millisecond := TempMSec; Result.millisecond := TempMSec;
end; end;
function DateTimeToCefBaseTime(dt: TDateTime): TCefBaseTime;
begin
Result := CetTimeToCefBaseTime(DateTimeToCefTime(dt));
end;
function CefTimeToDouble(const dt: TCefTime): double; function CefTimeToDouble(const dt: TCefTime): double;
begin begin
Result := 0; Result := 0;
@ -683,6 +693,40 @@ begin
cef_time_delta(@cef_time1, @cef_time2, Result); cef_time_delta(@cef_time1, @cef_time2, Result);
end; end;
function CefBaseTimeNow: TCefBaseTime;
begin
Result := 0;
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
Result := cef_basetime_now();
end;
function CetTimeToCefBaseTime(const ct: TCefTime) : TCefBaseTime;
var
TempResult : TCefBaseTime;
begin
Result := 0;
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded and (cef_time_to_basetime(@ct, @TempResult) <> 0) then
Result := TempResult;
end;
function CetTimeFromCefBaseTime(const cbt: TCefBaseTime) : TCefTime;
var
TempResult : TCefTime;
begin
FillChar(Result, SizeOf(TCefTime), #0);
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded and (cef_time_from_basetime(cbt, @TempResult) <> 0) then
Result := TempResult;
end;
function CefBaseTimeToDateTime(const cbt: TCefBaseTime) : TDateTime;
var
TempResult : TCefTime;
begin
Result := 0;
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded and (cef_time_from_basetime(cbt, @TempResult) <> 0) then
Result := CefTimeToDateTime(TempResult);
end;
function GetTimeIntervalMilliseconds(const from_: TCefTime): integer; function GetTimeIntervalMilliseconds(const from_: TCefTime): integer;
var var
TempFrom : double; TempFrom : double;

2
source/uCEFNavigationEntry.pas
View File

@ -111,7 +111,7 @@ end;
function TCefNavigationEntryRef.GetCompletionTime: TDateTime; function TCefNavigationEntryRef.GetCompletionTime: TDateTime;
begin begin
Result := CefTimeToDateTime(PCefNavigationEntry(FData)^.get_completion_time(FData)); Result := CefBaseTimeToDateTime(PCefNavigationEntry(FData)^.get_completion_time(FData));
end; end;
function TCefNavigationEntryRef.GetHttpStatusCode: Integer; function TCefNavigationEntryRef.GetHttpStatusCode: Integer;

81
source/uCEFTypes.pas
View File

@ -104,6 +104,7 @@ type
PCefV8Interceptor = ^TCefV8Interceptor; PCefV8Interceptor = ^TCefV8Interceptor;
PCefTask = ^TCefTask; PCefTask = ^TCefTask;
PCefv8Value = ^TCefv8Value; PCefv8Value = ^TCefv8Value;
PCefBaseTime = ^TCefBaseTime;
PCefTime = ^TCefTime; PCefTime = ^TCefTime;
PCefV8Exception = ^TCefV8Exception; PCefV8Exception = ^TCefV8Exception;
PCefv8ArrayBufferReleaseCallback = ^TCefv8ArrayBufferReleaseCallback; PCefv8ArrayBufferReleaseCallback = ^TCefv8ArrayBufferReleaseCallback;
@ -1177,6 +1178,13 @@ type
CEF_PERMISSION_RESULT_IGNORE CEF_PERMISSION_RESULT_IGNORE
); );
// /include/internal/cef_types.h (cef_test_cert_type_t)
TCefTestCertType = (
CEF_TEST_CERT_OK_IP,
CEF_TEST_CERT_OK_DOMAIN,
CEF_TEST_CERT_EXPIRED
);
// /include/internal/cef_types.h (cef_touch_handle_state_t) // /include/internal/cef_types.h (cef_touch_handle_state_t)
TCefTouchHandleState = record TCefTouchHandleState = record
touch_handle_id : integer; touch_handle_id : integer;
@ -1199,6 +1207,9 @@ type
end; end;
TCefCompositionUnderlineDynArray = array of TCefCompositionUnderline; TCefCompositionUnderlineDynArray = array of TCefCompositionUnderline;
// /include/internal/cef_time.h (cef_basetime_t)
TCefBaseTime = type int64;
// /include/internal/cef_time.h (cef_time_t) // /include/internal/cef_time.h (cef_time_t)
TCefTime = record TCefTime = record
year : Integer; year : Integer;
@ -1390,10 +1401,10 @@ type
path : TCefString; path : TCefString;
secure : Integer; secure : Integer;
httponly : Integer; httponly : Integer;
creation : TCefTime; creation : TCefBaseTime;
last_access : TCefTime; last_access : TCefBaseTime;
has_expires : Integer; has_expires : Integer;
expires : TCefTime; expires : TCefBaseTime;
same_site : TCefCookieSameSite; same_site : TCefCookieSameSite;
priority : TCefCookiePriority; priority : TCefCookiePriority;
end; end;
@ -1511,8 +1522,8 @@ type
get_subject : function(self: PCefX509Certificate): PCefX509CertPrincipal; stdcall; get_subject : function(self: PCefX509Certificate): PCefX509CertPrincipal; stdcall;
get_issuer : function(self: PCefX509Certificate): PCefX509CertPrincipal; stdcall; get_issuer : function(self: PCefX509Certificate): PCefX509CertPrincipal; stdcall;
get_serial_number : function(self: PCefX509Certificate): PCefBinaryValue; stdcall; get_serial_number : function(self: PCefX509Certificate): PCefBinaryValue; stdcall;
get_valid_start : function(self: PCefX509Certificate): TCefTime; stdcall; get_valid_start : function(self: PCefX509Certificate): TCefBaseTime; stdcall;
get_valid_expiry : function(self: PCefX509Certificate): TCefTime; stdcall; get_valid_expiry : function(self: PCefX509Certificate): TCefBaseTime; stdcall;
get_derencoded : function(self: PCefX509Certificate): PCefBinaryValue; stdcall; get_derencoded : function(self: PCefX509Certificate): PCefBinaryValue; stdcall;
get_pemencoded : function(self: PCefX509Certificate): PCefBinaryValue; stdcall; get_pemencoded : function(self: PCefX509Certificate): PCefBinaryValue; stdcall;
get_issuer_chain_size : function(self: PCefX509Certificate): NativeUInt; stdcall; get_issuer_chain_size : function(self: PCefX509Certificate): NativeUInt; stdcall;
@ -1885,7 +1896,7 @@ type
close : function(Self: PCefZipReader): Integer; stdcall; close : function(Self: PCefZipReader): Integer; stdcall;
get_file_name : function(Self: PCefZipReader): PCefStringUserFree; stdcall; get_file_name : function(Self: PCefZipReader): PCefStringUserFree; stdcall;
get_file_size : function(Self: PCefZipReader): Int64; stdcall; get_file_size : function(Self: PCefZipReader): Int64; stdcall;
get_file_last_modified : function(Self: PCefZipReader): TCefTime; stdcall; get_file_last_modified : function(Self: PCefZipReader): TCefBaseTime; stdcall;
open_file : function(Self: PCefZipReader; const password: PCefString): Integer; stdcall; open_file : function(Self: PCefZipReader; const password: PCefString): Integer; stdcall;
close_file : function(Self: PCefZipReader): Integer; stdcall; close_file : function(Self: PCefZipReader): Integer; stdcall;
read_file : function(Self: PCefZipReader; buffer: Pointer; bufferSize: NativeUInt): Integer; stdcall; read_file : function(Self: PCefZipReader; buffer: Pointer; bufferSize: NativeUInt): Integer; stdcall;
@ -2276,7 +2287,7 @@ type
get_title : function(self: PCefNavigationEntry): PCefStringUserFree; stdcall; get_title : function(self: PCefNavigationEntry): PCefStringUserFree; stdcall;
get_transition_type : function(self: PCefNavigationEntry): TCefTransitionType; stdcall; get_transition_type : function(self: PCefNavigationEntry): TCefTransitionType; stdcall;
has_post_data : function(self: PCefNavigationEntry): Integer; stdcall; has_post_data : function(self: PCefNavigationEntry): Integer; stdcall;
get_completion_time : function(self: PCefNavigationEntry): TCefTime; stdcall; get_completion_time : function(self: PCefNavigationEntry): TCefBaseTime; stdcall;
get_http_status_code : function(self: PCefNavigationEntry): Integer; stdcall; get_http_status_code : function(self: PCefNavigationEntry): Integer; stdcall;
get_sslstatus : function(self: PCefNavigationEntry): PCefSSLStatus; stdcall; get_sslstatus : function(self: PCefNavigationEntry): PCefSSLStatus; stdcall;
end; end;
@ -2581,54 +2592,54 @@ type
base : TCefBaseRefCounted; base : TCefBaseRefCounted;
is_sub_menu : function(self: PCefMenuModel): Integer; stdcall; is_sub_menu : function(self: PCefMenuModel): Integer; stdcall;
clear : function(self: PCefMenuModel): Integer; stdcall; clear : function(self: PCefMenuModel): Integer; stdcall;
get_count : function(self: PCefMenuModel): Integer; stdcall; get_count : function(self: PCefMenuModel): NativeUInt; stdcall;
add_separator : function(self: PCefMenuModel): Integer; stdcall; add_separator : function(self: PCefMenuModel): Integer; stdcall;
add_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall; add_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall;
add_check_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall; add_check_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall;
add_radio_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString; group_id: Integer): Integer; stdcall; add_radio_item : function(self: PCefMenuModel; command_id: Integer; const text: PCefString; group_id: Integer): Integer; stdcall;
add_sub_menu : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): PCefMenuModel; stdcall; add_sub_menu : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): PCefMenuModel; stdcall;
insert_separator_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; insert_separator_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
insert_item_at : function(self: PCefMenuModel; index, command_id: Integer; const text: PCefString): Integer; stdcall; insert_item_at : function(self: PCefMenuModel; index: NativeUInt; command_id: Integer; const text: PCefString): Integer; stdcall;
insert_check_item_at : function(self: PCefMenuModel; index, command_id: Integer; const text: PCefString): Integer; stdcall; insert_check_item_at : function(self: PCefMenuModel; index: NativeUInt; command_id: Integer; const text: PCefString): Integer; stdcall;
insert_radio_item_at : function(self: PCefMenuModel; index, command_id: Integer; const text: PCefString; group_id: Integer): Integer; stdcall; insert_radio_item_at : function(self: PCefMenuModel; index: NativeUInt; command_id: Integer; const text: PCefString; group_id: Integer): Integer; stdcall;
insert_sub_menu_at : function(self: PCefMenuModel; index, command_id: Integer; const text: PCefString): PCefMenuModel; stdcall; insert_sub_menu_at : function(self: PCefMenuModel; index: NativeUInt; command_id: Integer; const text: PCefString): PCefMenuModel; stdcall;
remove : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; remove : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
remove_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; remove_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
get_index_of : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; get_index_of : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
get_command_id_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; get_command_id_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_command_id_at : function(self: PCefMenuModel; index, command_id: Integer): Integer; stdcall; set_command_id_at : function(self: PCefMenuModel; index: NativeUInt; command_id: Integer): Integer; stdcall;
get_label : function(self: PCefMenuModel; command_id: Integer): PCefStringUserFree; stdcall; get_label : function(self: PCefMenuModel; command_id: Integer): PCefStringUserFree; stdcall;
get_label_at : function(self: PCefMenuModel; index: Integer): PCefStringUserFree; stdcall; get_label_at : function(self: PCefMenuModel; index: NativeUInt): PCefStringUserFree; stdcall;
set_label : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall; set_label : function(self: PCefMenuModel; command_id: Integer; const text: PCefString): Integer; stdcall;
set_label_at : function(self: PCefMenuModel; index: Integer; const text: PCefString): Integer; stdcall; set_label_at : function(self: PCefMenuModel; index: NativeUInt; const text: PCefString): Integer; stdcall;
get_type : function(self: PCefMenuModel; command_id: Integer): TCefMenuItemType; stdcall; get_type : function(self: PCefMenuModel; command_id: Integer): TCefMenuItemType; stdcall;
get_type_at : function(self: PCefMenuModel; index: Integer): TCefMenuItemType; stdcall; get_type_at : function(self: PCefMenuModel; index: NativeUInt): TCefMenuItemType; stdcall;
get_group_id : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; get_group_id : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
get_group_id_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; get_group_id_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_group_id : function(self: PCefMenuModel; command_id, group_id: Integer): Integer; stdcall; set_group_id : function(self: PCefMenuModel; command_id, group_id: Integer): Integer; stdcall;
set_group_id_at : function(self: PCefMenuModel; index, group_id: Integer): Integer; stdcall; set_group_id_at : function(self: PCefMenuModel; index: NativeUInt; group_id: Integer): Integer; stdcall;
get_sub_menu : function(self: PCefMenuModel; command_id: Integer): PCefMenuModel; stdcall; get_sub_menu : function(self: PCefMenuModel; command_id: Integer): PCefMenuModel; stdcall;
get_sub_menu_at : function(self: PCefMenuModel; index: Integer): PCefMenuModel; stdcall; get_sub_menu_at : function(self: PCefMenuModel; index: NativeUInt): PCefMenuModel; stdcall;
is_visible : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; is_visible : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
is_visible_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; is_visible_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_visible : function(self: PCefMenuModel; command_id, visible: Integer): Integer; stdcall; set_visible : function(self: PCefMenuModel; command_id, visible: Integer): Integer; stdcall;
set_visible_at : function(self: PCefMenuModel; index, visible: Integer): Integer; stdcall; set_visible_at : function(self: PCefMenuModel; index: NativeUInt; visible: Integer): Integer; stdcall;
is_enabled : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; is_enabled : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
is_enabled_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; is_enabled_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_enabled : function(self: PCefMenuModel; command_id, enabled: Integer): Integer; stdcall; set_enabled : function(self: PCefMenuModel; command_id, enabled: Integer): Integer; stdcall;
set_enabled_at : function(self: PCefMenuModel; index, enabled: Integer): Integer; stdcall; set_enabled_at : function(self: PCefMenuModel; index: NativeUInt; enabled: Integer): Integer; stdcall;
is_checked : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; is_checked : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
is_checked_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; is_checked_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_checked : function(self: PCefMenuModel; command_id, checked: Integer): Integer; stdcall; set_checked : function(self: PCefMenuModel; command_id, checked: Integer): Integer; stdcall;
set_checked_at : function(self: PCefMenuModel; index, checked: Integer): Integer; stdcall; set_checked_at : function(self: PCefMenuModel; index: NativeUInt; checked: Integer): Integer; stdcall;
has_accelerator : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; has_accelerator : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
has_accelerator_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; has_accelerator_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
set_accelerator : function(self: PCefMenuModel; command_id, key_code, shift_pressed, ctrl_pressed, alt_pressed: Integer): Integer; stdcall; set_accelerator : function(self: PCefMenuModel; command_id, key_code, shift_pressed, ctrl_pressed, alt_pressed: Integer): Integer; stdcall;
set_accelerator_at : function(self: PCefMenuModel; index, key_code, shift_pressed, ctrl_pressed, alt_pressed: Integer): Integer; stdcall; set_accelerator_at : function(self: PCefMenuModel; index: NativeUInt; key_code, shift_pressed, ctrl_pressed, alt_pressed: Integer): Integer; stdcall;
remove_accelerator : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall; remove_accelerator : function(self: PCefMenuModel; command_id: Integer): Integer; stdcall;
remove_accelerator_at : function(self: PCefMenuModel; index: Integer): Integer; stdcall; remove_accelerator_at : function(self: PCefMenuModel; index: NativeUInt): Integer; stdcall;
get_accelerator : function(self: PCefMenuModel; command_id: Integer; key_code, shift_pressed, ctrl_pressed, alt_pressed: PInteger): Integer; stdcall; get_accelerator : function(self: PCefMenuModel; command_id: Integer; key_code, shift_pressed, ctrl_pressed, alt_pressed: PInteger): Integer; stdcall;
get_accelerator_at : function(self: PCefMenuModel; index: Integer; key_code, shift_pressed, ctrl_pressed, alt_pressed: PInteger): Integer; stdcall; get_accelerator_at : function(self: PCefMenuModel; index: NativeUInt; key_code, shift_pressed, ctrl_pressed, alt_pressed: PInteger): Integer; stdcall;
set_color : function(self: PCefMenuModel; command_id: Integer; color_type: TCefMenuColorType; color: TCefColor): Integer; stdcall; set_color : function(self: PCefMenuModel; command_id: Integer; color_type: TCefMenuColorType; color: TCefColor): Integer; stdcall;
set_color_at : function(self: PCefMenuModel; index: Integer; color_type: TCefMenuColorType; color: TCefColor): Integer; stdcall; set_color_at : function(self: PCefMenuModel; index: Integer; color_type: TCefMenuColorType; color: TCefColor): Integer; stdcall;
get_color : function(self: PCefMenuModel; command_id: Integer; color_type: TCefMenuColorType; color: PCefColor): Integer; stdcall; get_color : function(self: PCefMenuModel; command_id: Integer; color_type: TCefMenuColorType; color: PCefColor): Integer; stdcall;
@ -2673,8 +2684,8 @@ type
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;
get_received_bytes : function(self: PCefDownloadItem): Int64; stdcall; get_received_bytes : function(self: PCefDownloadItem): Int64; stdcall;
get_start_time : function(self: PCefDownloadItem): TCefTime; stdcall; get_start_time : function(self: PCefDownloadItem): TCefBaseTime; stdcall;
get_end_time : function(self: PCefDownloadItem): TCefTime; stdcall; get_end_time : function(self: PCefDownloadItem): TCefBaseTime; stdcall;
get_full_path : function(self: PCefDownloadItem): PCefStringUserFree; stdcall; get_full_path : function(self: PCefDownloadItem): PCefStringUserFree; stdcall;
get_id : function(self: PCefDownloadItem): Cardinal; stdcall; get_id : function(self: PCefDownloadItem): Cardinal; stdcall;
get_url : function(self: PCefDownloadItem): PCefStringUserFree; stdcall; get_url : function(self: PCefDownloadItem): PCefStringUserFree; stdcall;
@ -2796,7 +2807,7 @@ type
get_int_value : function(self: PCefv8Value): Integer; stdcall; get_int_value : function(self: PCefv8Value): Integer; stdcall;
get_uint_value : function(self: PCefv8Value): Cardinal; stdcall; get_uint_value : function(self: PCefv8Value): Cardinal; stdcall;
get_double_value : function(self: PCefv8Value): Double; stdcall; get_double_value : function(self: PCefv8Value): Double; stdcall;
get_date_value : function(self: PCefv8Value): TCefTime; stdcall; get_date_value : function(self: PCefv8Value): TCefBaseTime; stdcall;
get_string_value : function(self: PCefv8Value): PCefStringUserFree; stdcall; get_string_value : function(self: PCefv8Value): PCefStringUserFree; stdcall;
is_user_created : function(self: PCefv8Value): Integer; stdcall; is_user_created : function(self: PCefv8Value): Integer; stdcall;
has_exception : function(self: PCefv8Value): Integer; stdcall; has_exception : function(self: PCefv8Value): Integer; stdcall;

20
source/uCEFX509Certificate.pas
View File

@ -62,8 +62,10 @@ type
function GetSubject: ICefX509CertPrincipal; function GetSubject: ICefX509CertPrincipal;
function GetIssuer: ICefX509CertPrincipal; function GetIssuer: ICefX509CertPrincipal;
function GetSerialNumber: ICefBinaryValue; function GetSerialNumber: ICefBinaryValue;
function GetValidStart: TCefTime; function GetValidStart: TCefBaseTime;
function GetValidExpiry: TCefTime; function GetValidExpiry: TCefBaseTime;
function GetValidStartAsDateTime: TDateTime;
function GetValidExpiryAsDateTime: TDateTime;
function GetDerEncoded: ICefBinaryValue; function GetDerEncoded: ICefBinaryValue;
function GetPemEncoded: ICefBinaryValue; function GetPemEncoded: ICefBinaryValue;
function GetIssuerChainSize: NativeUInt; function GetIssuerChainSize: NativeUInt;
@ -94,16 +96,26 @@ begin
Result := TCefBinaryValueRef.UnWrap(PCefX509Certificate(FData)^.get_serial_number(PCefX509Certificate(FData))); Result := TCefBinaryValueRef.UnWrap(PCefX509Certificate(FData)^.get_serial_number(PCefX509Certificate(FData)));
end; end;
function TCEFX509CertificateRef.GetValidStart: TCefTime; function TCEFX509CertificateRef.GetValidStart: TCefBaseTime;
begin begin
Result := PCefX509Certificate(FData)^.get_valid_start(PCefX509Certificate(FData)); Result := PCefX509Certificate(FData)^.get_valid_start(PCefX509Certificate(FData));
end; end;
function TCEFX509CertificateRef.GetValidExpiry: TCefTime; function TCEFX509CertificateRef.GetValidExpiry: TCefBaseTime;
begin begin
Result := PCefX509Certificate(FData)^.get_valid_expiry(PCefX509Certificate(FData)); Result := PCefX509Certificate(FData)^.get_valid_expiry(PCefX509Certificate(FData));
end; end;
function TCEFX509CertificateRef.GetValidStartAsDateTime: TDateTime;
begin
Result := CefBaseTimeToDateTime(GetValidStart);
end;
function TCEFX509CertificateRef.GetValidExpiryAsDateTime: TDateTime;
begin
Result := CefBaseTimeToDateTime(GetValidExpiry);
end;
function TCEFX509CertificateRef.GetDerEncoded: ICefBinaryValue; function TCEFX509CertificateRef.GetDerEncoded: ICefBinaryValue;
begin begin
Result := TCefBinaryValueRef.UnWrap(PCefX509Certificate(FData)^.get_derencoded(PCefX509Certificate(FData))); Result := TCefBinaryValueRef.UnWrap(PCefX509Certificate(FData)^.get_derencoded(PCefX509Certificate(FData)));

4
source/uCEFZipReader.pas
View File

@ -60,7 +60,7 @@ type
function Close: Boolean; function Close: Boolean;
function GetFileName: ustring; function GetFileName: ustring;
function GetFileSize: Int64; function GetFileSize: Int64;
function GetFileLastModified: TCefTime; function GetFileLastModified: TCefBaseTime;
function OpenFile(const password: ustring): Boolean; function OpenFile(const password: ustring): Boolean;
function CloseFile: Boolean; function CloseFile: Boolean;
function ReadFile(buffer: Pointer; bufferSize: NativeUInt): Integer; function ReadFile(buffer: Pointer; bufferSize: NativeUInt): Integer;
@ -96,7 +96,7 @@ begin
Result := PCefZipReader(FData)^.eof(PCefZipReader(FData)) <> 0; Result := PCefZipReader(FData)^.eof(PCefZipReader(FData)) <> 0;
end; end;
function TCefZipReaderRef.GetFileLastModified: TCefTime; function TCefZipReaderRef.GetFileLastModified: TCefBaseTime;
begin begin
Result := PCefZipReader(FData)^.get_file_last_modified(PCefZipReader(FData)); Result := PCefZipReader(FData)^.get_file_last_modified(PCefZipReader(FData));
end; end;

8
source/uCEFv8Value.pas
View File

@ -159,10 +159,10 @@ end;
class function TCefv8ValueRef.NewDate(value: TDateTime): ICefv8Value; class function TCefv8ValueRef.NewDate(value: TDateTime): ICefv8Value;
var var
TempValue : TCefTime; TempValue : TCefBaseTime;
begin begin
TempValue := DateTimeToCefTime(value); TempValue := DateTimeToCefBaseTime(value);
Result := UnWrap(cef_v8value_create_date(@TempValue)); Result := UnWrap(cef_v8value_create_date(TempValue));
end; end;
class function TCefv8ValueRef.NewDouble(value: Double): ICefv8Value; class function TCefv8ValueRef.NewDouble(value: Double): ICefv8Value;
@ -338,7 +338,7 @@ end;
function TCefv8ValueRef.GetDateValue: TDateTime; function TCefv8ValueRef.GetDateValue: TDateTime;
begin begin
Result := CefTimeToDateTime(PCefV8Value(FData)^.get_date_value(PCefV8Value(FData))); Result := CefBaseTimeToDateTime(PCefV8Value(FData)^.get_date_value(PCefV8Value(FData)));
end; end;
function TCefv8ValueRef.GetDoubleValue: Double; function TCefv8ValueRef.GetDoubleValue: Double;

2
update_CEF4Delphi.json
View File

@ -4,7 +4,7 @@
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 429, "InternalVersion" : 429,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "104.4.26.0" "Version" : "105.3.25.0"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {