QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: SpriggsySpriggs on October 02, 2020, 03:29:55 pm

Title: Webcams in QB64?!? More likely than you think!
Post by: SpriggsySpriggs on October 02, 2020, 03:29:55 pm

So, any friends want to help tackle this and make it work to show more than 2 frames?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. '$CONSOLE:ONLY
3. '_DEST _CONSOLE
4. 'Window Style Constants
5. CONST WS_BORDER = &H00800000
6. CONST WS_CAPTION = &H00C00000
7. CONST WS_CHILD = &H40000000
8. CONST WS_CHILDWINDOW = WS_CHILD
9. CONST WS_CLIPCHILDREN = &H02000000
10. CONST WS_CLIPSIBLINGS = &H04000000
11. CONST WS_DISABLED = &H08000000
12. CONST WS_DLGFRAME = &H00400000
13. CONST WS_GROUP = &H00020000
14. CONST WS_HSCROLL = &H00100000
15. CONST WS_ICONIC = &H20000000
16. CONST WS_MAXIMIZE = &H01000000
17. CONST WS_MAXIMIZEBOX = &H00010000
18. CONST WS_MINIMIZE = &H20000000
19. CONST WS_MINIMIZEBOX = &H00020000
20. CONST WS_OVERLAPPED = &H00000000
21. CONST WS_POPUP = &H80000000
22. CONST WS_SIZEBOX = &H00040000
23. CONST WS_SYSMENU = &H00080000
24. CONST WS_TABSTOP = &H00010000
25. CONST WS_THICKFRAME = &H00040000
26. CONST WS_TILED = &H00000000
27. CONST WS_VISIBLE = &H10000000
28. CONST WS_VSCROLL = &H00200000
29. CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
30. CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
31. CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
32. '------------------------------------------------------------------------------------------------------------------------------
33. 'Capture Driver Constants
34. CONST WM_CAP_START = &H0400
35. CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
36. CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
37. CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
38. CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
39. CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
40. CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
41. CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
42. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
43. CONST WM_CAP_STOP = WM_CAP_START + 68
44. CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
45. CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
46. CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
47. CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
48. '------------------------------------------------------------------------------------------------------------------------------
49. 'Window Pos Constants
50. CONST SWP_ASYNCWINDOWPOS = &H4000
51. CONST SWP_DEFERERASE = &H2000
52. CONST SWP_DRAWFRAME = &H0020
53. CONST SWP_FRAMECHANGED = &H0020
54. CONST SWP_HIDEWINDOW = &H0080
55. CONST SWP_NOACTIVATE = &H0010
56. CONST SWP_NOCOPYBITS = &H0100
57. CONST SWP_NOMOVE = &H0002
58. CONST SWP_NOOWNERZORDER = &H0200
59. CONST SWP_NOREDRAW = &H0008
60. CONST SWP_NOREPOSITION = &H0200
61. CONST SWP_NOSENDCHANGING = &H0400
62. CONST SWP_NOSIZE = &H0001
63. CONST SWP_NOZORDER = &H0004
64. CONST SWP_SHOWWINDOW = &H0040
65. '------------------------------------------------------------------------------------------------------------------------------
66. TYPE CapDriverCaps
67.     DeviceIndex AS _UNSIGNED INTEGER
68.     HasOverlay AS _BYTE
69.     HasDlgVideoSource AS _BYTE
70.     HasDlgVideoFormat AS _BYTE
71.     HasDlgVideoDisplay AS _BYTE
72.     CaptureInitialized AS _BYTE
73.     DriverSuppliesPalettes AS _BYTE
74.     hVideoIn AS LONG
75.     hVideoOut AS LONG
76.     hVideoExtIn AS LONG
77.     hVideoExtOut AS LONG
78. END TYPE
79.  
80. TYPE POINTAPI
81.     x AS LONG
82.     y AS LONG
83. END TYPE
84.  
85. TYPE CapStatus
86.     ImageWidth AS _UNSIGNED INTEGER
87.     ImageHeight AS _UNSIGNED INTEGER
88.     LiveWindow AS _BYTE
89.     OverlayWindow AS _BYTE
90.     Scale AS _BYTE
91.     Scroll AS POINTAPI
92.     UsingDefaultPalette AS _BYTE
93.     AudioHardware AS _BYTE
94.     CapFileExists AS _BYTE
95.     CurrentVideoFrame AS LONG
96.     CurrentVideoFramesDropped AS LONG
97.     CurrentWaveSamples AS LONG
98.     CurrentTimeElapsedMS AS LONG
99.     PalCurrent AS LONG
100.     CapturingNow AS _BYTE
101.     Return AS LONG
102.     NumVideoAllocated AS _UNSIGNED INTEGER
103.     NumAudioAllocated AS _UNSIGNED INTEGER
104. END TYPE
105.  
106. DECLARE DYNAMIC LIBRARY "Avicap32"
107.     FUNCTION CreateCaptureWindow& ALIAS capCreateCaptureWindowA (lpszWindowName AS STRING, BYVAL dwStyle AS _OFFSET, BYVAL x AS INTEGER, BYVAL y AS INTEGER, BYVAL nWidth AS INTEGER, BYVAL nHeight AS INTEGER, BYVAL hwndParent AS _INTEGER64, BYVAL nId AS INTEGER)
108.     FUNCTION GetDriverDescription%% ALIAS capGetDriverDescriptionA (BYVAL wDriverIndex AS _UNSIGNED INTEGER, BYVAL lpszName AS _OFFSET, BYVAL cbName AS INTEGER, BYVAL lpszVer AS _OFFSET, BYVAL cbVer AS INTEGER)
109. END DECLARE
110.  
111. DECLARE DYNAMIC LIBRARY "User32"
112.     FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
113.     FUNCTION SetWindowPos%% (BYVAL hWnd AS LONG, BYVAL hWndInsertAfter, BYVAL X AS INTEGER, BYVAL Y AS INTEGER, BYVAL cx AS INTEGER, BYVAL cy AS INTEGER, BYVAL uFlags AS _UNSIGNED INTEGER)
114. END DECLARE
115.  
116. DIM childWin AS LONG
117.  
118. DIM captureWinText AS STRING
119. captureWinText = "My Capture Window" + CHR$(0)
120. DIM childID AS INTEGER
121. childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
122. PRINT childWin
123.  
124. PRINT "Connecting Driver:", , SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
125. DIM DeviceName AS STRING
126. DIM DeviceVersion AS STRING
127. DIM wIndex AS _UNSIGNED INTEGER
128.  
129. 'FOR wIndex = 0 TO 10
130. DeviceName = SPACE$(80)
131. DeviceVersion = SPACE$(80)
132. PRINT "Getting Driver Description:", GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
133. PRINT DeviceName, DeviceVersion
134. 'NEXT
135.  
136. DIM driverCaps AS CapDriverCaps
137. driverCaps.DeviceIndex = 0
138. PRINT "Getting Driver Capability:", SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
139.  
140. DIM capstatus AS CapStatus
141. PRINT "Setting Format:", SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
142. PRINT "Setting Preview Scale:", SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
143. PRINT "Setting Preview Rate:", SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 66, 0)
144. PRINT "Setting Preview:", , SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
145. 'PRINT "Getting Status:", SendMessage(childWin, WM_CAP_GET_STATUS, LEN(capstatus), _OFFSET(capstatus))
146. 'PRINT SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
147.  
148. DO
149. LOOP UNTIL INKEY$ <> ""
150. PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)
151. SLEEP

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: Petr on October 02, 2020, 03:57:38 pm

