Author Topic: Webcams in QB64?!? More likely than you think! (Read 4512 times)

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?

[ You are not allowed to view this attachment ]

Code: QB64: [Select]

OPTION _EXPLICIT
'$CONSOLE:ONLY
'_DEST _CONSOLE
'Window Style Constants
CONST WS_BORDER = &H00800000
CONST WS_CAPTION = &H00C00000
CONST WS_CHILD = &H40000000
CONST WS_CHILDWINDOW = WS_CHILD
CONST WS_CLIPCHILDREN = &H02000000
CONST WS_CLIPSIBLINGS = &H04000000
CONST WS_DISABLED = &H08000000
CONST WS_DLGFRAME = &H00400000
CONST WS_GROUP = &H00020000
CONST WS_HSCROLL = &H00100000
CONST WS_ICONIC = &H20000000
CONST WS_MAXIMIZE = &H01000000
CONST WS_MAXIMIZEBOX = &H00010000
CONST WS_MINIMIZE = &H20000000
CONST WS_MINIMIZEBOX = &H00020000
CONST WS_OVERLAPPED = &H00000000
CONST WS_POPUP = &H80000000
CONST WS_SIZEBOX = &H00040000
CONST WS_SYSMENU = &H00080000
CONST WS_TABSTOP = &H00010000
CONST WS_THICKFRAME = &H00040000
CONST WS_TILED = &H00000000
CONST WS_VISIBLE = &H10000000
CONST WS_VSCROLL = &H00200000
CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
'------------------------------------------------------------------------------------------------------------------------------
'Capture Driver Constants
CONST WM_CAP_START = &H0400
CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
CONST WM_CAP_STOP = WM_CAP_START + 68
CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
'------------------------------------------------------------------------------------------------------------------------------
'Window Pos Constants
CONST SWP_ASYNCWINDOWPOS = &H4000
CONST SWP_DEFERERASE = &H2000
CONST SWP_DRAWFRAME = &H0020
CONST SWP_FRAMECHANGED = &H0020
CONST SWP_HIDEWINDOW = &H0080
CONST SWP_NOACTIVATE = &H0010
CONST SWP_NOCOPYBITS = &H0100
CONST SWP_NOMOVE = &H0002
CONST SWP_NOOWNERZORDER = &H0200
CONST SWP_NOREDRAW = &H0008
CONST SWP_NOREPOSITION = &H0200
CONST SWP_NOSENDCHANGING = &H0400
CONST SWP_NOSIZE = &H0001
CONST SWP_NOZORDER = &H0004
CONST SWP_SHOWWINDOW = &H0040
'------------------------------------------------------------------------------------------------------------------------------
TYPE CapDriverCaps
    DeviceIndex AS _UNSIGNED INTEGER
    HasOverlay AS _BYTE
    HasDlgVideoSource AS _BYTE
    HasDlgVideoFormat AS _BYTE
    HasDlgVideoDisplay AS _BYTE
    CaptureInitialized AS _BYTE
    DriverSuppliesPalettes AS _BYTE
    hVideoIn AS LONG
    hVideoOut AS LONG
    hVideoExtIn AS LONG
    hVideoExtOut AS LONG
END TYPE
 
TYPE POINTAPI
    x AS LONG
    y AS LONG
END TYPE
 
TYPE CapStatus
    ImageWidth AS _UNSIGNED INTEGER
    ImageHeight AS _UNSIGNED INTEGER
    LiveWindow AS _BYTE
    OverlayWindow AS _BYTE
    Scale AS _BYTE
    Scroll AS POINTAPI
    UsingDefaultPalette AS _BYTE
    AudioHardware AS _BYTE
    CapFileExists AS _BYTE
    CurrentVideoFrame AS LONG
    CurrentVideoFramesDropped AS LONG
    CurrentWaveSamples AS LONG
    CurrentTimeElapsedMS AS LONG
    PalCurrent AS LONG
    CapturingNow AS _BYTE
    Return AS LONG
    NumVideoAllocated AS _UNSIGNED INTEGER
    NumAudioAllocated AS _UNSIGNED INTEGER
END TYPE
 
DECLARE DYNAMIC LIBRARY "Avicap32"
    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)
    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)
END DECLARE
 
DECLARE DYNAMIC LIBRARY "User32"
    FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
    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)
END DECLARE
 
DIM childWin AS LONG
 
