definition problem in activex.pp

[440bx]

Hello,

the following definitions appear in activex.pp:

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

1.   { OLE 1.0 conversion APIS  }
2.   {**** OLE 1.0 OLESTREAM declarations ************************************ }
3.  
4.   type
5.      LPOLESTREAM = ^_OLESTREAM;
6.      _OLESTREAMVTBL = record
7.        Get : function (p : POleStr;out o;dw : DWORD) : DWORD;
8.        Put : function (p : POleStr;const o;dw : DWORD) : DWORD;
9.      end;
10.      OLESTREAMVTBL =  _OLESTREAMVTBL;
11.  
12.      LPOLESTREAMVTBL = OLESTREAMVTBL;
13.  
14.      _OLESTREAM = record
15.           lpstbl : LPOLESTREAMVTBL;
16.        end;
17.      OLESTREAM = _OLESTREAM;
18.  

the functions Put and Get are CALLBACK functions, as such they should be declared as "stdcall". 

[Zvoni]

Your line 12 is also wrong

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

1. typedef struct _OLESTREAM* LPOLESTREAM;
2. typedef struct _OLESTREAMVTBL {
3.         DWORD   (CALLBACK *Get)(LPOLESTREAM,LPSTR,DWORD);
4.         DWORD   (CALLBACK *Put)(LPOLESTREAM,LPSTR,DWORD);
5. } OLESTREAMVTBL;
6. typedef OLESTREAMVTBL*  LPOLESTREAMVTBL;
7. typedef struct _OLESTREAM {
8.         LPOLESTREAMVTBL lpstbl;
9. } OLESTREAM;

Line 6 is a Pointer

should be

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

1. LPOLESTREAMVTBL = ^OLESTREAMVTBL;

[440bx]

Your line 12 is also wrong

You're right, I didn't notice that one.

[marcov]

Done, both.