paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:06:08 +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

10
rtl/inc/objpash.inc
View File

@ -13,7 +13,7 @@
TO MODIFY THE COMPILER AND OBJPAS.INC ACCORDINGLY, OTHERWISE
THIS WILL LEAD TO CRASHES IN THE RESULTING COMPILER AND/OR RTL.
IN PARTICULAR, THE IMPLEMENTATION PART OF THIS INCLUDE FILE,
IN PARTICULAR, THE IMPLEMENTATION PART OF THIS INCLUDE FILE,
OBJPAS.INC, USES SOME HARDCODED RECORD MEMBER OFFSETS.
See the file COPYING.FPC, included in this distribution,
@ -189,14 +189,14 @@
{ for native dispinterface support }
IDispatch = interface(IUnknown)
['{00020400-0000-0000-C000-000000000046}']
function GetTypeInfoCount(out count : longint) : longint;stdcall;
function GetTypeInfo(Index,LocaleID : longint;
function GetTypeInfoCount(out count : longint) : HResult;stdcall;
function GetTypeInfo(Index,LocaleID : HResult;
out TypeInfo): LongInt;stdcall;
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;
LocaleID : longint; Flags: Word;var params;
VarResult,ExcepInfo,ArgErr : pointer) : longint;stdcall;
VarResult,ExcepInfo,ArgErr : pointer) : HResult;stdcall;
end;
TInterfacedObject = class(TObject,IUnknown)