From c4aed2c4249d37f6cf16cce250ff5c842f8f8499 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 30 Apr 2006 14:49:34 +0000 Subject: [PATCH] * result type of IDipatch methods is HResult git-svn-id: trunk@3384 - --- rtl/inc/objpash.inc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc index a59e292cba..f2ef62a720 100644 --- a/rtl/inc/objpash.inc +++ b/rtl/inc/objpash.inc @@ -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)