issue with sending type _OFFSET to an API function

[madscijr]

(This came out of https://www.qb64.org/forum/index.php?topic=3766.0
which was about events and malloc. Now I am having a different issue so I am starting this new thread.)

I'm trying to convert this C program to QB64
https://jstookey.com/arcade/rawmouse/HelloRawInput.c

and am stuck on this error:

Code: [Select]

Cannot convert _OFFSET type to other types on line 118.
Caused by (or after): IF ( GETRAWINPUTDEVICELIST ( MYLIST , MYADDR , MEM . SIZE ) <> 0 ) THEN

The values being sent in seem to match the parameter types.
_OFFSET is a pointer, right?
What am I missing?

Code: QB64: [Select]

1. ' ****************************************************************************************************************************************************************
2. ' testmouse.c: A demonstration of how to use Rawinput to access multiple mice in Windows XP.
3. ' https://jstookey.com/arcade/rawmouse/HelloRawInput.c
4. ' ****************************************************************************************************************************************************************
5.  
6. ' #define _WIN32_WINNT 0x0501   // Identify this as a Windows XP application.
7. '                               // This is necessary so we can access rawinput
8. ' #include <stdio.h>
9. ' #include <conio.h>            //  Provides getch()
10. ' #include <windows.h>          //  Provides rawinput
11.  
12. ' =============================================================================
13. ' GLOBAL DECLARATIONS a$=string, i%=integer, L&=long, s!=single, d#=double
14.  
15. ' -----------------------------------------------------------------------------
16. ' BOOLEAN CONSTANTS
17. Const FALSE = 0
18. Const TRUE = Not FALSE
19.  
20. ' -----------------------------------------------------------------------------
21. ' USER DEFINED TYPES
22.  
23. ' What is PRAWINPUTDEVICELIST?
24. '     PRAWINPUTDEVICELIST:
25. '     typedef struct tagRAWINPUTDEVICELIST {
26. '       HANDLE hDevice;
27. '       DWORD  dwType;
28. '     } RAWINPUTDEVICELIST, *PRAWINPUTDEVICELIST;
29.  
30. Type RAWINPUTDEVICELIST
31.     hDevice As _Offset ' a handle will always be _OFFSET
32.     dwType As Long ' DWORD corresponds to LONG
33. End Type
34.  
35. ' -----------------------------------------------------------------------------
36. ' API FUNCTIONS
37.  
38. ' What is GetRawInputDeviceList?
39. '     UINT GetRawInputDeviceList(
40. '       PRAWINPUTDEVICELIST pRawInputDeviceList,
41. '       PUINT               puiNumDevices,        <---- what is a aPUINT?
42. '       UINT                cbSize
43. '     );
44.  
45. ' what is a aPUINT? According to
46. '     WIN32 API Data Types
47. '     https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
48. ' PUINT Pointer to a UINT.
49. ' Q: What QB64 type is equivalent to a pointer?
50. ' A: is it _OFFSET ?
51.  
52. Declare Dynamic Library "kernel32"
53.     ' COMPILER ERROR HERE: Expected &H... or &O...
54.     ' THEN WHEN I TRY CHANGING & TO &H OR &O, COMPILER SAYS MISSING )
55.     Function GetRawInputDeviceList& (pRawInputDeviceList As RAWINPUTDEVICELIST, puiNumDevices As _Offset, cbSize As _Unsigned Long)
56. End Declare
57.  
58. ' =============================================================================
59. ' GLOBAL VARIABLES
60. Dim ProgramPath$
61. Dim ProgramName$
62.  
63. ' =============================================================================
64. ' INITIALIZE
65. ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
66. ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
67.  
68. ' =============================================================================
69. ' START
70. main ProgramName$
71.  
72. ' =============================================================================
73. ' FINISH
74. System ' return control to the operating system
75. Print ProgramName$ + " finished."
76. End
77.  
78. ' /////////////////////////////////////////////////////////////////////////////
79.  
80. Sub main (ProgName$)
81.     Print "MinimalRawInputTest% RETURNS: " + cstr$(MinimalRawInputTest%)
82. End Sub ' main
83.  
84. Function MinimalRawInputTest%
85.     Dim iResult%
86.     'UINT nInputDevices;
87.     Dim nInputDevices As _Unsigned Long
88.     Dim MEM As _MEM
89.     Dim MyList As RAWINPUTDEVICELIST
90.     Dim MyAddr As _Offset
91.  
92.     ' 1st call to GetRawInputDeviceList: Pass NULL to get the size of the list.
93.     'if (GetRawInputDeviceList(NULL, &nInputDevices, sizeof(RAWINPUTDEVICELIST)) != 0) return 0;
94.  
95.     ' **********
96.     ' UNKNOWNS:
97.     ' Q1: how do you pass NULL in QB64?
98.     ' A1: ?
99.  
100.     ' Q2: what is &nInputDevices vs nInputDevices and what is the QB64 equivalent?
101.     ' A2: is it the pointer to the variable? in QB64, The _OFFSET function returns the memory offset of/within a given variable.
102.  
103.     ' Q3: what is the QB64 equivalent of sizeof?
104.     ' A3: maybe _MEM and _MEM.SIZE ?
105.  
106.     ' _MEM
107.     ' http://www.qb64.org/wiki/MEM
108.     ' The _MEM variable type can be used when working with memory blocks. It has no variable type suffix.
109.     ' The _MEM type contains the following read-only elements where name is the _MEM variable name:
110.     '    name.OFFSET is the current start position in the memory block AS _OFFSET. Add bytes to change position.
111.     '    name.SIZE is the remaining size of the block at current position in bytes AS _OFFSET
112.     '    name.TYPE is the type (represented as bits combined to form a value) AS _OFFSET:
113.  
114.     MyAddr = _Offset(nInputDevices)
115.     MEM = _Mem(RAWINPUTDEVICELIST)
116.  
117.     'IF (GetRawInputDeviceList(NULL, _OFFSET(nInputDevices), sizeof(RAWINPUTDEVICELIST)) <> 0) THEN
118.     IF (GetRawInputDeviceList(MyList, MyAddr, MEM.SIZE) <> 0) THEN
119.         iResult% = 0
120.     ELSE
121.         PRINT "Number of raw input devices: " + cstr$(nInputDevices)
122.         PRINT "Press any key..."
123.         SLEEP ' SLEEP without an argument waits until a keypress.)
124.         iResult% = 1
125.     END IF
126.  
127.     ' RETURN RESULT (ONE EXIT POINT!)
128.     MinimalRawInputTest% = iResult%
129. END FUNCTION ' MinimalRawInputTest%
130.  
131. ' /////////////////////////////////////////////////////////////////////////////
132. ' Equivalent to vbscript / VBA / VB6 cstr
133.  
134. FUNCTION cstr$ (myValue)
135.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
136.     cstr$ = _TRIM$(STR$(myValue))
137. END FUNCTION ' cstr$
138.  
139. ' /////////////////////////////////////////////////////////////////////////////
140. ' Converting C to QB64 notes:
141.  
142. ' PUINT?
143. ' https://www.daniweb.com/programming/software-development/threads/1767/c-data-types
144.  
145. ' Platform SDK: Win32 API Data Types
146. ' https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
147.  
148. ' Pointers? sizeof?
149. ' http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index_topic_10328-0/
150. ' https://qb64.org/wiki/OFFSET_(function)
151. ' https://www.qb64.org/wiki/Using_OFFSET
152.  
153. ' sizeof?
154. ' https://www.qb64.org/forum/index.php?topic=2427.0
155. ' https://www.qb64.org/wiki/MEMELEMENT
156.  
157. ' NULL values?
158. ' Google passing null value to api function in qb64
159. ' https://www.google.com/search?q=passing+null+value+to+api+function+in+qb64
160.  
161. ' _UNSIGNED equivalent of UINT
162. ' QB64 _UNSIGNED
163. ' http://www.qb64.org/wiki/UNSIGNED#:~:text=Explanation%3A%20In%20QB64%20an%20unsigned,by%20the%20value%20minus%2065536.&text=Explanation%3A%20The%20maximum%20value%20can,the%20FOR%20loop%20repeats%20itself.
164.  
165. ' declaring API libraries
166. ' https://www.qb64.org/wiki/DECLARE_LIBRARY
167. ' https://www.qb64.org/forum/index.php?topic=2930.60
168.  
169. ' Other QB64
170. ' QB64 Keyword Reference - By usage
171. ' https://www.qb64.org/wiki/Keyword_Reference_-_By_usage
172.  
173. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
174. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
175.  
176. ' RAWINPUTDEVICELIST structure (winuser.h) 12/05/2018
177. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-rawinputdevicelist
178.  
179. ' About Raw Input 05/31/2018
180. ' https://docs.microsoft.com/en-us/windows/win32/inputdev/about-raw-input
181.  
182. ' winuser.h -- USER procedure declarations, constant definitions and macros
183. ' https://ecs.syr.edu/faculty/fawcett/Handouts/coreTechnologies/windowsprogramming/WinUser.h
184.  
185. ' RawInput example: luluco250/MouseRaw.cpp
186. ' https://gist.github.com/luluco250/ac79d72a734295f167851ffdb36d77ee
187.  
188. ' -----------------------------------------------------------------------------
189. ' What is getch?
190. ' -----------------------------------------------------------------------------
191. '     getch() is a nonstandard function and is present in conio.h header file
192. '     which is mostly used by MS-DOS compilers like Turbo C. It is not part of
193. '     the C standard library or ISO C, nor is it defined by POSIX.
194. '     Like these functions, getch() also reads a single character from the
195. '     keyboard. But it does not use any buffer, so the entered character is
196. '     immediately returned without waiting for the enter key.
197. '     Syntax: int getch(void);
198. '     Parameters: This method does not accept any parameters.
199. '     Return value: This method returns the ASCII value of the key pressed.
200.  
201. ' -----------------------------------------------------------------------------
202. ' QB64 alternate to getch
203. ' -----------------------------------------------------------------------------
204. '
205. ' SLEEP ' SLEEP without an argument waits until a keypress.)
206. '
207. ' or
208. '
209. ' DO
210. '   x = _KEYHIT
211. '   IF x THEN
212. '       EXIT DO
213. '   END IF
214. ' LOOP
215.  
216. ' -----------------------------------------------------------------------------
217. ' windows api definitions, RawInput, Windows C headers, etc.
218. ' -----------------------------------------------------------------------------
219. ' Winuser.h header - Win32 apps | Microsoft Docs
220. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/
221.  
222. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
223. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
224.  
225. ' GetRawInputDeviceInfoA function (winuser.h) 12/05/2018
226. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdeviceinfoa
227.  
228. ' GetRawInputDeviceList and GetRawInputDeviceInfo APIs in PowerBuilder.
229. ' https://community.appeon.com/index.php/qna/q-a/getrawinputdevicelist-and-getrawinputdeviceinfo-apis-in-powerbuilder
230.  
231.  

