mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-15 07:45:56 +01:00
ca8bc9dff4
Added the PDS file to extract the HTML Help files using PasDoc Added more XML documentation Fixed some XML errors. Removed the license copy from the pas units. Updated the LICENSE.md file
395 lines
11 KiB
ObjectPascal
395 lines
11 KiB
ObjectPascal
unit uCEFBaseRefCounted;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE OBJFPC}{$H+}
|
|
{$ENDIF}
|
|
|
|
{$I cef.inc}
|
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
{$MINENUMSIZE 4}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.SysUtils,
|
|
{$ELSE}
|
|
SysUtils,
|
|
{$ENDIF}
|
|
uCEFInterfaces;
|
|
|
|
type
|
|
TLoggingInterfacedObject = class(TInterfacedObject)
|
|
protected
|
|
function _AddRef: Integer; reintroduce; stdcall;
|
|
function _Release: Integer; reintroduce; stdcall;
|
|
public
|
|
class function NewInstance: TObject; override;
|
|
end;
|
|
|
|
|
|
TCefBaseRefCountedOwn = class({$IFDEF INTFLOG}TLoggingInterfacedObject{$ELSE}TInterfacedObject{$ENDIF}, ICefBaseRefCounted)
|
|
protected
|
|
FData: Pointer;
|
|
|
|
function HasOneRef : boolean;
|
|
function HasAtLeastOneRef : boolean;
|
|
|
|
public
|
|
constructor CreateData(size: Cardinal; owned : boolean = False); virtual;
|
|
destructor Destroy; override;
|
|
function SameAs(aData : Pointer) : boolean; overload;
|
|
function SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean; overload;
|
|
procedure DestroyOtherRefs;
|
|
function Wrap: Pointer;
|
|
end;
|
|
|
|
TCefBaseRefCountedRef = class(TInterfacedObject, ICefBaseRefCounted)
|
|
protected
|
|
FData: Pointer;
|
|
|
|
function HasOneRef : boolean;
|
|
function HasAtLeastOneRef : boolean;
|
|
|
|
public
|
|
constructor Create(data: Pointer); virtual;
|
|
destructor Destroy; override;
|
|
function SameAs(aData : Pointer) : boolean; overload;
|
|
function SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean; overload;
|
|
procedure DestroyOtherRefs;
|
|
function Wrap: Pointer;
|
|
class function UnWrap(data: Pointer): ICefBaseRefCounted;
|
|
end;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF CEF4DELHI_ALLOC_DEBUG}uCEFConstants,{$ENDIF} uCEFTypes, uCEFMiscFunctions;
|
|
|
|
|
|
// ***********************************************
|
|
// ************ TCefBaseRefCountedOwn ************
|
|
// ***********************************************
|
|
|
|
|
|
procedure cef_base_add_ref(self: PCefBaseRefCounted); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefBaseRefCountedOwn) then
|
|
TCefBaseRefCountedOwn(TempObject)._AddRef;
|
|
end;
|
|
|
|
function cef_base_release_ref(self: PCefBaseRefCounted): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefBaseRefCountedOwn) then
|
|
Result := TCefBaseRefCountedOwn(TempObject)._Release
|
|
else
|
|
Result := 0;
|
|
end;
|
|
|
|
function cef_base_has_one_ref(self: PCefBaseRefCounted): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefBaseRefCountedOwn) then
|
|
Result := Ord(TCefBaseRefCountedOwn(TempObject).FRefCount = 1)
|
|
else
|
|
Result := Ord(False);
|
|
end;
|
|
|
|
function cef_base_has_at_least_one_ref(self: PCefBaseRefCounted): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefBaseRefCountedOwn) then
|
|
Result := Ord(TCefBaseRefCountedOwn(TempObject).FRefCount >= 1)
|
|
else
|
|
Result := Ord(False);
|
|
end;
|
|
|
|
procedure cef_base_add_ref_owned(self: PCefBaseRefCounted); stdcall;
|
|
begin
|
|
//
|
|
end;
|
|
|
|
function cef_base_release_owned(self: PCefBaseRefCounted): Integer; stdcall;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
function cef_base_has_one_ref_owned(self: PCefBaseRefCounted): Integer; stdcall;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
function cef_base_has_at_least_one_ref_owned(self: PCefBaseRefCounted): Integer; stdcall;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
constructor TCefBaseRefCountedOwn.CreateData(size: Cardinal; owned : boolean);
|
|
begin
|
|
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
|
|
GetMem(FData, size + (SizeOf(Pointer) * 3));
|
|
PPointer(FData)^ := CEF4DELPHI_ALLOC_PADDING;
|
|
Inc(PByte(FData), SizeOf(Pointer));
|
|
PPointer(FData)^ := CEF4DELPHI_ALLOC_PADDING;
|
|
Inc(PByte(FData), SizeOf(Pointer));
|
|
PPointer(FData)^ := Self;
|
|
Inc(PByte(FData), SizeOf(Pointer));
|
|
FillChar(FData^, size, 0);
|
|
PCefBaseRefCounted(FData)^.size := size;
|
|
{$ELSE}
|
|
GetMem(FData, size + SizeOf(Pointer));
|
|
PPointer(FData)^ := Self;
|
|
Inc(PByte(FData), SizeOf(Pointer));
|
|
FillChar(FData^, size, 0);
|
|
PCefBaseRefCounted(FData)^.size := size;
|
|
{$ENDIF}
|
|
|
|
if owned then
|
|
begin
|
|
PCefBaseRefCounted(FData)^.add_ref := {$IFDEF FPC}@{$ENDIF}cef_base_add_ref_owned;
|
|
PCefBaseRefCounted(FData)^.release := {$IFDEF FPC}@{$ENDIF}cef_base_release_owned;
|
|
PCefBaseRefCounted(FData)^.has_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_one_ref_owned;
|
|
PCefBaseRefCounted(FData)^.has_at_least_one_ref := {$IFDEF FPC}@{$ENDIF}cef_base_has_at_least_one_ref_owned;
|
|
end
|
|
else
|
|
begin
|
|
PCefBaseRefCounted(FData)^.add_ref := {$IFDEF FPC}@{$ENDIF}cef_base_add_ref;
|
|
PCefBaseRefCounted(FData)^.release := {$IFDEF FPC}@{$ENDIF}cef_base_release_ref;
|
|
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;
|
|
end;
|
|
|
|
destructor TCefBaseRefCountedOwn.Destroy;
|
|
var
|
|
TempPointer : pointer;
|
|
begin
|
|
try
|
|
if (FData <> nil) then
|
|
begin
|
|
TempPointer := FData;
|
|
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
|
|
Dec(PByte(TempPointer), SizeOf(Pointer) * 3);
|
|
FillChar(TempPointer^, (SizeOf(Pointer) * 3) + SizeOf(TCefBaseRefCounted), 0);
|
|
{$ELSE}
|
|
Dec(PByte(TempPointer), SizeOf(Pointer));
|
|
FillChar(TempPointer^, SizeOf(Pointer) + SizeOf(TCefBaseRefCounted), 0);
|
|
{$ENDIF}
|
|
FreeMem(TempPointer);
|
|
end;
|
|
finally
|
|
FData := nil;
|
|
inherited Destroy;
|
|
end;
|
|
end;
|
|
|
|
function TCefBaseRefCountedOwn.SameAs(aData : Pointer) : boolean;
|
|
begin
|
|
Result := (FData = aData);
|
|
end;
|
|
|
|
function TCefBaseRefCountedOwn.SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean;
|
|
var
|
|
TempData : Pointer;
|
|
begin
|
|
Result := False;
|
|
|
|
if (aBaseRefCounted <> nil) then
|
|
begin
|
|
TempData := aBaseRefCounted.Wrap;
|
|
|
|
if (TempData <> nil) then
|
|
begin
|
|
Result := SameAs(TempData);
|
|
|
|
if assigned(PCefBaseRefCounted(TempData)^.release) then
|
|
PCefBaseRefCounted(TempData)^.release(PCefBaseRefCounted(TempData));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TCefBaseRefCountedOwn.DestroyOtherRefs;
|
|
begin
|
|
while HasAtLeastOneRef and not(HasOneRef) do
|
|
_Release;
|
|
end;
|
|
|
|
function TCefBaseRefCountedOwn.Wrap: Pointer;
|
|
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
|
|
var
|
|
TempPointer : pointer;
|
|
{$ENDIF}
|
|
begin
|
|
Result := FData;
|
|
|
|
{$IFDEF CEF4DELHI_ALLOC_DEBUG}
|
|
if (FData <> nil) then
|
|
begin
|
|
TempPointer := FData;
|
|
Dec(PByte(TempPointer), SizeOf(Pointer) * 3);
|
|
|
|
if (PPointer(TempPointer)^ <> CEF4DELPHI_ALLOC_PADDING) then
|
|
begin
|
|
Result := nil;
|
|
CefDebugLog('Pointer to an unknown memory address!', CEF_LOG_SEVERITY_INFO);
|
|
end
|
|
else
|
|
if Assigned(PCefBaseRefCounted(FData)^.add_ref) then
|
|
PCefBaseRefCounted(FData)^.add_ref(PCefBaseRefCounted(FData));
|
|
end;
|
|
{$ELSE}
|
|
if (FData <> nil) and Assigned(PCefBaseRefCounted(FData)^.add_ref) then
|
|
PCefBaseRefCounted(FData)^.add_ref(PCefBaseRefCounted(FData));
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function TCefBaseRefCountedOwn.HasOneRef : boolean;
|
|
begin
|
|
if (FData <> nil) and Assigned(PCefBaseRefCounted(FData)^.has_one_ref) then
|
|
Result := PCefBaseRefCounted(FData)^.has_one_ref(PCefBaseRefCounted(FData)) <> 0
|
|
else
|
|
Result := False;
|
|
end;
|
|
|
|
function TCefBaseRefCountedOwn.HasAtLeastOneRef : boolean;
|
|
begin
|
|
if (FData <> nil) and Assigned(PCefBaseRefCounted(FData)^.has_at_least_one_ref) then
|
|
Result := PCefBaseRefCounted(FData)^.has_at_least_one_ref(PCefBaseRefCounted(FData)) <> 0
|
|
else
|
|
Result := False;
|
|
end;
|
|
|
|
|
|
// ***********************************************
|
|
// ************ TCefBaseRefCountedRef ************
|
|
// ***********************************************
|
|
|
|
|
|
constructor TCefBaseRefCountedRef.Create(data: Pointer);
|
|
begin
|
|
Assert(data <> nil);
|
|
FData := data;
|
|
end;
|
|
|
|
destructor TCefBaseRefCountedRef.Destroy;
|
|
begin
|
|
try
|
|
if (FData <> nil) and assigned(PCefBaseRefCounted(FData)^.release) then
|
|
begin
|
|
{$IFDEF INTFLOG}
|
|
CefDebugLog(ClassName + '.Destroy -> FRefCount = ' +
|
|
IntToStr(PCefBaseRefCounted(FData)^.release(PCefBaseRefCounted(FData))));
|
|
{$ELSE}
|
|
PCefBaseRefCounted(FData)^.release(PCefBaseRefCounted(FData));
|
|
{$ENDIF}
|
|
end;
|
|
finally
|
|
FData := nil;
|
|
inherited Destroy;
|
|
end;
|
|
end;
|
|
|
|
function TCefBaseRefCountedRef.SameAs(aData : Pointer) : boolean;
|
|
begin
|
|
Result := (FData = aData);
|
|
end;
|
|
|
|
function TCefBaseRefCountedRef.SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean;
|
|
var
|
|
TempData : Pointer;
|
|
begin
|
|
Result := False;
|
|
|
|
if (aBaseRefCounted <> nil) then
|
|
begin
|
|
TempData := aBaseRefCounted.Wrap;
|
|
|
|
if (TempData <> nil) then
|
|
begin
|
|
Result := SameAs(TempData);
|
|
|
|
if assigned(PCefBaseRefCounted(TempData)^.release) then
|
|
PCefBaseRefCounted(TempData)^.release(PCefBaseRefCounted(TempData));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
class function TCefBaseRefCountedRef.UnWrap(data: Pointer): ICefBaseRefCounted;
|
|
begin
|
|
if (data <> nil) then
|
|
Result := Create(data) as ICefBaseRefCounted
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefBaseRefCountedRef.Wrap: Pointer;
|
|
begin
|
|
Result := FData;
|
|
|
|
if (FData <> nil) and Assigned(PCefBaseRefCounted(FData)^.add_ref) then
|
|
begin
|
|
PCefBaseRefCounted(FData)^.add_ref(PCefBaseRefCounted(FData));
|
|
{$IFDEF INTFLOG}
|
|
CefDebugLog(ClassName + '.Wrap');
|
|
{$ENDIF}
|
|
end;
|
|
end;
|
|
|
|
function TCefBaseRefCountedRef.HasOneRef : boolean;
|
|
begin
|
|
Result := (PCefBaseRefCounted(FData)^.has_one_ref(PCefBaseRefCounted(FData)) <> 0);
|
|
end;
|
|
|
|
function TCefBaseRefCountedRef.HasAtLeastOneRef : boolean;
|
|
begin
|
|
Result := (PCefBaseRefCounted(FData)^.has_at_least_one_ref(PCefBaseRefCounted(FData)) <> 0);
|
|
end;
|
|
|
|
procedure TCefBaseRefCountedRef.DestroyOtherRefs;
|
|
begin
|
|
//
|
|
end;
|
|
|
|
|
|
// ************************************************
|
|
// *********** TLoggingInterfacedObject ***********
|
|
// ************************************************
|
|
|
|
|
|
function TLoggingInterfacedObject._AddRef: Integer; stdcall;
|
|
begin
|
|
Result := inherited _AddRef;
|
|
CefDebugLog(ClassName + '._AddRef -> FRefCount = ' + IntToStr(Result));
|
|
end;
|
|
|
|
function TLoggingInterfacedObject._Release: Integer; stdcall;
|
|
begin
|
|
CefDebugLog(ClassName + '._Release -> FRefCount = ' + IntToStr(pred(RefCount)));
|
|
Result := inherited _Release;
|
|
end;
|
|
|
|
class function TLoggingInterfacedObject.NewInstance: TObject;
|
|
begin
|
|
Result := inherited NewInstance;
|
|
CefDebugLog(ClassName + '.NewInstance -> FRefCount = ' + IntToStr(TInterfacedObject(Result).RefCount));
|
|
end;
|
|
|
|
end.
|