paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 20:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TAggregatedObject, fixes #8149

Browse Source 
git-svn-id: trunk@6089 -
This commit is contained in:
florian 2007-01-20 20:28:29 +00:00
parent 4e96fe8fac
commit 49796e5151
2 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/inc/objpas.inc
View File

@ -752,6 +752,43 @@
NewInstance:=inherited NewInstance;
TInterfacedObject(NewInstance).frefcount:=1;
end;
{****************************************************************************
TAGGREGATEDOBJECT
****************************************************************************}
constructor TAggregatedObject.Create(const aController: IUnknown);
begin
inherited Create;
{ do not keep a counted reference to the controller! }
fcontroller := Pointer(aController);
end;
function TAggregatedObject.QueryInterface(
const iid : tguid;out obj) : longint;stdcall;
begin
Result := IUnknown(fcontroller).QueryInterface(iid, obj);
end;
function TAggregatedObject._AddRef : longint;stdcall;
begin
Result := IUnknown(fcontroller)._AddRef;
end;
function TAggregatedObject._Release : longint;stdcall;
begin
Result := IUnknown(fcontroller)._Release;
end;
function TAggregatedObject.GetController : IUnknown;
begin
Result := IUnknown(fcontroller);
end;
{****************************************************************************

14
rtl/inc/objpash.inc
View File

@ -226,6 +226,20 @@
property RefCount : longint read frefcount;
end;
TInterfacedClass = class of TInterfacedObject;
TAggregatedObject = class(TObject)
private
fcontroller: Pointer;
function GetController: IUnknown;
protected
{ implement methods of IUnknown }
function QueryInterface(const iid : tguid;out obj) : longint;stdcall;
function _AddRef : longint;stdcall;
function _Release : longint;stdcall;
public
constructor Create(const aController: IUnknown);
property Controller : IUnknown read GetController;
end;
{ some pointer definitions }
PUnknown = ^IUnknown;