IMoniker error in CommonPrefixWith definition

[440bx]

Hello,

In Activex.pp, IMoniker is defined as follows:

Code: Pascal  [Select][+][-]

1.     PIMoniker = ^IMoniker;
2.     IMoniker = Interface (IPersistStream)
3.       ['{0000000f-0000-0000-C000-000000000046}']
4.       Function BindToObject (const pbc:IBindCtx;const mktoleft:IMoniker; const RiidResult:TIID;Out vresult):HResult;StdCall;
5.       Function GetTimeOfLastChange(Const bc:IBindCtx;Const mkToLeft:IMoniker; out ft : FileTime):HResult; StdCall;
6.  
7.       { many methods "snipped" away }
8.  
9.       { the following definition is incorrect }
10.  
11.       Function CommonPrefixWith (Const mkOther:IMoniker):HResult; StdCall;
12.  
13.  
14.       { remaining methods }
15.  
16.       Function RelativePathTo(Const mkother:IMoniker; Out mkRelPath : IMoniker):HResult;StdCall;
17.       Function GetDisplayName(Const bc:IBindCtx;const mktoleft:IMoniker;Out szDisplayName: pOleStr):HResult; StdCall;
18.       Function ParseDisplayName(Const bc:IBindCtx;Const mkToLeft:IMoniker;szDisplayName:POleStr;out cheaten:ULong;out mkOut:IMoniker):HResult; StdCall;
19.       Function IsSystemMoniker(Out dwMkSys:DWord):HResult;StdCall;
20.       End;
21.  

In C/C++ the definition of CommonPrefixWith is:

Code: C  [Select][+][-]

1. HRESULT CommonPrefixWith(
2.   [in]  IMoniker *pmkOther,
3.   [out] IMoniker **ppmkPrefix
4. );
5.  

which when translated to Pascal (following the pattern in activex.pp) would yield something like:

Code: Pascal  [Select][+][-]

1.     function CommonPrefixWith(const mkOther: IMoniker;
2.       out mkPrefix: IMoniker): HRESULT; stdcall;
3.  

which is the definition found in JwaActivex.pas

Note that the definition in activex.pp is missing a parameter.

HTH.

[Thaddy]

Unlike your other post, this one is for Marcov..

[marcov]

Not really, since in my activex, imoniker is defined as       

Code: Pascal  [Select][+][-]

1. Function CommonPrefixWith (Const mkOther:IMoniker;Out mkPrefix : IMoniker):HResult; StdCall;

both in trunk and fixes.  According to blame fixed in april 2024 with commented "reported in the forum", which usually means by a certain 440bx 

[Thaddy]