paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed declaration of IEnumUnknown.Next().

Browse Source 
* Added IOleContainer.EnumObjects() flags.
* Added IObjectWithSite
* Fixed nested comments warnings.

git-svn-id: trunk@22618 -
This commit is contained in:
yury 2012-10-12 16:22:38 +00:00
parent 2fdd8656d5
commit cce786676a
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/winunits-base/src/activex.pp
View File

@ -2212,7 +2212,7 @@ TYPE
IEnumUnknown = Interface(IUnknown)
['{00000100-0000-0000-C000-000000000046}']
// pointer_default(unique)
Function Next(Celt:Ulong;out rgelt;out pCeltFetched:pulong):HRESULT;StdCall;
Function Next(Celt:Ulong; out rgelt;pCeltFetched:pulong):HRESULT;StdCall;
// HRESULT RemoteNext( [in] ULONG celt, [out, size_is(celt), length_is( *pceltFetched)] IUnknown **rgelt, [out] ULONG *pceltFetched);
Function Skip(Celt:Ulong):HResult;StdCall;
Function Reset():HResult;
@ -2319,14 +2319,14 @@ TYPE
End;
ISequentialStream = Types.ISequentialStream;
{interface(IUnknown)
(*interface(IUnknown)
['{0c733a30-2a1c-11ce-ade5-00aa0044773d}']
function Read(pv : Pointer;cb : ULONG;pcbRead : PULONG) : HRESULT;stdcall;
function Write(pv : Pointer;cb : ULONG;pcbWritten : PULONG): HRESULT;stdcall;
end;
}
*)
{ defined above by pulling it in from types IStream = interface(ISequentialStream)
(* defined above by pulling it in from types IStream = interface(ISequentialStream)
['{0000000C-0000-0000-C000-000000000046}']
function Seek(dlibMove : LargeInt; dwOrigin: Longint;
out libNewPosition : LargeInt): HResult; stdcall;
@ -2342,7 +2342,7 @@ TYPE
Function Stat(out statstg : TStatStg; grfStatFlag: Longint): HRESULT;stdcall;
function Clone(out stm : IStream) : HRESULT; stdcall;
end;
}
*)
IEnumSTATSTG = Interface (IUnknown)
['{0000000d-0000-0000-C000-000000000046}']
Function Next (Celt:ULong;Out xcelt;pceltfetched : PUlong):HResult; StdCall;
@ -3241,6 +3241,15 @@ TYPE
Function ParseDisplayName(CONST bc: IBindCtx; pszDisplayName: POleStr;OUT chEaten: Longint; OUT mkOut: IMoniker): HResult;StdCall;
End;
const
// IOleContainer.EnumObjects() flags
OLECONTF_EMBEDDINGS = 1;
OLECONTF_LINKS = 2;
OLECONTF_OTHERS = 4;
OLECONTF_ONLYUSER = 8;
OLECONTF_ONLYIFRUNNING = 16;
type
IOleContainer = interface(IParseDisplayName)
['{0000011B-0000-0000-C000-000000000046}']
Function EnumObjects(grfFlags: Longint; OUT Enum: IEnumUnknown):HResult;StdCall;
@ -3553,6 +3562,11 @@ type
function GetExtent(dwDrawAspect:dword;lindex:DWord;ptd:pDVTARGETDEVICE;lpsizel:LPSIZEL):HRESULT;stdcall;
end;
IObjectWithSite = interface
['{FC4801A3-2BA9-11CF-A229-00AA003D7352}']
function SetSite(const pUnkSite: IUnknown):HRESULT; stdcall;
function GetSite(const riid: TIID; out Site: IUnknown):HRESULT; stdcall;
end;
{ COMCAT}