Hi. Perfect work. What function call camera setup dialog? This is my attempt. It works now, it do more frames, but camera setup dialog is still here:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. '$CONSOLE:ONLY
3. '_DEST _CONSOLE
4. 'Window Style Constants
5. CONST WS_BORDER = &H00800000
6. CONST WS_CAPTION = &H00C00000
7. CONST WS_CHILD = &H40000000
8. CONST WS_CHILDWINDOW = WS_CHILD
9. CONST WS_CLIPCHILDREN = &H02000000
10. CONST WS_CLIPSIBLINGS = &H04000000
11. CONST WS_DISABLED = &H08000000
12. CONST WS_DLGFRAME = &H00400000
13. CONST WS_GROUP = &H00020000
14. CONST WS_HSCROLL = &H00100000
15. CONST WS_ICONIC = &H20000000
16. CONST WS_MAXIMIZE = &H01000000
17. CONST WS_MAXIMIZEBOX = &H00010000
18. CONST WS_MINIMIZE = &H20000000
19. CONST WS_MINIMIZEBOX = &H00020000
20. CONST WS_OVERLAPPED = &H00000000
21. CONST WS_POPUP = &H80000000
22. CONST WS_SIZEBOX = &H00040000
23. CONST WS_SYSMENU = &H00080000
24. CONST WS_TABSTOP = &H00010000
25. CONST WS_THICKFRAME = &H00040000
26. CONST WS_TILED = &H00000000
27. CONST WS_VISIBLE = &H10000000
28. CONST WS_VSCROLL = &H00200000
29. CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
30. CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
31. CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
32. '------------------------------------------------------------------------------------------------------------------------------
33. 'Capture Driver Constants
34. CONST WM_CAP_START = &H0400
35. CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
36. CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
37. CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
38. CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
39. CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
40. CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
41. CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
42. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
43. CONST WM_CAP_STOP = WM_CAP_START + 68
44. CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
45. CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
46. CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
47. CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
48. '------------------------------------------------------------------------------------------------------------------------------
49. 'Window Pos Constants
50. CONST SWP_ASYNCWINDOWPOS = &H4000
51. CONST SWP_DEFERERASE = &H2000
52. CONST SWP_DRAWFRAME = &H0020
53. CONST SWP_FRAMECHANGED = &H0020
54. CONST SWP_HIDEWINDOW = &H0080
55. CONST SWP_NOACTIVATE = &H0010
56. CONST SWP_NOCOPYBITS = &H0100
57. CONST SWP_NOMOVE = &H0002
58. CONST SWP_NOOWNERZORDER = &H0200
59. CONST SWP_NOREDRAW = &H0008
60. CONST SWP_NOREPOSITION = &H0200
61. CONST SWP_NOSENDCHANGING = &H0400
62. CONST SWP_NOSIZE = &H0001
63. CONST SWP_NOZORDER = &H0004
64. CONST SWP_SHOWWINDOW = &H0040
65. '------------------------------------------------------------------------------------------------------------------------------
66. TYPE CapDriverCaps
67.     DeviceIndex AS _UNSIGNED INTEGER
68.     HasOverlay AS _BYTE
69.     HasDlgVideoSource AS _BYTE
70.     HasDlgVideoFormat AS _BYTE
71.     HasDlgVideoDisplay AS _BYTE
72.     CaptureInitialized AS _BYTE
73.     DriverSuppliesPalettes AS _BYTE
74.     hVideoIn AS LONG
75.     hVideoOut AS LONG
76.     hVideoExtIn AS LONG
77.     hVideoExtOut AS LONG
78. END TYPE
79.  
80. TYPE POINTAPI
81.     x AS LONG
82.     y AS LONG
83. END TYPE
84.  
85. TYPE CapStatus
86.     ImageWidth AS _UNSIGNED INTEGER
87.     ImageHeight AS _UNSIGNED INTEGER
88.     LiveWindow AS _BYTE
89.     OverlayWindow AS _BYTE
90.     Scale AS _BYTE
91.     Scroll AS POINTAPI
92.     UsingDefaultPalette AS _BYTE
93.     AudioHardware AS _BYTE
94.     CapFileExists AS _BYTE
95.     CurrentVideoFrame AS LONG
96.     CurrentVideoFramesDropped AS LONG
97.     CurrentWaveSamples AS LONG
98.     CurrentTimeElapsedMS AS LONG
99.     PalCurrent AS LONG
100.     CapturingNow AS _BYTE
101.     RETURN AS LONG
102.     NumVideoAllocated AS _UNSIGNED INTEGER
103.     NumAudioAllocated AS _UNSIGNED INTEGER
104. END TYPE
105.  
106. DECLARE DYNAMIC LIBRARY "Avicap32"
107.     FUNCTION CreateCaptureWindow& ALIAS capCreateCaptureWindowA (lpszWindowName AS STRING, BYVAL dwStyle AS _OFFSET, BYVAL x AS INTEGER, BYVAL y AS INTEGER, BYVAL nWidth AS INTEGER, BYVAL nHeight AS INTEGER, BYVAL hwndParent AS _INTEGER64, BYVAL nId AS INTEGER)
108.     FUNCTION GetDriverDescription%% ALIAS capGetDriverDescriptionA (BYVAL wDriverIndex AS _UNSIGNED INTEGER, BYVAL lpszName AS _OFFSET, BYVAL cbName AS INTEGER, BYVAL lpszVer AS _OFFSET, BYVAL cbVer AS INTEGER)
109. END DECLARE
110.  
111. DECLARE DYNAMIC LIBRARY "User32"
112.     FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
113.     FUNCTION SetWindowPos%% (BYVAL hWnd AS LONG, BYVAL hWndInsertAfter, BYVAL X AS INTEGER, BYVAL Y AS INTEGER, BYVAL cx AS INTEGER, BYVAL cy AS INTEGER, BYVAL uFlags AS _UNSIGNED INTEGER)
114. END DECLARE
115.  
116. DIM childWin AS _INTEGER64
117.  
118. DIM captureWinText AS STRING
119. captureWinText = "My Capture Window" + CHR$(0)
120. DIM childID AS _INTEGER64
121. childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
122. PRINT childWin
123.  
124. PRINT "Connecting Driver:", , SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
125. DIM DeviceName AS STRING * 80
126. DIM DeviceVersion AS STRING * 80
127. DIM wIndex AS _UNSIGNED INTEGER
128.  
129. 'FOR wIndex = 0 TO 10
130. 'DeviceName = SPACE$(80)
131. 'DeviceVersion = SPACE$(80)
132. PRINT "Getting Driver Description:", GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
133. PRINT DeviceName, DeviceVersion
134. 'NEXT
135.  
136. DIM driverCaps AS CapDriverCaps
137. driverCaps.DeviceIndex = 0
138.  
139.  
140.  
141.  
142.  
143. PRINT "Getting Driver Capability:", SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
144.  
145. DIM capstatus AS CapStatus
146.  
147. DO
148.     PRINT "Setting Format:", SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
149.     PRINT "Setting Preview Scale:", SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
150.     PRINT "Setting Preview Rate:", SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 66, 0)
151.  
152.     PRINT "Setting Preview:", , SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
153.     PRINT "Getting Status:", SendMessage(childWin, WM_CAP_GET_STATUS, LEN(capstatus), _OFFSET(capstatus))
154.     'PRINT SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
155.  
156.  
157. LOOP UNTIL INKEY$ <> ""
158. PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)
159.  
160.  
161.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: SpriggsySpriggs on October 02, 2020, 06:39:25 pm

