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

* TContainedObject 10496. First implementation copied from TInterfacedObject

Browse Source 
git-svn-id: trunk@9569 -
This commit is contained in:
marco 2007-12-29 15:30:57 +00:00
parent 78138162a6
commit eb2a80d272
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/objpas.inc
View File

@ -782,6 +782,19 @@
Result := IUnknown(fcontroller);
end;
{****************************************************************************
TContainedOBJECT
****************************************************************************}
function TContainedObject.QueryInterface(
const iid : tguid;out obj) : longint; stdcall;
begin
if getinterface(iid,obj) then
result:=0
else
result:=longint(E_NOINTERFACE);
end;
{****************************************************************************
Exception Support

5
rtl/inc/objpash.inc
View File

@ -242,6 +242,11 @@
property Controller : IUnknown read GetController;
end;
TContainedObject = class(TObject)
protected
function QueryInterface(const iid : tguid;out obj) : longint;virtual; stdcall;
end;
{ some pointer definitions }
PUnknown = ^IUnknown;
PPUnknown = ^PUnknown;