DIM captureWinText AS STRING
captureWinText = "My Capture Window" + CHR$(0)
DIM childID AS INTEGER
childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
PRINT childWin
 
PRINT "Connecting Driver:", , SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
DIM DeviceName AS STRING
DIM DeviceVersion AS STRING
DIM wIndex AS _UNSIGNED INTEGER
 
'FOR wIndex = 0 TO 10
DeviceName = SPACE$(80)
DeviceVersion = SPACE$(80)
PRINT "Getting Driver Description:", GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
PRINT DeviceName, DeviceVersion
'NEXT
 
DIM driverCaps AS CapDriverCaps
driverCaps.DeviceIndex = 0
PRINT "Getting Driver Capability:", SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
 
DIM capstatus AS CapStatus
PRINT "Setting Format:", SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
PRINT "Setting Preview Scale:", SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
PRINT "Setting Preview Rate:", SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 66, 0)
PRINT "Setting Preview:", , SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
'PRINT "Getting Status:", SendMessage(childWin, WM_CAP_GET_STATUS, LEN(capstatus), _OFFSET(capstatus))
'PRINT SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
 
DO
LOOP UNTIL INKEY$ <> ""
PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)
SLEEP

Petr · « **Reply #1 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]

OPTION _EXPLICIT
'$CONSOLE:ONLY
'_DEST _CONSOLE
'Window Style Constants
CONST WS_BORDER = &H00800000
CONST WS_CAPTION = &H00C00000
CONST WS_CHILD = &H40000000
CONST WS_CHILDWINDOW = WS_CHILD
CONST WS_CLIPCHILDREN = &H02000000
CONST WS_CLIPSIBLINGS = &H04000000
CONST WS_DISABLED = &H08000000
CONST WS_DLGFRAME = &H00400000
CONST WS_GROUP = &H00020000
CONST WS_HSCROLL = &H00100000
CONST WS_ICONIC = &H20000000
CONST WS_MAXIMIZE = &H01000000
CONST WS_MAXIMIZEBOX = &H00010000
CONST WS_MINIMIZE = &H20000000
CONST WS_MINIMIZEBOX = &H00020000
CONST WS_OVERLAPPED = &H00000000
CONST WS_POPUP = &H80000000
CONST WS_SIZEBOX = &H00040000
CONST WS_SYSMENU = &H00080000
CONST WS_TABSTOP = &H00010000
CONST WS_THICKFRAME = &H00040000
CONST WS_TILED = &H00000000
CONST WS_VISIBLE = &H10000000
CONST WS_VSCROLL = &H00200000
CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
'------------------------------------------------------------------------------------------------------------------------------
'Capture Driver Constants
CONST WM_CAP_START = &H0400
CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
CONST WM_CAP_STOP = WM_CAP_START + 68
CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
'------------------------------------------------------------------------------------------------------------------------------
'Window Pos Constants
CONST SWP_ASYNCWINDOWPOS = &H4000
CONST SWP_DEFERERASE = &H2000
CONST SWP_DRAWFRAME = &H0020
CONST SWP_FRAMECHANGED = &H0020
CONST SWP_HIDEWINDOW = &H0080
CONST SWP_NOACTIVATE = &H0010
CONST SWP_NOCOPYBITS = &H0100
CONST SWP_NOMOVE = &H0002
CONST SWP_NOOWNERZORDER = &H0200
CONST SWP_NOREDRAW = &H0008
CONST SWP_NOREPOSITION = &H0200
CONST SWP_NOSENDCHANGING = &H0400
CONST SWP_NOSIZE = &H0001
CONST SWP_NOZORDER = &H0004
CONST SWP_SHOWWINDOW = &H0040
'------------------------------------------------------------------------------------------------------------------------------
TYPE CapDriverCaps
    DeviceIndex AS _UNSIGNED INTEGER
    HasOverlay AS _BYTE
    HasDlgVideoSource AS _BYTE
    HasDlgVideoFormat AS _BYTE
    HasDlgVideoDisplay AS _BYTE
    CaptureInitialized AS _BYTE
    DriverSuppliesPalettes AS _BYTE
    hVideoIn AS LONG
    hVideoOut AS LONG
    hVideoExtIn AS LONG
    hVideoExtOut AS LONG
END TYPE
 
TYPE POINTAPI
    x AS LONG
    y AS LONG
END TYPE
 
