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

* result type of IDipatch methods is HResult

Browse Source 
git-svn-id: trunk@3384 -
This commit is contained in:
florian 2006-04-30 14:49:34 +00:00
parent c81f34aeee
commit c4aed2c424
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/objpash.inc
View File

@ -189,14 +189,14 @@
{ for native dispinterface support } { for native dispinterface support }
IDispatch = interface(IUnknown) IDispatch = interface(IUnknown)
['{00020400-0000-0000-C000-000000000046}'] ['{00020400-0000-0000-C000-000000000046}']
function GetTypeInfoCount(out count : longint) : longint;stdcall; function GetTypeInfoCount(out count : longint) : HResult;stdcall;
function GetTypeInfo(Index,LocaleID : longint; function GetTypeInfo(Index,LocaleID : HResult;
out TypeInfo): LongInt;stdcall; out TypeInfo): LongInt;stdcall;
function GetIDsOfNames(const iid: TGUID; names: Pointer; function GetIDsOfNames(const iid: TGUID; names: Pointer;
NameCount, LocaleID: LongInt; DispIDs: Pointer) : longint;stdcall; NameCount, LocaleID: LongInt; DispIDs: Pointer) : HResult;stdcall;
function Invoke(DispID: LongInt;const iid : TGUID; function Invoke(DispID: LongInt;const iid : TGUID;
LocaleID : longint; Flags: Word;var params; LocaleID : longint; Flags: Word;var params;
VarResult,ExcepInfo,ArgErr : pointer) : longint;stdcall; VarResult,ExcepInfo,ArgErr : pointer) : HResult;stdcall;
end; end;
TInterfacedObject = class(TObject,IUnknown) TInterfacedObject = class(TObject,IUnknown)