PS More info here

Info on Windows data types & converting from C:

• https://web.archive.org/web/20040915204210/https://www.angelfire.com/hi5/delphizeus/lifts.html
• https://docs.microsoft.com/en-us/windows/win32/winprog/windows-data-types

More on what this code is supposed to do:

• https://jstookey.com/multiple-mice-raw-input/
• https://docs.microsoft.com/en-us/windows/win32/inputdev/raw-input?redirectedfrom=MSDN
• https://gist.github.com/luluco250/ac79d72a734295f167851ffdb36d77ee

[Petr]

Hi. I try using Steve McNeill's function for offset converting, so program is now compiled and run, but wrote, that this function not exists in kernel32.dll:

Code: QB64: [Select]

1. ' ****************************************************************************************************************************************************************
2. ' testmouse.c: A demonstration of how to use Rawinput to access multiple mice in Windows XP.
3. ' https://jstookey.com/arcade/rawmouse/HelloRawInput.c
4. ' ****************************************************************************************************************************************************************
5.  
6. ' #define _WIN32_WINNT 0x0501   // Identify this as a Windows XP application.
7. '                               // This is necessary so we can access rawinput
8. ' #include <stdio.h>
9. ' #include <conio.h>            //  Provides getch()
10. ' #include <windows.h>          //  Provides rawinput
11.  
12. ' =============================================================================
13. ' GLOBAL DECLARATIONS a$=string, i%=integer, L&=long, s!=single, d#=double
14.  
15. ' -----------------------------------------------------------------------------
16. ' BOOLEAN CONSTANTS
17. CONST FALSE = 0
18. CONST TRUE = NOT FALSE
19.  
20. ' -----------------------------------------------------------------------------
21. ' USER DEFINED TYPES
22.  
23. ' What is PRAWINPUTDEVICELIST?
24. '     PRAWINPUTDEVICELIST:
25. '     typedef struct tagRAWINPUTDEVICELIST {
26. '       HANDLE hDevice;
27. '       DWORD  dwType;
28. '     } RAWINPUTDEVICELIST, *PRAWINPUTDEVICELIST;
29.  
30. TYPE RAWINPUTDEVICELIST
31.     hDevice AS _OFFSET ' a handle will always be _OFFSET
32.     dwType AS LONG ' DWORD corresponds to LONG
33. END TYPE
34.  
35. ' -----------------------------------------------------------------------------
36. ' API FUNCTIONS
37.  
38. ' What is GetRawInputDeviceList?
39. '     UINT GetRawInputDeviceList(
40. '       PRAWINPUTDEVICELIST pRawInputDeviceList,
41. '       PUINT               puiNumDevices,        <---- what is a aPUINT?
42. '       UINT                cbSize
43. '     );
44.  
45. ' what is a aPUINT? According to
46. '     WIN32 API Data Types
47. '     https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
48. ' PUINT Pointer to a UINT.
49. ' Q: What QB64 type is equivalent to a pointer?
50. ' A: is it _OFFSET ?
51.  
52. DECLARE DYNAMIC LIBRARY "kernel32"
53.     ' COMPILER ERROR HERE: Expected &H... or &O...
54.     ' THEN WHEN I TRY CHANGING & TO &H OR &O, COMPILER SAYS MISSING )
55.     FUNCTION GetRawInputDeviceList& (pRawInputDeviceList AS RAWINPUTDEVICELIST, puiNumDevices AS _OFFSET, cbSize AS _UNSIGNED LONG)
56. END DECLARE
57.  
58. ' =============================================================================
59. ' GLOBAL VARIABLES
60. DIM ProgramPath$
61. DIM ProgramName$
62.  
63. ' =============================================================================
64. ' INITIALIZE
65. ProgramName$ = MID$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\") + 1)
66. ProgramPath$ = LEFT$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\"))
67.  
68. ' =============================================================================
69. ' START
70. main ProgramName$
71.  
72. ' =============================================================================
73. ' FINISH
74. SYSTEM ' return control to the operating system
75. PRINT ProgramName$ + " finished."
76. END
77.  
78. ' /////////////////////////////////////////////////////////////////////////////
79.  
80. SUB main (ProgName$)
81.     PRINT "MinimalRawInputTest% RETURNS: " + cstr$(MinimalRawInputTest%)
82. END SUB ' main
83.  
84. FUNCTION MinimalRawInputTest%
85.     DIM iResult%
86.     'UINT nInputDevices;
87.     DIM nInputDevices AS _UNSIGNED LONG
88.     DIM MEM AS _MEM
89.     DIM MyList AS RAWINPUTDEVICELIST
90.     DIM MyAddr AS _OFFSET
91.  
92.     ' 1st call to GetRawInputDeviceList: Pass NULL to get the size of the list.
93.     'if (GetRawInputDeviceList(NULL, &nInputDevices, sizeof(RAWINPUTDEVICELIST)) != 0) return 0;
94.  
95.     ' **********
96.     ' UNKNOWNS:
97.     ' Q1: how do you pass NULL in QB64?
98.     ' A1: ?
99.  
100.     ' Q2: what is &nInputDevices vs nInputDevices and what is the QB64 equivalent?
101.     ' A2: is it the pointer to the variable? in QB64, The _OFFSET function returns the memory offset of/within a given variable.
102.  
103.     ' Q3: what is the QB64 equivalent of sizeof?
104.     ' A3: maybe _MEM and _MEM.SIZE ?
105.  
106.     ' _MEM
107.     ' http://www.qb64.org/wiki/MEM
108.     ' The _MEM variable type can be used when working with memory blocks. It has no variable type suffix.
109.     ' The _MEM type contains the following read-only elements where name is the _MEM variable name:
110.     '    name.OFFSET is the current start position in the memory block AS _OFFSET. Add bytes to change position.
111.     '    name.SIZE is the remaining size of the block at current position in bytes AS _OFFSET
112.     '    name.TYPE is the type (represented as bits combined to form a value) AS _OFFSET:
113.  
114.     MyAddr = _OFFSET(nInputDevices)
115.     MEM = _MEM(RAWINPUTDEVICELIST)
116.     size&& = ConvertOffset(MEM.SIZE)
117.  
118.     'IF (GetRawInputDeviceList(NULL, _OFFSET(nInputDevices), sizeof(RAWINPUTDEVICELIST)) <> 0) THEN
119.     IF (GetRawInputDeviceList(MyList, MyAddr, size&&) <> 0) THEN
120.         iResult% = 0
121.     ELSE
122.         PRINT "Number of raw input devices: " + cstr$(nInputDevices)
123.         PRINT "Press any key..."
124.         SLEEP ' SLEEP without an argument waits until a keypress.)
125.         iResult% = 1
126.     END IF
127.  
128.     ' RETURN RESULT (ONE EXIT POINT!)
129.     MinimalRawInputTest% = iResult%
130. END FUNCTION ' MinimalRawInputTest%
131.  
132. ' /////////////////////////////////////////////////////////////////////////////
133. ' Equivalent to vbscript / VBA / VB6 cstr
134.  
135. FUNCTION cstr$ (myValue)
136.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
137.     cstr$ = _TRIM$(STR$(myValue))
138. END FUNCTION ' cstr$
139.  
140. ' /////////////////////////////////////////////////////////////////////////////
141. ' Converting C to QB64 notes:
142.  
143. ' PUINT?
144. ' https://www.daniweb.com/programming/software-development/threads/1767/c-data-types
145.  
146. ' Platform SDK: Win32 API Data Types
147. ' https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
148.  
149. ' Pointers? sizeof?
150. ' http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index_topic_10328-0/
151. ' https://qb64.org/wiki/OFFSET_(function)
152. ' https://www.qb64.org/wiki/Using_OFFSET
153.  
154. ' sizeof?
155. ' https://www.qb64.org/forum/index.php?topic=2427.0
156. ' https://www.qb64.org/wiki/MEMELEMENT
157.  
158. ' NULL values?
159. ' Google passing null value to api function in qb64
160. ' https://www.google.com/search?q=passing+null+value+to+api+function+in+qb64
161.  
162. ' _UNSIGNED equivalent of UINT
163. ' QB64 _UNSIGNED
164. ' http://www.qb64.org/wiki/UNSIGNED#:~:text=Explanation%3A%20In%20QB64%20an%20unsigned,by%20the%20value%20minus%2065536.&text=Explanation%3A%20The%20maximum%20value%20can,the%20FOR%20loop%20repeats%20itself.
165.  
166. ' declaring API libraries
167. ' https://www.qb64.org/wiki/DECLARE_LIBRARY
168. ' https://www.qb64.org/forum/index.php?topic=2930.60
169.  
170. ' Other QB64
171. ' QB64 Keyword Reference - By usage
172. ' https://www.qb64.org/wiki/Keyword_Reference_-_By_usage
173.  
174. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
175. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
176.  
177. ' RAWINPUTDEVICELIST structure (winuser.h) 12/05/2018
178. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-rawinputdevicelist
179.  
180. ' About Raw Input 05/31/2018
181. ' https://docs.microsoft.com/en-us/windows/win32/inputdev/about-raw-input
182.  
183. ' winuser.h -- USER procedure declarations, constant definitions and macros
184. ' https://ecs.syr.edu/faculty/fawcett/Handouts/coreTechnologies/windowsprogramming/WinUser.h
185.  
186. ' RawInput example: luluco250/MouseRaw.cpp
187. ' https://gist.github.com/luluco250/ac79d72a734295f167851ffdb36d77ee
188.  
189. ' -----------------------------------------------------------------------------
190. ' What is getch?
191. ' -----------------------------------------------------------------------------
192. '     getch() is a nonstandard function and is present in conio.h header file
193. '     which is mostly used by MS-DOS compilers like Turbo C. It is not part of
194. '     the C standard library or ISO C, nor is it defined by POSIX.
195. '     Like these functions, getch() also reads a single character from the
196. '     keyboard. But it does not use any buffer, so the entered character is
197. '     immediately returned without waiting for the enter key.
198. '     Syntax: int getch(void);
199. '     Parameters: This method does not accept any parameters.
200. '     Return value: This method returns the ASCII value of the key pressed.
201.  
202. ' -----------------------------------------------------------------------------
203. ' QB64 alternate to getch
204. ' -----------------------------------------------------------------------------
205. '
206. ' SLEEP ' SLEEP without an argument waits until a keypress.)
207. '
208. ' or
209. '
210. ' DO
211. '   x = _KEYHIT
212. '   IF x THEN
213. '       EXIT DO
214. '   END IF
215. ' LOOP
216.  
217. ' -----------------------------------------------------------------------------
218. ' windows api definitions, RawInput, Windows C headers, etc.
219. ' -----------------------------------------------------------------------------
220. ' Winuser.h header - Win32 apps | Microsoft Docs
221. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/
222.  
223. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
224. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
225.  
226. ' GetRawInputDeviceInfoA function (winuser.h) 12/05/2018
227. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdeviceinfoa
228.  
229. ' GetRawInputDeviceList and GetRawInputDeviceInfo APIs in PowerBuilder.
230. ' https://community.appeon.com/index.php/qna/q-a/getrawinputdevicelist-and-getrawinputdeviceinfo-apis-in-powerbuilder
231.  
232.  
233. FUNCTION ConvertOffset&& (value AS _OFFSET)
234.     DIM m AS _MEM 'Define a memblock
235.     m = _MEM(value) 'Point it to use value
236.     $IF 64BIT THEN
237.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
238.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
239.     $ELSE
240.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
241.         _MEMGET m, m.OFFSET, temp& 'Like this
242.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
243.     $END IF
244.     _MEMFREE m 'Free the memblock
245. END FUNCTION
246.  
247.  