TYPE CapStatus
    ImageWidth AS _UNSIGNED INTEGER
    ImageHeight AS _UNSIGNED INTEGER
    LiveWindow AS _BYTE
    OverlayWindow AS _BYTE
    Scale AS _BYTE
    Scroll AS POINTAPI
    UsingDefaultPalette AS _BYTE
    AudioHardware AS _BYTE
    CapFileExists AS _BYTE
    CurrentVideoFrame AS LONG
    CurrentVideoFramesDropped AS LONG
    CurrentWaveSamples AS LONG
    CurrentTimeElapsedMS AS LONG
    PalCurrent AS LONG
    CapturingNow AS _BYTE
    RETURN AS LONG
    NumVideoAllocated AS _UNSIGNED INTEGER
    NumAudioAllocated AS _UNSIGNED INTEGER
END TYPE
 
DECLARE DYNAMIC LIBRARY "Avicap32"
    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)
    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)
END DECLARE
 
DECLARE DYNAMIC LIBRARY "User32"
    FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
    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)
END DECLARE
 
DIM childWin AS _INTEGER64
 
DIM captureWinText AS STRING
captureWinText = "My Capture Window" + CHR$(0)
DIM childID AS _INTEGER64
childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
PRINT childWin
 
PRINT "Connecting Driver:", , SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
DIM DeviceName AS STRING * 80
DIM DeviceVersion AS STRING * 80
DIM wIndex AS _UNSIGNED INTEGER
 
'FOR wIndex = 0 TO 10
'DeviceName = SPACE$(80)
'DeviceVersion = SPACE$(80)
PRINT "Getting Driver Description:", GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
PRINT DeviceName, DeviceVersion
'NEXT
 
DIM driverCaps AS CapDriverCaps
driverCaps.DeviceIndex = 0
 
 
 
 
 
PRINT "Getting Driver Capability:", SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
 
DIM capstatus AS CapStatus
 
DO
    PRINT "Setting Format:", SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
    PRINT "Setting Preview Scale:", SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
    PRINT "Setting Preview Rate:", SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 66, 0)
 
    PRINT "Setting Preview:", , SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
    PRINT "Getting Status:", SendMessage(childWin, WM_CAP_GET_STATUS, LEN(capstatus), _OFFSET(capstatus))
    'PRINT SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
 
 
LOOP UNTIL INKEY$ <> ""
PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)
 
 
 

[ You are not allowed to view this attachment ]

SpriggsySpriggs · « **Reply #2 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:

[ You are not allowed to view this attachment ]

And the current code:

Code: QB64: [Select]

OPTION _EXPLICIT
'$CONSOLE:ONLY
'_DEST _CONSOLE
'Window Style Constants
CONST WS_BORDER = &H00800000
CONST WS_CAPTION = &H00C00000
CONST WS_CHILD = &H40000000
CONST WS_CHILDWINDOW = WS_CHILD
CONST WS_CLIPCHILDREN = &H02000000
CONST WS_CLIPSIBLINGS = &H04000000
CONST WS_DISABLED = &H08000000
CONST WS_DLGFRAME = &H00400000
CONST WS_GROUP = &H00020000
CONST WS_HSCROLL = &H00100000
CONST WS_ICONIC = &H20000000
CONST WS_MAXIMIZE = &H01000000
CONST WS_MAXIMIZEBOX = &H00010000
CONST WS_MINIMIZE = &H20000000
CONST WS_MINIMIZEBOX = &H00020000
CONST WS_OVERLAPPED = &H00000000
CONST WS_POPUP = &H80000000
CONST WS_SIZEBOX = &H00040000
CONST WS_SYSMENU = &H00080000
CONST WS_TABSTOP = &H00010000
CONST WS_THICKFRAME = &H00040000
CONST WS_TILED = &H00000000
CONST WS_VISIBLE = &H10000000
CONST WS_VSCROLL = &H00200000
CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
'------------------------------------------------------------------------------------------------------------------------------
'Capture Driver Constants
CONST WM_CAP_START = &H0400
CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
CONST WM_CAP_STOP = WM_CAP_START + 68
CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
CONST WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
'------------------------------------------------------------------------------------------------------------------------------
'Window Pos Constants
CONST SWP_ASYNCWINDOWPOS = &H4000
CONST SWP_DEFERERASE = &H2000
CONST SWP_DRAWFRAME = &H0020
CONST SWP_FRAMECHANGED = &H0020
CONST SWP_HIDEWINDOW = &H0080
CONST SWP_NOACTIVATE = &H0010
CONST SWP_NOCOPYBITS = &H0100
CONST SWP_NOMOVE = &H0002
CONST SWP_NOOWNERZORDER = &H0200
CONST SWP_NOREDRAW = &H0008
CONST SWP_NOREPOSITION = &H0200
CONST SWP_NOSENDCHANGING = &H0400
CONST SWP_NOSIZE = &H0001
CONST SWP_NOZORDER = &H0004
CONST SWP_SHOWWINDOW = &H0040
'------------------------------------------------------------------------------------------------------------------------------
TYPE CapDriverCaps
    DeviceIndex AS _UNSIGNED INTEGER
    HasOverlay AS _BYTE
    HasDlgVideoSource AS _BYTE
    HasDlgVideoFormat AS _BYTE
    HasDlgVideoDisplay AS _BYTE
    CaptureInitialized AS _BYTE
    DriverSuppliesPalettes AS _BYTE
    hVideoIn AS LONG
    hVideoOut AS LONG
    hVideoExtIn AS LONG
    hVideoExtOut AS LONG