Well, it looks like for this implementation, one needs to have one of the dialog boxes open to keep the preview refreshing. Until I figure out something different, here is a GIF I made from a desktop recording so you can see how it looks:

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

And the current code:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. '$CONSOLE:ONLY
3. '_DEST _CONSOLE
4. 'Window Style Constants
5. CONST WS_BORDER = &H00800000
6. CONST WS_CAPTION = &H00C00000
7. CONST WS_CHILD = &H40000000
8. CONST WS_CHILDWINDOW = WS_CHILD
9. CONST WS_CLIPCHILDREN = &H02000000
10. CONST WS_CLIPSIBLINGS = &H04000000
11. CONST WS_DISABLED = &H08000000
12. CONST WS_DLGFRAME = &H00400000
13. CONST WS_GROUP = &H00020000
14. CONST WS_HSCROLL = &H00100000
15. CONST WS_ICONIC = &H20000000
16. CONST WS_MAXIMIZE = &H01000000
17. CONST WS_MAXIMIZEBOX = &H00010000
18. CONST WS_MINIMIZE = &H20000000
19. CONST WS_MINIMIZEBOX = &H00020000
20. CONST WS_OVERLAPPED = &H00000000
21. CONST WS_POPUP = &H80000000
22. CONST WS_SIZEBOX = &H00040000
23. CONST WS_SYSMENU = &H00080000
24. CONST WS_TABSTOP = &H00010000
25. CONST WS_THICKFRAME = &H00040000
26. CONST WS_TILED = &H00000000
27. CONST WS_VISIBLE = &H10000000
28. CONST WS_VSCROLL = &H00200000
29. CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
30. CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
31. CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
32. '------------------------------------------------------------------------------------------------------------------------------
33. 'Capture Driver Constants
34. CONST WM_CAP_START = &H0400
35. CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
36. CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
37. CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
38. CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
39. CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
40. CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
41. CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
42. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
43. CONST WM_CAP_STOP = WM_CAP_START + 68
44. CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
45. CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
46. CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
47. CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
48. CONST WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
49. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
50. '------------------------------------------------------------------------------------------------------------------------------
51. 'Window Pos Constants
52. CONST SWP_ASYNCWINDOWPOS = &H4000
53. CONST SWP_DEFERERASE = &H2000
54. CONST SWP_DRAWFRAME = &H0020
55. CONST SWP_FRAMECHANGED = &H0020
56. CONST SWP_HIDEWINDOW = &H0080
57. CONST SWP_NOACTIVATE = &H0010
58. CONST SWP_NOCOPYBITS = &H0100
59. CONST SWP_NOMOVE = &H0002
60. CONST SWP_NOOWNERZORDER = &H0200
61. CONST SWP_NOREDRAW = &H0008
62. CONST SWP_NOREPOSITION = &H0200
63. CONST SWP_NOSENDCHANGING = &H0400
64. CONST SWP_NOSIZE = &H0001
65. CONST SWP_NOZORDER = &H0004
66. CONST SWP_SHOWWINDOW = &H0040
67. '------------------------------------------------------------------------------------------------------------------------------
68. TYPE CapDriverCaps
69.     DeviceIndex AS _UNSIGNED INTEGER
70.     HasOverlay AS _BYTE
71.     HasDlgVideoSource AS _BYTE
72.     HasDlgVideoFormat AS _BYTE
73.     HasDlgVideoDisplay AS _BYTE
74.     CaptureInitialized AS _BYTE
75.     DriverSuppliesPalettes AS _BYTE
76.     hVideoIn AS LONG
77.     hVideoOut AS LONG
78.     hVideoExtIn AS LONG
79.     hVideoExtOut AS LONG
80. END TYPE
81.  
82. TYPE POINTAPI
83.     x AS LONG
84.     y AS LONG
85. END TYPE
86.  
87. TYPE CapStatus
88.     ImageWidth AS _UNSIGNED INTEGER
89.     ImageHeight AS _UNSIGNED INTEGER
90.     LiveWindow AS _BYTE
91.     OverlayWindow AS _BYTE
92.     Scale AS _BYTE
93.     Scroll AS POINTAPI
94.     UsingDefaultPalette AS _BYTE
95.     AudioHardware AS _BYTE
96.     CapFileExists AS _BYTE
97.     CurrentVideoFrame AS LONG
98.     CurrentVideoFramesDropped AS LONG
99.     CurrentWaveSamples AS LONG
100.     CurrentTimeElapsedMS AS LONG
101.     PalCurrent AS LONG
102.     CapturingNow AS _BYTE
103.     RETURN AS LONG
104.     NumVideoAllocated AS _UNSIGNED INTEGER
105.     NumAudioAllocated AS _UNSIGNED INTEGER
106. END TYPE
107.  
108. DECLARE DYNAMIC LIBRARY "Avicap32"
109.     FUNCTION CreateCaptureWindow& ALIAS capCreateCaptureWindowA (lpszWindowName AS STRING, BYVAL dwStyle AS _OFFSET, BYVAL x AS INTEGER, BYVAL y AS INTEGER, BYVAL nWidth AS INTEGER, BYVAL nHeight AS INTEGER, BYVAL hwndParent AS _INTEGER64, BYVAL nId AS INTEGER)
110.     FUNCTION GetDriverDescription%% ALIAS capGetDriverDescriptionA (BYVAL wDriverIndex AS _UNSIGNED INTEGER, BYVAL lpszName AS _OFFSET, BYVAL cbName AS INTEGER, BYVAL lpszVer AS _OFFSET, BYVAL cbVer AS INTEGER)
111. END DECLARE
112.  
113. DECLARE DYNAMIC LIBRARY "User32"
114.     FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
115.     FUNCTION SetWindowPos%% (BYVAL hWnd AS LONG, BYVAL hWndInsertAfter, BYVAL X AS INTEGER, BYVAL Y AS INTEGER, BYVAL cx AS INTEGER, BYVAL cy AS INTEGER, BYVAL uFlags AS _UNSIGNED INTEGER)
116. END DECLARE
117.  
118. DIM childWin AS _INTEGER64
119. DIM a AS LONG
120.  
121. DIM captureWinText AS STRING
122. captureWinText = "My Capture Window" + CHR$(0)
123. DIM childID AS _INTEGER64
124. childWin = CreateCaptureWindow(captureWinText, WS_CHILD OR WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
125.  
126. a = SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
127. DIM DeviceName AS STRING
128. DIM DeviceVersion AS STRING
129.  
130. DeviceName = SPACE$(80)
131. DeviceVersion = SPACE$(80)
132. a = GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
133.  
134. DIM driverCaps AS CapDriverCaps
135. driverCaps.DeviceIndex = 0
136.  
137. a = SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
138.  
139. a = SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
140. DO
141.     a = SendMessage(childWin, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
142.     a = SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
143.     a = SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 16.7, 0)
144.     a = SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
145.     _LIMIT 60
146. LOOP UNTIL INKEY$ <> ""
147. PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: SpriggsySpriggs on October 02, 2020, 07:40:34 pm

My joy is immeasurable. Here is a link to a video I made with my code:

The current code:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. '$CONSOLE:ONLY
3. '_DEST _CONSOLE
4. 'Window Style Constants
5. CONST WS_BORDER = &H00800000
6. CONST WS_CAPTION = &H00C00000
7. CONST WS_CHILD = &H40000000
8. CONST WS_CHILDWINDOW = WS_CHILD
9. CONST WS_CLIPCHILDREN = &H02000000
10. CONST WS_CLIPSIBLINGS = &H04000000
11. CONST WS_DISABLED = &H08000000
12. CONST WS_DLGFRAME = &H00400000
13. CONST WS_GROUP = &H00020000
14. CONST WS_HSCROLL = &H00100000
15. CONST WS_ICONIC = &H20000000
16. CONST WS_MAXIMIZE = &H01000000
17. CONST WS_MAXIMIZEBOX = &H00010000
18. CONST WS_MINIMIZE = &H20000000
19. CONST WS_MINIMIZEBOX = &H00020000
20. CONST WS_OVERLAPPED = &H00000000
21. CONST WS_POPUP = &H80000000
22. CONST WS_SIZEBOX = &H00040000
23. CONST WS_SYSMENU = &H00080000
24. CONST WS_TABSTOP = &H00010000
25. CONST WS_THICKFRAME = &H00040000
26. CONST WS_TILED = &H00000000
27. CONST WS_VISIBLE = &H10000000
28. CONST WS_VSCROLL = &H00200000
29. CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
30. CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
31. CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
32. '------------------------------------------------------------------------------------------------------------------------------
33. 'Capture Driver Constants
34. CONST WM_CAP_START = &H0400
35. CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
36. CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
37. CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
38. CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
39. CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
40. CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
41. CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
42. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
43. CONST WM_CAP_STOP = WM_CAP_START + 68
44. CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
45. CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
46. CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
47. CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
48. CONST WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
49. CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
50. CONST WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43
51. CONST WM_CAP_SEQUENCE = WM_CAP_START + 62
52. CONST WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
53. CONST WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61
54. CONST WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20
55. CONST WM_CAP_SINGLE_FRAME = WM_CAP_START + 70
56. CONST WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35
57. '------------------------------------------------------------------------------------------------------------------------------
58. 'Window Pos Constants
59. CONST SWP_ASYNCWINDOWPOS = &H4000
60. CONST SWP_DEFERERASE = &H2000
61. CONST SWP_DRAWFRAME = &H0020
62. CONST SWP_FRAMECHANGED = &H0020
63. CONST SWP_HIDEWINDOW = &H0080
64. CONST SWP_NOACTIVATE = &H0010
65. CONST SWP_NOCOPYBITS = &H0100
66. CONST SWP_NOMOVE = &H0002
67. CONST SWP_NOOWNERZORDER = &H0200
68. CONST SWP_NOREDRAW = &H0008
69. CONST SWP_NOREPOSITION = &H0200
70. CONST SWP_NOSENDCHANGING = &H0400
71. CONST SWP_NOSIZE = &H0001
72. CONST SWP_NOZORDER = &H0004
73. CONST SWP_SHOWWINDOW = &H0040
74. '------------------------------------------------------------------------------------------------------------------------------
75. CONST WAVE_FORMAT_PCM = 1
76. TYPE CapDriverCaps
77.     DeviceIndex AS _UNSIGNED INTEGER
78.     HasOverlay AS _BYTE
79.     HasDlgVideoSource AS _BYTE
80.     HasDlgVideoFormat AS _BYTE
81.     HasDlgVideoDisplay AS _BYTE
82.     CaptureInitialized AS _BYTE
83.     DriverSuppliesPalettes AS _BYTE
84.     hVideoIn AS LONG
85.     hVideoOut AS LONG
86.     hVideoExtIn AS LONG
87.     hVideoExtOut AS LONG
88. END TYPE
89.  
90. TYPE POINTAPI
91.     x AS LONG
92.     y AS LONG
93. END TYPE
94.  
95. TYPE CapStatus
96.     ImageWidth AS _UNSIGNED INTEGER
97.     ImageHeight AS _UNSIGNED INTEGER
98.     LiveWindow AS _BYTE
99.     OverlayWindow AS _BYTE
100.     Scale AS _BYTE
101.     Scroll AS POINTAPI
102.     UsingDefaultPalette AS _BYTE
103.     AudioHardware AS _BYTE
104.     CapFileExists AS _BYTE
105.     CurrentVideoFrame AS LONG
106.     CurrentVideoFramesDropped AS LONG
107.     CurrentWaveSamples AS LONG
108.     CurrentTimeElapsedMS AS LONG
109.     PalCurrent AS LONG
110.     CapturingNow AS _BYTE
111.     RETURN AS LONG
112.     NumVideoAllocated AS _UNSIGNED INTEGER
113.     NumAudioAllocated AS _UNSIGNED INTEGER
114. END TYPE
115.  
116. TYPE WAVEFORMATEX
117.     FormatTag AS INTEGER
118.     Channels AS INTEGER
119.     SamplesPerSec AS LONG
120.     AvgBytesPerSec AS LONG
121.     BlockAlign AS INTEGER
122.     BitsPerSample AS INTEGER
123.     cbSize AS INTEGER
124. END TYPE
125.  
126.  
127. DECLARE DYNAMIC LIBRARY "Avicap32"
128.     FUNCTION CreateCaptureWindow& ALIAS capCreateCaptureWindowA (lpszWindowName AS STRING, BYVAL dwStyle AS _OFFSET, BYVAL x AS INTEGER, BYVAL y AS INTEGER, BYVAL nWidth AS INTEGER, BYVAL nHeight AS INTEGER, BYVAL hwndParent AS _INTEGER64, BYVAL nId AS INTEGER)
129.     FUNCTION GetDriverDescription%% ALIAS capGetDriverDescriptionA (BYVAL wDriverIndex AS _UNSIGNED INTEGER, BYVAL lpszName AS _OFFSET, BYVAL cbName AS INTEGER, BYVAL lpszVer AS _OFFSET, BYVAL cbVer AS INTEGER)
130. END DECLARE
131.  
132. DECLARE DYNAMIC LIBRARY "User32"
133.     FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
134.     FUNCTION SetWindowPos%% (BYVAL hWnd AS LONG, BYVAL hWndInsertAfter, BYVAL X AS INTEGER, BYVAL Y AS INTEGER, BYVAL cx AS INTEGER, BYVAL cy AS INTEGER, BYVAL uFlags AS _UNSIGNED INTEGER)
135. END DECLARE
136.  
137. DIM childWin AS _INTEGER64
138. DIM a AS LONG
139.  
140. DIM captureWinText AS STRING
141. captureWinText = "Webcam API Test" + CHR$(0)
142. DIM childID AS _INTEGER64
143. childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
144. _TITLE "Webcam API Test"
145. PRINT childWin
146.  
147. a = SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
148. DIM DeviceName AS STRING * 80
149. DIM DeviceVersion AS STRING * 80
150. DIM wIndex AS _UNSIGNED INTEGER
151.  
152. 'FOR wIndex = 0 TO 10
153. 'DeviceName = SPACE$(80)
154. 'DeviceVersion = SPACE$(80)
155. a = GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
156. 'PRINT DeviceName, DeviceVersion
157. 'NEXT
158.  
159. DIM driverCaps AS CapDriverCaps
160. driverCaps.DeviceIndex = 0
161.  
162. a = SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
163.  
164. 'DIM capstatus AS CapStatus
165.  
166. 'a = SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
167. DIM filename AS STRING
168. filename = "Video.avi" + CHR$(0)
169. DIM wave AS WAVEFORMATEX
170. wave.FormatTag = WAVE_FORMAT_PCM
171. wave.Channels = 2
172. wave.SamplesPerSec = 44100
173. wave.AvgBytesPerSec = 176400
174. wave.BlockAlign = 4
175. wave.BitsPerSample = 16
176. wave.cbSize = 0
177. a = SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
178. a = SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 16.7, 0)
179. a = SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
180. a = SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
181. a = SendMessage(childWin, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
182. a = SendMessage(childWin, WM_CAP_FILE_SET_CAPTURE_FILE, 0, _OFFSET(filename))
183. a = SendMessage(childWin, WM_CAP_SET_AUDIOFORMAT, LEN(wave), _OFFSET(wave))
184. a = SendMessage(childWin, WM_CAP_SEQUENCE, 0, 0)
185. DO
186.     a = SendMessage(childWin, WM_CAP_GRAB_FRAME_NOSTOP, 0, 0)
187.     _LIMIT 60
188. LOOP UNTIL INKEY$ <> ""
189. PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: OldMoses on October 02, 2020, 07:49:43 pm

I like Pilsner Urquell, that's about as far as my understanding goes, but the ap looks pretty cool.

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: Pete on October 02, 2020, 11:01:37 pm

What the HELL went wrong in test 2? Did you code that one in FreeBASIC? :D

So practically speaking, what could this be used for?

Pete

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: SpriggsySpriggs on October 02, 2020, 11:09:10 pm

@Pete Awesome things, obviously. If someone else wants to take some time with the code I just posted in my API collection then they could turn it into a camera application that takes photos or records videos. They could even mess with some compression values and make smaller files from it. My code is simple right now but someone else can run with it and make something great.

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: Pete on October 02, 2020, 11:25:42 pm

I mean I guess I could envision a game, played over Skype, with the QB64 app including a webcam, so both players could see each other, on the game screen. That's all I got.

Pete

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: SpriggsySpriggs on October 02, 2020, 11:35:54 pm

@Pete Also, part of my endeavor is to show everyone that the WinAPI is easier than they think. I churned out this webcam program in one day. Took several days of research, yes, but still only one day of coding.

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: Unseen Machine on October 03, 2020, 03:39:12 am

Well done mr Spriggs! Hats of to you sir! VERY COOL

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: Ashish on October 03, 2020, 05:07:35 am

Great Job!!!

Title: Re: Webcams in QB64?!? More likely than you think!
Post by: doppler on October 03, 2020, 07:20:42 am

OOOoo  this looks nice.

Next hat trick.  Make a zoom like interface with encryption end to end.  For two way video.  Got to get the audio working too.

Text Only | Text with Attachments