Edit:

https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist

try it using User32.dll, it compile, but none output is done.

[Petr]

Just information for you, if you use User32.dll and then rewrite GetRawInputDeviceList& as GetRawInputDeviceList, then it start (maybe badly?) working, it returns zero Raw devices for me.

[madscijr]

Just information for you, if you use User32.dll and then rewrite GetRawInputDeviceList& as GetRawInputDeviceList, then it start (maybe badly?) working, it returns zero Raw devices for me.

Thanks Petr, I tried what you suggested, and it runs, but also returns zero raw devices.

Below is the current code - any suggestions, anyone?

Code: QB64: [Select]

1. ' ****************************************************************************************************************************************************************
2. ' testmouse.c: A demonstration of how to use Rawinput to access multiple mice in Windows XP.
3. ' https://jstookey.com/arcade/rawmouse/HelloRawInput.c
4. ' ****************************************************************************************************************************************************************
5.  
6. ' #define _WIN32_WINNT 0x0501   // Identify this as a Windows XP application.
7. '                               // This is necessary so we can access rawinput
8. ' #include <stdio.h>
9. ' #include <conio.h>            //  Provides getch()
10. ' #include <windows.h>          //  Provides rawinput
11.  
12. ' =============================================================================
13. ' GLOBAL DECLARATIONS a$=string, i%=integer, L&=long, s!=single, d#=double
14.  
15. ' -----------------------------------------------------------------------------
16. ' BOOLEAN CONSTANTS
17. CONST FALSE = 0
18. CONST TRUE = NOT FALSE
19.  
20. ' -----------------------------------------------------------------------------
21. ' USER DEFINED TYPES
22.  
23. ' What is PRAWINPUTDEVICELIST?
24. '     PRAWINPUTDEVICELIST:
25. '     typedef struct tagRAWINPUTDEVICELIST {
26. '       HANDLE hDevice;
27. '       DWORD  dwType;
28. '     } RAWINPUTDEVICELIST, *PRAWINPUTDEVICELIST;
29.  
30. TYPE RAWINPUTDEVICELIST
31.     hDevice AS _OFFSET ' a handle will always be _OFFSET
32.     dwType AS LONG ' DWORD corresponds to LONG
33. END TYPE
34.  
35. ' -----------------------------------------------------------------------------
36. ' API FUNCTIONS
37.  
38. ' What is GetRawInputDeviceList?
39. '     UINT GetRawInputDeviceList(
40. '       PRAWINPUTDEVICELIST pRawInputDeviceList,
41. '       PUINT               puiNumDevices,        <---- what is a aPUINT?
42. '       UINT                cbSize
43. '     );
44.  
45. ' what is a aPUINT? According to
46. '     WIN32 API Data Types
47. '     https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
48. ' PUINT Pointer to a UINT.
49. ' Q: What QB64 type is equivalent to a pointer?
50. ' A: is it _OFFSET ?
51.  
52. ' Petr: Just information for you, if you use User32.dll
53. '       and then rewrite GetRawInputDeviceList& as GetRawInputDeviceList,
54. '       then it start (maybe badly?) working, it returns zero Raw devices for me.
55.  
56. 'DECLARE DYNAMIC LIBRARY "kernel32"
57. DECLARE DYNAMIC LIBRARY "User32"
58.     ' COMPILER ERROR HERE: Expected &H... or &O...
59.     ' THEN WHEN I TRY CHANGING & TO &H OR &O, COMPILER SAYS MISSING )
60.     FUNCTION GetRawInputDeviceList& (pRawInputDeviceList AS RAWINPUTDEVICELIST, puiNumDevices AS _OFFSET, cbSize AS _UNSIGNED LONG)
61. END DECLARE
62.  
63. ' =============================================================================
64. ' GLOBAL VARIABLES
65. DIM ProgramPath$
66. DIM ProgramName$
67.  
68. ' =============================================================================
69. ' INITIALIZE
70. ProgramName$ = MID$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\") + 1)
71. ProgramPath$ = LEFT$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\"))
72.  
73. ' =============================================================================
74. ' START
75. main ProgramName$
76.  
77. ' =============================================================================
78. ' FINISH
79. SYSTEM ' return control to the operating system
80. PRINT ProgramName$ + " finished."
81. END
82.  
83. ' /////////////////////////////////////////////////////////////////////////////
84.  
85. SUB main (ProgName$)
86.     DIM in$
87.        
88.         PRINT "MinimalRawInputTest% RETURNS: " + cstr$(MinimalRawInputTest%)
89.     PRINT
90.     INPUT "PRESS <ENTER> TO CONTINUE", in$
91. END SUB ' main
92.  
93. FUNCTION MinimalRawInputTest%
94.     DIM iResult%
95.     'UINT nInputDevices;
96.     DIM nInputDevices AS _UNSIGNED LONG
97.     DIM MEM AS _MEM
98.     DIM MyList AS RAWINPUTDEVICELIST
99.     DIM MyAddr AS _OFFSET
100.  
101.     ' 1st call to GetRawInputDeviceList: Pass NULL to get the size of the list.
102.     'if (GetRawInputDeviceList(NULL, &nInputDevices, sizeof(RAWINPUTDEVICELIST)) != 0) return 0;
103.  
104.     ' **********
105.     ' UNKNOWNS:
106.     ' Q1: how do you pass NULL in QB64?
107.     ' A1: ?
108.  
109.     ' Q2: what is &nInputDevices vs nInputDevices and what is the QB64 equivalent?
110.     ' A2: is it the pointer to the variable? in QB64, The _OFFSET function returns the memory offset of/within a given variable.
111.  
112.     ' Q3: what is the QB64 equivalent of sizeof?
113.     ' A3: maybe _MEM and _MEM.SIZE ?
114.  
115.     ' _MEM
116.     ' http://www.qb64.org/wiki/MEM
117.     ' The _MEM variable type can be used when working with memory blocks. It has no variable type suffix.
118.     ' The _MEM type contains the following read-only elements where name is the _MEM variable name:
119.     '    name.OFFSET is the current start position in the memory block AS _OFFSET. Add bytes to change position.
120.     '    name.SIZE is the remaining size of the block at current position in bytes AS _OFFSET
121.     '    name.TYPE is the type (represented as bits combined to form a value) AS _OFFSET:
122.  
123.     MyAddr = _OFFSET(nInputDevices)
124.     MEM = _MEM(RAWINPUTDEVICELIST)
125.     size&& = ConvertOffset(MEM.SIZE)
126.  
127.     'IF (GetRawInputDeviceList(NULL, _OFFSET(nInputDevices), sizeof(RAWINPUTDEVICELIST)) <> 0) THEN
128.     IF (GetRawInputDeviceList(MyList, MyAddr, size&&) <> 0) THEN
129.         iResult% = 0
130.     ELSE
131.         PRINT "Number of raw input devices: " + cstr$(nInputDevices)
132.         PRINT "Press any key..."
133.         SLEEP ' SLEEP without an argument waits until a keypress.)
134.         iResult% = 1
135.     END IF
136.  
137.     ' RETURN RESULT (ONE EXIT POINT!)
138.     MinimalRawInputTest% = iResult%
139. END FUNCTION ' MinimalRawInputTest%
140.  
141. ' /////////////////////////////////////////////////////////////////////////////
142. ' Hi. I try using Steve McNeill's function for offset converting,
143. ' so program is now compiled and run, but wrote,
144. ' that this function not exists in kernel32.dll:
145.  
146. FUNCTION ConvertOffset&& (value AS _OFFSET)
147.     DIM m AS _MEM 'Define a memblock
148.     m = _MEM(value) 'Point it to use value
149.     $IF 64BIT THEN
150.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
151.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
152.     $ELSE
153.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
154.         _MEMGET m, m.OFFSET, temp& 'Like this
155.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
156.     $END IF
157.     _MEMFREE m 'Free the memblock
158. END FUNCTION
159.  
160. ' /////////////////////////////////////////////////////////////////////////////
161. ' Equivalent to vbscript / VBA / VB6 cstr
162.  
163. FUNCTION cstr$ (myValue)
164.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
165.     cstr$ = _TRIM$(STR$(myValue))
166. END FUNCTION ' cstr$
167.  
168. ' /////////////////////////////////////////////////////////////////////////////
169. ' Converting C to QB64 notes:
170.  
171. ' PUINT?
172. ' https://www.daniweb.com/programming/software-development/threads/1767/c-data-types
173.  
174. ' Platform SDK: Win32 API Data Types
175. ' https://www.csie.ntu.edu.tw/~r92094/c++/w32api_data_type.html
176.  
177. ' Pointers? sizeof?
178. ' https://qb64.org/wiki/OFFSET_(function)
179. ' https://www.qb64.org/wiki/Using_OFFSET
180.  
181. ' http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index_topic_10328-0/
182. ' ^^^
183. ' cached version: http://webcache.googleusercontent.com/search?q=cache:y5SVJL1obEQJ:www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index_topic_10328-0/+&cd=1&hl=en&ct=clnk&gl=us
184.  
185. ' sizeof?
186. ' https://www.qb64.org/forum/index.php?topic=2427.0
187. ' https://www.qb64.org/wiki/MEMELEMENT
188.  
189. ' NULL values?
190. ' Google passing null value to api function in qb64
191. ' https://www.google.com/search?q=passing+null+value+to+api+function+in+qb64
192.  
193. ' _UNSIGNED equivalent of UINT
194. ' QB64 _UNSIGNED
195. ' http://www.qb64.org/wiki/UNSIGNED#:~:text=Explanation%3A%20In%20QB64%20an%20unsigned,by%20the%20value%20minus%2065536.&text=Explanation%3A%20The%20maximum%20value%20can,the%20FOR%20loop%20repeats%20itself.
196.  
197. ' declaring API libraries
198. ' https://www.qb64.org/wiki/DECLARE_LIBRARY
199. ' https://www.qb64.org/forum/index.php?topic=2930.60
200.  
201. ' Other QB64
202. ' QB64 Keyword Reference - By usage
203. ' https://www.qb64.org/wiki/Keyword_Reference_-_By_usage
204.  
205. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
206. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
207.  
208. ' RAWINPUTDEVICELIST structure (winuser.h) 12/05/2018
209. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-rawinputdevicelist
210.  
211. ' About Raw Input 05/31/2018
212. ' https://docs.microsoft.com/en-us/windows/win32/inputdev/about-raw-input
213.  
214. ' winuser.h -- USER procedure declarations, constant definitions and macros
215. ' https://ecs.syr.edu/faculty/fawcett/Handouts/coreTechnologies/windowsprogramming/WinUser.h
216.  
217. ' RawInput example: luluco250/MouseRaw.cpp
218. ' https://gist.github.com/luluco250/ac79d72a734295f167851ffdb36d77ee
219.  
220. ' -----------------------------------------------------------------------------
221. ' What is getch?
222. ' -----------------------------------------------------------------------------
223. '     getch() is a nonstandard function and is present in conio.h header file
224. '     which is mostly used by MS-DOS compilers like Turbo C. It is not part of
225. '     the C standard library or ISO C, nor is it defined by POSIX.
226. '     Like these functions, getch() also reads a single character from the
227. '     keyboard. But it does not use any buffer, so the entered character is
228. '     immediately returned without waiting for the enter key.
229. '     Syntax: int getch(void);
230. '     Parameters: This method does not accept any parameters.
231. '     Return value: This method returns the ASCII value of the key pressed.
232.  
233. ' -----------------------------------------------------------------------------
234. ' QB64 alternate to getch
235. ' -----------------------------------------------------------------------------
236. '
237. ' SLEEP ' SLEEP without an argument waits until a keypress.)
238. '
239. ' or
240. '
241. ' DO
242. '   x = _KEYHIT
243. '   IF x THEN
244. '       EXIT DO
245. '   END IF
246. ' LOOP
247.  
248. ' -----------------------------------------------------------------------------
249. ' windows api definitions, RawInput, Windows C headers, etc.
250. ' -----------------------------------------------------------------------------
251. ' Winuser.h header - Win32 apps | Microsoft Docs
252. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/
253.  
254. ' GetRawInputDeviceList function (winuser.h) 12/05/2018
255. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist
256.  
257. ' GetRawInputDeviceInfoA function (winuser.h) 12/05/2018
258. ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getrawinputdeviceinfoa
259.  
260. ' GetRawInputDeviceList and GetRawInputDeviceInfo APIs in PowerBuilder.
261. ' https://community.appeon.com/index.php/qna/q-a/getrawinputdevicelist-and-getrawinputdeviceinfo-apis-in-powerbuilder
262.  
263.  

[madscijr]

Just information for you, if you use User32.dll and then rewrite GetRawInputDeviceList& as GetRawInputDeviceList, then it start (maybe badly?) working, it returns zero Raw devices for me.

I could try running the original C code
https://jstookey.com/multiple-mice-raw-input/

but I'm not sure what tools to use for Windows.
I downloaded Visual Studio 2019 community edition,
and tried importing the code, but it seems that the IDE supports C++ and not C.
I tried investigating further, and people say that Visual Studio can compile C (files with .c extension) but it only understands C89 (older version of the language). I can't figure out how to get it to work.

Could anyone recommend a C compiler for Windows 10, that would work with the code, and requires minimal knowledge to install & use? (For one thing I would like to avoid having to install Java on my PC!)

Or is there some way to "tap into" QB64's C compiler, to use that to compile C code into an executable?

[SpriggsySpriggs]

I was able to compile one of his samples using our gcc. It worked, but it was ugly as heck.

[madscijr]

I was able to compile one of his samples using our gcc. It worked, but it was ugly as heck.

Can you recommend a C compiler or IDE for Windows 10 that would do the job?