END TYPE
 
TYPE POINTAPI
    x AS LONG
    y AS LONG
END TYPE
 
TYPE CapStatus
    ImageWidth AS _UNSIGNED INTEGER
    ImageHeight AS _UNSIGNED INTEGER
    LiveWindow AS _BYTE
    OverlayWindow AS _BYTE
    Scale AS _BYTE
    Scroll AS POINTAPI
    UsingDefaultPalette AS _BYTE
    AudioHardware AS _BYTE
    CapFileExists AS _BYTE
    CurrentVideoFrame AS LONG
    CurrentVideoFramesDropped AS LONG
    CurrentWaveSamples AS LONG
    CurrentTimeElapsedMS AS LONG
    PalCurrent AS LONG
    CapturingNow AS _BYTE
    RETURN AS LONG
    NumVideoAllocated AS _UNSIGNED INTEGER
    NumAudioAllocated AS _UNSIGNED INTEGER
END TYPE
 
DECLARE DYNAMIC LIBRARY "Avicap32"
    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)
    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)
END DECLARE
 
DECLARE DYNAMIC LIBRARY "User32"
    FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
    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)
END DECLARE
 
DIM childWin AS _INTEGER64
DIM a AS LONG
 
DIM captureWinText AS STRING
captureWinText = "My Capture Window" + CHR$(0)
DIM childID AS _INTEGER64
childWin = CreateCaptureWindow(captureWinText, WS_CHILD OR WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
 
a = SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
DIM DeviceName AS STRING
DIM DeviceVersion AS STRING
 
DeviceName = SPACE$(80)
DeviceVersion = SPACE$(80)
a = GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
 
DIM driverCaps AS CapDriverCaps
driverCaps.DeviceIndex = 0
 
a = SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
 
a = SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
DO
    a = SendMessage(childWin, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
    a = SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
    a = SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 16.7, 0)
    a = SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
    _LIMIT 60
LOOP UNTIL INKEY$ <> ""
PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)

SpriggsySpriggs · « **Reply #3 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]

