IMoniker error in CommonPrefixWith definition
lazarus / 67-Windows

----------------------------------------------------------------------
440bx · 2025-06-26 03:44

Hello,

In Activex.pp, IMoniker is defined as follows:Code: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i    
PIMoniker = ^IMoniker;    IMoniker = Interface (IPersistStream)     
['{0000000f-0000-0000-C000-000000000046}']      Function BindToObject
(const pbc:IBindCtx;const mktoleft:IMoniker; const RiidResult:TIID;Out
vresult):HResult;StdCall;      Function GetTimeOfLastChange(Const
bc:IBindCtx;Const mkToLeft:IMoniker; out ft : FileTime):HResult;
StdCall;       { many methods "snipped" away }       { the following
definition is incorrect }       Function CommonPrefixWith (Const
mkOther:IMoniker):HResult; StdCall;        { remaining methods }     
Function RelativePathTo(Const mkother:IMoniker; Out mkRelPath :
IMoniker):HResult;StdCall;      Function GetDisplayName(Const
bc:IBindCtx;const mktoleft:IMoniker;Out szDisplayName:
pOleStr):HResult; StdCall;      Function ParseDisplayName(Const
bc:IBindCtx;Const mkToLeft:IMoniker;szDisplayName:POleStr;out
cheaten:ULong;out mkOut:IMoniker):HResult; StdCall;      Function
IsSystemMoniker(Out dwMkSys:DWord):HResult;StdCall;      End; 
In C/C++ the definition of CommonPrefixWith is:
Code: C  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i HRESULT
CommonPrefixWith(  [in]  IMoniker *pmkOther,  [out] IMoniker
**ppmkPrefix); which when translated to Pascal (following the pattern
in activex.pp) would yield something like:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i    
function CommonPrefixWith(const mkOther: IMoniker;      out mkPrefix:
IMoniker): HRESULT; stdcall; which is the definition found in
JwaActivex.pas

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

HTH.

----------------------------------------------------------------------
Thaddy · 2025-06-26 06:25

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

----------------------------------------------------------------------
marcov · 2025-06-26 07:56

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

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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 · 2025-06-26 11:04