definition problem in activex.pp
lazarus / 67-Windows

----------------------------------------------------------------------
440bx · 2025-07-07 11:28

Hello,

the following definitions appear in activex.pp:
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   { OLE 1.0
conversion APIS  }  {**** OLE 1.0 OLESTREAM declarations
************************************ }   type     LPOLESTREAM =
^_OLESTREAM;     _OLESTREAMVTBL = record       Get : function (p :
POleStr;out o;dw : DWORD) : DWORD;       Put : function (p :
POleStr;const o;dw : DWORD) : DWORD;     end;     OLESTREAMVTBL =
 _OLESTREAMVTBL;      LPOLESTREAMVTBL = OLESTREAMVTBL;      _OLESTREAM
= record          lpstbl : LPOLESTREAMVTBL;       end;     OLESTREAM =
_OLESTREAM; the functions Put and Get are CALLBACK functions, as such
they should be declared as "stdcall".

----------------------------------------------------------------------
Zvoni · 2025-07-07 11:44

Your line 12 is also wrong
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 typedef
struct _OLESTREAM* LPOLESTREAM;typedef struct _OLESTREAMVTBL {       
DWORD   (CALLBACK *Get)(LPOLESTREAM,LPSTR,DWORD);        DWORD  
(CALLBACK *Put)(LPOLESTREAM,LPSTR,DWORD);} OLESTREAMVTBL;typedef
OLESTREAMVTBL*  LPOLESTREAMVTBL;typedef struct _OLESTREAM {       
LPOLESTREAMVTBL lpstbl;} OLESTREAM;Line 6 is a Pointer

should be
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
LPOLESTREAMVTBL = ^OLESTREAMVTBL;

----------------------------------------------------------------------
440bx · 2025-07-07 11:45

Quote from: Zvoni on July 07, 2025, 01:44:05 pmYour line 12 is also
wrong
You're right, I didn't notice that one.

----------------------------------------------------------------------
marcov · 2025-07-07 11:52

Done, both.