OPTION _EXPLICIT
'$CONSOLE:ONLY
'_DEST _CONSOLE
'Window Style Constants
CONST WS_BORDER = &H00800000
CONST WS_CAPTION = &H00C00000
CONST WS_CHILD = &H40000000
CONST WS_CHILDWINDOW = WS_CHILD
CONST WS_CLIPCHILDREN = &H02000000
CONST WS_CLIPSIBLINGS = &H04000000
CONST WS_DISABLED = &H08000000
CONST WS_DLGFRAME = &H00400000
CONST WS_GROUP = &H00020000
CONST WS_HSCROLL = &H00100000
CONST WS_ICONIC = &H20000000
CONST WS_MAXIMIZE = &H01000000
CONST WS_MAXIMIZEBOX = &H00010000
CONST WS_MINIMIZE = &H20000000
CONST WS_MINIMIZEBOX = &H00020000
CONST WS_OVERLAPPED = &H00000000
CONST WS_POPUP = &H80000000
CONST WS_SIZEBOX = &H00040000
CONST WS_SYSMENU = &H00080000
CONST WS_TABSTOP = &H00010000
CONST WS_THICKFRAME = &H00040000
CONST WS_TILED = &H00000000
CONST WS_VISIBLE = &H10000000
CONST WS_VSCROLL = &H00200000
CONST WS_TILEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
CONST WS_POPUPWINDOW = WS_POPUP OR WS_BORDER OR WS_SYSMENU
CONST WS_OVERLAPPEDWINDOW = WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX
'------------------------------------------------------------------------------------------------------------------------------
'Capture Driver Constants
CONST WM_CAP_START = &H0400
CONST WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
CONST WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
CONST WM_CAP_EDIT_COPY = WM_CAP_START + 30
CONST WM_CAP_GRAB_FRAME = WM_CAP_START + 60
CONST WM_CAP_SET_SCALE = WM_CAP_START + 53
CONST WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
CONST WM_CAP_SET_PREVIEW = WM_CAP_START + 50
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
CONST WM_CAP_STOP = WM_CAP_START + 68
CONST WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
CONST WM_CAP_GET_STATUS = WM_CAP_START + 54
CONST WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
CONST WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
CONST WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
CONST WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
CONST WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43
CONST WM_CAP_SEQUENCE = WM_CAP_START + 62
CONST WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
CONST WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61
CONST WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20
CONST WM_CAP_SINGLE_FRAME = WM_CAP_START + 70
CONST WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35
'------------------------------------------------------------------------------------------------------------------------------
'Window Pos Constants
CONST SWP_ASYNCWINDOWPOS = &H4000
CONST SWP_DEFERERASE = &H2000
CONST SWP_DRAWFRAME = &H0020
CONST SWP_FRAMECHANGED = &H0020
CONST SWP_HIDEWINDOW = &H0080
CONST SWP_NOACTIVATE = &H0010
CONST SWP_NOCOPYBITS = &H0100
CONST SWP_NOMOVE = &H0002
CONST SWP_NOOWNERZORDER = &H0200
CONST SWP_NOREDRAW = &H0008
CONST SWP_NOREPOSITION = &H0200
CONST SWP_NOSENDCHANGING = &H0400
CONST SWP_NOSIZE = &H0001
CONST SWP_NOZORDER = &H0004
CONST SWP_SHOWWINDOW = &H0040
'------------------------------------------------------------------------------------------------------------------------------
CONST WAVE_FORMAT_PCM = 1
TYPE CapDriverCaps
    DeviceIndex AS _UNSIGNED INTEGER
    HasOverlay AS _BYTE
    HasDlgVideoSource AS _BYTE
    HasDlgVideoFormat AS _BYTE
    HasDlgVideoDisplay AS _BYTE
    CaptureInitialized AS _BYTE
    DriverSuppliesPalettes AS _BYTE
    hVideoIn AS LONG
    hVideoOut AS LONG
    hVideoExtIn AS LONG
    hVideoExtOut AS LONG
END TYPE
 
TYPE POINTAPI
    x AS LONG
    y AS LONG
END TYPE
 
TYPE CapStatus
    ImageWidth AS _UNSIGNED INTEGER
    ImageHeight AS _UNSIGNED INTEGER
    LiveWindow AS _BYTE
    OverlayWindow AS _BYTE
    Scale AS _BYTE
    Scroll AS POINTAPI
    UsingDefaultPalette AS _BYTE
    AudioHardware AS _BYTE
    CapFileExists AS _BYTE
    CurrentVideoFrame AS LONG
    CurrentVideoFramesDropped AS LONG
    CurrentWaveSamples AS LONG
    CurrentTimeElapsedMS AS LONG
    PalCurrent AS LONG
    CapturingNow AS _BYTE
    RETURN AS LONG
    NumVideoAllocated AS _UNSIGNED INTEGER
    NumAudioAllocated AS _UNSIGNED INTEGER
END TYPE
 
TYPE WAVEFORMATEX
    FormatTag AS INTEGER
    Channels AS INTEGER
    SamplesPerSec AS LONG
    AvgBytesPerSec AS LONG
    BlockAlign AS INTEGER
    BitsPerSample AS INTEGER
    cbSize AS INTEGER
END TYPE
 
 
DECLARE DYNAMIC LIBRARY "Avicap32"
    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)
    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)
END DECLARE
 
DECLARE DYNAMIC LIBRARY "User32"
    FUNCTION SendMessage& ALIAS SendMessageA (BYVAL hWnd AS LONG, BYVAL Msg AS _UNSIGNED INTEGER, BYVAL wParam AS LONG, BYVAL lParam AS _OFFSET)
    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)
