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

Update to CEF 133.4.6

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-02-16 15:02:10 +01:00
parent 2081ad570a
commit e2bafbdf9a
247 changed files with 11842 additions and 7710 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/uCEFBaseRefCounted.pas
View File

@ -67,7 +67,7 @@ type
implementation
uses
{$IFDEF CEF4DELHI_ALLOC_DEBUG}uCEFConstants,{$ENDIF} uCEFTypes, uCEFMiscFunctions;
{$IFDEF CEF4DELHI_ALLOC_DEBUG}uCEFConstants,{$ENDIF} uCEFTypes, uCEFMiscFunctions, uCEFConstants, uCEFLibFunctions;
// ***********************************************
@ -142,6 +142,19 @@ begin
end;
constructor TCefBaseRefCountedOwn.CreateData(size: Cardinal; owned : boolean);
procedure CefLog(const aFile : string; aLine, aSeverity : integer; const aMessage : string);
var
TempFile, TempMessage : AnsiString;
begin
if (length(aFile) > 0) and (length(aMessage) > 0) then
begin
TempFile := AnsiString(aFile);
TempMessage := AnsiString(aMessage);
cef_log(@TempFile[1], aLine, aSeverity, @TempMessage[1]);
end;
end;
begin
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
GetMem(FData, size + (SizeOf(Pointer) * 3));
@ -175,6 +188,14 @@ begin
PCefBaseRefCounted(FData)^.has_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_one_ref;
PCefBaseRefCounted(FData)^.has_at_least_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_at_least_one_ref;
end;
try
if (size>250) then
raise Exception.Create('Size incorrecto');
except
on E: Exception do
CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_ERROR, e.message + 'StackTrace: ' + e.StackTrace);
end;
end;
destructor TCefBaseRefCountedOwn.Destroy;