END DECLARE
 
DIM childWin AS _INTEGER64
DIM a AS LONG
 
DIM captureWinText AS STRING
captureWinText = "Webcam API Test" + CHR$(0)
DIM childID AS _INTEGER64
childWin = CreateCaptureWindow(captureWinText, WS_VISIBLE, 0, 0, 640, 480, _WINDOWHANDLE, childID)
_TITLE "Webcam API Test"
PRINT childWin
 
a = SendMessage(childWin, WM_CAP_DRIVER_CONNECT, 0, 0)
DIM DeviceName AS STRING * 80
DIM DeviceVersion AS STRING * 80
DIM wIndex AS _UNSIGNED INTEGER
 
'FOR wIndex = 0 TO 10
'DeviceName = SPACE$(80)
'DeviceVersion = SPACE$(80)
a = GetDriverDescription(wIndex, _OFFSET(DeviceName), LEN(DeviceName), _OFFSET(DeviceVersion), LEN(DeviceVersion))
'PRINT DeviceName, DeviceVersion
'NEXT
 
DIM driverCaps AS CapDriverCaps
driverCaps.DeviceIndex = 0
 
a = SendMessage(childWin, WM_CAP_DRIVER_GET_CAPS, LEN(driverCaps), _OFFSET(driverCaps))
 
'DIM capstatus AS CapStatus
 
'a = SetWindowPos(childWin, 0, 0, 0, capstatus.ImageWidth, capstatus.ImageHeight, SWP_NOZORDER OR SWP_NOMOVE)
DIM filename AS STRING
filename = "Video.avi" + CHR$(0)
DIM wave AS WAVEFORMATEX
wave.FormatTag = WAVE_FORMAT_PCM
wave.Channels = 2
wave.SamplesPerSec = 44100
wave.AvgBytesPerSec = 176400
wave.BlockAlign = 4
wave.BitsPerSample = 16
wave.cbSize = 0
a = SendMessage(childWin, WM_CAP_SET_SCALE, -1, 0)
a = SendMessage(childWin, WM_CAP_SET_PREVIEWRATE, 16.7, 0)
a = SendMessage(childWin, WM_CAP_SET_PREVIEW, -1, 0)
a = SendMessage(childWin, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
a = SendMessage(childWin, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
a = SendMessage(childWin, WM_CAP_FILE_SET_CAPTURE_FILE, 0, _OFFSET(filename))
a = SendMessage(childWin, WM_CAP_SET_AUDIOFORMAT, LEN(wave), _OFFSET(wave))
a = SendMessage(childWin, WM_CAP_SEQUENCE, 0, 0)
DO
    a = SendMessage(childWin, WM_CAP_GRAB_FRAME_NOSTOP, 0, 0)
    _LIMIT 60
LOOP UNTIL INKEY$ <> ""
PRINT "Disconnecting Driver:", SendMessage(childWin, WM_CAP_DRIVER_DISCONNECT, 0, 0)

OldMoses · « **Reply #4 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.

Pete · « **Reply #5 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

SpriggsySpriggs · « **Reply #6 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.

Pete · « **Reply #7 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

SpriggsySpriggs · « **Reply #8 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.

Unseen Machine · « **Reply #9 on:** October 03, 2020, 03:39:12 am »

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

Ashish · « **Reply #10 on:** October 03, 2020, 05:07:35 am »

Great Job!!!

doppler · « **Reply #11 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.

News:

Author Topic: Webcams in QB64?!? More likely than you think! (Read 4512 times)

SpriggsySpriggs

Webcams in QB64?!? More likely than you think!

Petr

Re: Webcams in QB64?!? More likely than you think!

SpriggsySpriggs

Re: Webcams in QB64?!? More likely than you think!

SpriggsySpriggs

Re: Webcams in QB64?!? More likely than you think!

OldMoses

Re: Webcams in QB64?!? More likely than you think!

Pete

Re: Webcams in QB64?!? More likely than you think!

SpriggsySpriggs

Re: Webcams in QB64?!? More likely than you think!

Pete

Re: Webcams in QB64?!? More likely than you think!

SpriggsySpriggs

Re: Webcams in QB64?!? More likely than you think!

Unseen Machine

Re: Webcams in QB64?!? More likely than you think!

Ashish

Re: Webcams in QB64?!? More likely than you think!

doppler

Re: Webcams in QB64?!? More likely than you think!