|
-
Apr 20th, 2016, 01:53 AM
#1
Thread Starter
Fanatic Member
How to get webcam feed?
Hello,
I'm making an application that will watch the webcam for changes in the scene, and when a change is detected, it will save the image to disk (or upload it).
Issue is that I can't find a way to get Visual Basic to get the image from either my laptop's webcam, or an external webcam. I've done a bit of searching around, and haven't found working code, or a library that does is that has been updated in the last 6 years.
Does anyone have any suggestions, or better yet, a simple code example that works?
-
Apr 20th, 2016, 06:43 AM
#2
Hyperactive Member
Re: How to get webcam feed?
I was considering doing something similar for a custom home security system but haven't gotten around to starting it yet. Just posting to make this easier to find later. Hope you get a solution.
-
Apr 20th, 2016, 11:02 AM
#3
Re: How to get webcam feed?
this is how i accessed the webcam for a similar project:
Code:
Imports System.Runtime.InteropServices
Imports System.Threading
Public Class WebCam
Implements PicProcessor.IPicProvider
#Region "API Stuff"
Private Declare Auto Function SendMessage _
Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As IntPtr
Private Declare Auto Function capCreateCaptureWindow _
Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Int32, ByVal x As Int32, _
ByVal y As Int32, ByVal nWidth As Int32, ByVal nHeight As Int32, ByVal hWndParent As IntPtr, _
ByVal nID As Int32) As IntPtr
Private Declare Function DestroyWindow _
Lib "user32.dll" (ByVal hWnd As IntPtr) As Int32
<StructLayout(LayoutKind.Sequential)> _
Private Structure VIDEOHDR
Public lpData As IntPtr
Public dwBufferLength As Int32
Public dwBytesUsed As Int32
Public dwTimeCaptured As Int32
Public dwUser As Int32
Public dwFlags As Int32
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> Public dwReserved() As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure CAPTUREPARMS
Public dwRequestMicroSecPerFrame As Int32
Public fMakeUserHitOKToCapture As Int32
Public wPercentDropForError As Int32
Public fYield As Int32
Public dwIndexSize As Int32
Public wChunkGranularity As Int32
Public fUsingDOSMemory As Int32
Public wNumVideoRequested As Int32
Public fCaptureAudio As Int32
Public wNumAudioRequested As Int32
Public vKeyAbort As Int32
Public fAbortLeftMouse As Int32
Public fAbortRightMouse As Int32
Public fLimitEnabled As Int32
Public wTimeLimit As Int32
Public fMCIControl As Int32
Public fStepMCIDevice As Int32
Public dwMCIStartTime As Int32
Public dwMCIStopTime As Int32
Public fStepCaptureAt2x As Int32
Public wStepCaptureAverageFrames As Int32
Public dwAudioBufferSize As Int32
Public fDisableWriteCache As Int32
Public AVStreamMaster As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure BITMAPINFO
Public bmiHeader As BITMAPINFOHEADER
Public bmiColors() As RGBQUAD
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure BITMAPINFOHEADER
Public biSize As Int32
Public biWidth As Int32
Public biHeight As Int32
Public biPlanes As Int16
Public biBitCount As Int16
Public biCompression As Int32
Public biSizeImage As Int32
Public biXPelsPerMeter As Int16
Public biYPelsPerMeter As Int16
Public biClrUsed As Int32
Public biClrImportant As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure RGBQUAD
Public rgbBlue As Byte
Public rgbGreen As Byte
Public rgbRed As Byte
Public rgbReserved As Byte
End Structure
Private Const WS_CHILD As Int32 = &H40000000
Private Const WS_VISIBLE As Int32 = &H10000000
Private Const INVALID_HANDLE_VALUE As Int32 = -1
Private Const WM_USER As Int32 = &H400
Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM As Int32 = WM_USER + 6
Private Const WM_CAP_DRIVER_CONNECT As Int32 = WM_USER + 10
Private Const WM_CAP_DRIVER_DISCONNECT As Int32 = WM_USER + 11
Private Const WM_CAP_DLG_VIDEOFORMAT As Int32 = WM_USER + 41
Private Const WM_CAP_DLG_VIDEODISPLAY As Int32 = WM_USER + 43
Private Const WM_CAP_GET_VIDEOFORMAT As Int32 = WM_USER + 44
Private Const WM_CAP_SET_VIDEOFORMAT As Int32 = WM_USER + 45
Private Const WM_CAP_DLG_VIDEOCOMPRESSION As Int32 = WM_USER + 46
Private Const WM_CAP_SET_PREVIEW As Int32 = WM_USER + 50
Private Const WM_CAP_SET_PREVIEWRATE As Int32 = WM_USER + 52
Private Const WM_CAP_SET_SCALE As Int32 = WM_USER + 53
Private Const WM_CAP_SEQUENCE As Int32 = WM_USER + 62
Private Const WM_CAP_SEQUENCE_NOFILE As Int32 = WM_USER + 63
Private Const WM_CAP_SET_SEQUENCE_SETUP As Int32 = WM_USER + 64
Private Const WM_CAP_GET_SEQUENCE_SETUP As Int32 = WM_USER + 65
Private Const WM_CAP_STOP As Int32 = WM_USER + 68
#End Region
Private Delegate Function VideoStreamCallback(ByVal hwnd As IntPtr, ByRef lpVHdr As VIDEOHDR) As Int32
Private CallBack As New VideoStreamCallback(AddressOf HandleVideoStreamCallback)
Public Event FrameCompleted()
Private oCapParams As New CAPTUREPARMS
Private oCapVideoFormat As BITMAPINFO
Private hPreviewWindow As IntPtr
<MarshalAs(UnmanagedType.ByValArray)> Public btPicData() As Byte
Private cFrame As Int32
Private isRunning As Boolean
Private Structure YCbCrPixel
Public Y As Int32
Public Cb As Int32
Public Cr As Int32
End Structure
Public ReadOnly Property FrameNumber() As Int32 Implements PicProcessor.IPicProvider.FrameNumber
Get
Return cFrame
End Get
End Property
Public ReadOnly Property PicData() As Byte() Implements PicProcessor.IPicProvider.PicData
Get
PicData = btPicData
End Get
End Property
Public ReadOnly Property Width() As Int32 Implements PicProcessor.IPicProvider.Width
Get
Return oCapVideoFormat.bmiHeader.biWidth
End Get
End Property
Public ReadOnly Property Height() As Int32 Implements PicProcessor.IPicProvider.Height
Get
Return oCapVideoFormat.bmiHeader.biHeight
End Get
End Property
Public Sub initCam(ByRef Preview As Panel)
Cleanup()
hPreviewWindow = capCreateCaptureWindow("name", WS_VISIBLE Or WS_CHILD, 0, 0, Preview.Width, Preview.Height, Preview.Handle, 0)
SendMessage(hPreviewWindow, WM_CAP_DRIVER_CONNECT, 0, 0) 'schon jetzt ist die cam offen
SendMessage(hPreviewWindow, WM_CAP_SET_PREVIEWRATE, 100, 0) 'ohne dem hier sieht man solange keinen preview bis WM_CAP_SEQUENCE aufgerufen wird
SendMessage(hPreviewWindow, WM_CAP_SET_PREVIEW, 1, 0)
SendMessage(hPreviewWindow, WM_CAP_SET_SCALE, 1, 0)
Dim lpData As IntPtr
'Get aktuelle Params, fYield ändern und Set, damit das Fenster sicher angezeigt wird:
lpData = Marshal.AllocHGlobal(Marshal.SizeOf(oCapParams))
If SendMessage(hPreviewWindow, WM_CAP_GET_SEQUENCE_SETUP, Marshal.SizeOf(oCapParams), lpData) <> 0 Then
oCapParams = CType(Marshal.PtrToStructure(lpData, GetType(CAPTUREPARMS)), CAPTUREPARMS)
With oCapParams
.fYield = 1
.fAbortLeftMouse = 0
.fAbortRightMouse = 0
End With
Marshal.StructureToPtr(oCapParams, lpData, True)
If SendMessage(hPreviewWindow, WM_CAP_SET_SEQUENCE_SETUP, Marshal.SizeOf(oCapParams), lpData) <> 0 Then
'good
Else
'Stop
End If
End If
Marshal.FreeHGlobal(lpData)
'user das format wählen lassen:
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEODISPLAY, 0, 0) <- does not display a dialog for me
'Get video format
lpData = Marshal.AllocHGlobal(Marshal.SizeOf(oCapVideoFormat))
If SendMessage(hPreviewWindow, WM_CAP_GET_VIDEOFORMAT, Marshal.SizeOf(oCapVideoFormat), lpData.ToInt32) <> 0 Then
'oCapVideoFormat = CType(Marshal.PtrToStructure(lpData, GetType(BITMAPINFO)), BITMAPINFO) 'vorsicht! das kann offenbar in die hose gehen!
oCapVideoFormat.bmiHeader = CType(Marshal.PtrToStructure(lpData, GetType(BITMAPINFOHEADER)), BITMAPINFOHEADER)
'Modify und Set
'oCapVideoFormat.bmiHeader.biCompression = BI_RGB '<-diese settings hat meine cam nicht akzeptiert
'oCapVideoFormat.bmiHeader.biBitCount = 32
'oCapVideoFormat.bmiHeader.biWidth = 320
'oCapVideoFormat.bmiHeader.biHeight = 240
'Marshal.StructureToPtr(oCapVideoFormat.bmiHeader, lpData, True)
'If SendMessage(hPreviewWindow, WM_CAP_SET_VIDEOFORMAT, Marshal.SizeOf(oCapVideoFormat), lpData.ToInt32) <> 0 Then
'good
'Else
'Stop
'End If
End If
Marshal.FreeHGlobal(lpData)
'Arrays die für die Verarbeitung des Bildes notwendig sind vorbereiten
With oCapVideoFormat.bmiHeader
ReDim btPicData(.biSizeImage - 1I)
End With
End Sub
Public Sub StartCapture()
'Callback installieren & und capturing starten
SendMessage(hPreviewWindow, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, Marshal.GetFunctionPointerForDelegate(CallBack))
'SendMessage(hPreviewWindow, WM_CAP_SEQUENCE, 0, 0) 'geht auch, aber speichert zus. C:\CAPTURE.AVI
SendMessage(hPreviewWindow, WM_CAP_SEQUENCE_NOFILE, 0, 0) 'nicht in C:\CAPTURE.AVI speichern
isRunning = True
cFrame = 0
End Sub
Public Sub StopCapture()
If isRunning Then
SendMessage(hPreviewWindow, WM_CAP_STOP, 0, 0)
isRunning = False
End If
End Sub
Public Sub Cleanup()
StopCapture()
If hPreviewWindow = 0 Then
'derzt. nicht initialisiert
ElseIf hPreviewWindow <> INVALID_HANDLE_VALUE Then
SendMessage(hPreviewWindow, WM_CAP_DRIVER_DISCONNECT, 0, 0)
DestroyWindow(hPreviewWindow)
hPreviewWindow = INVALID_HANDLE_VALUE
End If
End Sub
Protected Overrides Sub Finalize()
Cleanup()
MyBase.Finalize()
End Sub
Private Function HandleVideoStreamCallback(ByVal hwnd As IntPtr, ByRef lpVHdr As VIDEOHDR) As Int32
'Debug.Print(String.Format("time ms captured: {0}, Used: {1}, of total {2} ", lpVHdr.dwTimeCaptured, lpVHdr.dwBytesUsed, lpVHdr.dwBufferLength.ToString))
cFrame += 1
'Debug.WriteLine(Thread.CurrentThread.ManagedThreadId & " " & pCallback)
'Debug.Print(cFrame.ToString)
Marshal.Copy(lpVHdr.lpData, btPicData, 0, lpVHdr.dwBytesUsed)
RaiseEvent FrameCompleted()
End Function
End Class
other code of that project did the motion detectionn but i'd leave that implementation to you.
-
Apr 21st, 2016, 12:07 AM
#4
Hyperactive Member
Re: How to get webcam feed?
 Originally Posted by digitalShaman
this is how i accessed the webcam for a similar project:
Code:
Imports System.Runtime.InteropServices
Imports System.Threading
Public Class WebCam
Implements PicProcessor.IPicProvider
#Region "API Stuff"
Private Declare Auto Function SendMessage _
Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As IntPtr
Private Declare Auto Function capCreateCaptureWindow _
Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Int32, ByVal x As Int32, _
ByVal y As Int32, ByVal nWidth As Int32, ByVal nHeight As Int32, ByVal hWndParent As IntPtr, _
ByVal nID As Int32) As IntPtr
Private Declare Function DestroyWindow _
Lib "user32.dll" (ByVal hWnd As IntPtr) As Int32
<StructLayout(LayoutKind.Sequential)> _
Private Structure VIDEOHDR
Public lpData As IntPtr
Public dwBufferLength As Int32
Public dwBytesUsed As Int32
Public dwTimeCaptured As Int32
Public dwUser As Int32
Public dwFlags As Int32
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> Public dwReserved() As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure CAPTUREPARMS
Public dwRequestMicroSecPerFrame As Int32
Public fMakeUserHitOKToCapture As Int32
Public wPercentDropForError As Int32
Public fYield As Int32
Public dwIndexSize As Int32
Public wChunkGranularity As Int32
Public fUsingDOSMemory As Int32
Public wNumVideoRequested As Int32
Public fCaptureAudio As Int32
Public wNumAudioRequested As Int32
Public vKeyAbort As Int32
Public fAbortLeftMouse As Int32
Public fAbortRightMouse As Int32
Public fLimitEnabled As Int32
Public wTimeLimit As Int32
Public fMCIControl As Int32
Public fStepMCIDevice As Int32
Public dwMCIStartTime As Int32
Public dwMCIStopTime As Int32
Public fStepCaptureAt2x As Int32
Public wStepCaptureAverageFrames As Int32
Public dwAudioBufferSize As Int32
Public fDisableWriteCache As Int32
Public AVStreamMaster As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure BITMAPINFO
Public bmiHeader As BITMAPINFOHEADER
Public bmiColors() As RGBQUAD
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure BITMAPINFOHEADER
Public biSize As Int32
Public biWidth As Int32
Public biHeight As Int32
Public biPlanes As Int16
Public biBitCount As Int16
Public biCompression As Int32
Public biSizeImage As Int32
Public biXPelsPerMeter As Int16
Public biYPelsPerMeter As Int16
Public biClrUsed As Int32
Public biClrImportant As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure RGBQUAD
Public rgbBlue As Byte
Public rgbGreen As Byte
Public rgbRed As Byte
Public rgbReserved As Byte
End Structure
Private Const WS_CHILD As Int32 = &H40000000
Private Const WS_VISIBLE As Int32 = &H10000000
Private Const INVALID_HANDLE_VALUE As Int32 = -1
Private Const WM_USER As Int32 = &H400
Private Const WM_CAP_SET_CALLBACK_VIDEOSTREAM As Int32 = WM_USER + 6
Private Const WM_CAP_DRIVER_CONNECT As Int32 = WM_USER + 10
Private Const WM_CAP_DRIVER_DISCONNECT As Int32 = WM_USER + 11
Private Const WM_CAP_DLG_VIDEOFORMAT As Int32 = WM_USER + 41
Private Const WM_CAP_DLG_VIDEODISPLAY As Int32 = WM_USER + 43
Private Const WM_CAP_GET_VIDEOFORMAT As Int32 = WM_USER + 44
Private Const WM_CAP_SET_VIDEOFORMAT As Int32 = WM_USER + 45
Private Const WM_CAP_DLG_VIDEOCOMPRESSION As Int32 = WM_USER + 46
Private Const WM_CAP_SET_PREVIEW As Int32 = WM_USER + 50
Private Const WM_CAP_SET_PREVIEWRATE As Int32 = WM_USER + 52
Private Const WM_CAP_SET_SCALE As Int32 = WM_USER + 53
Private Const WM_CAP_SEQUENCE As Int32 = WM_USER + 62
Private Const WM_CAP_SEQUENCE_NOFILE As Int32 = WM_USER + 63
Private Const WM_CAP_SET_SEQUENCE_SETUP As Int32 = WM_USER + 64
Private Const WM_CAP_GET_SEQUENCE_SETUP As Int32 = WM_USER + 65
Private Const WM_CAP_STOP As Int32 = WM_USER + 68
#End Region
Private Delegate Function VideoStreamCallback(ByVal hwnd As IntPtr, ByRef lpVHdr As VIDEOHDR) As Int32
Private CallBack As New VideoStreamCallback(AddressOf HandleVideoStreamCallback)
Public Event FrameCompleted()
Private oCapParams As New CAPTUREPARMS
Private oCapVideoFormat As BITMAPINFO
Private hPreviewWindow As IntPtr
<MarshalAs(UnmanagedType.ByValArray)> Public btPicData() As Byte
Private cFrame As Int32
Private isRunning As Boolean
Private Structure YCbCrPixel
Public Y As Int32
Public Cb As Int32
Public Cr As Int32
End Structure
Public ReadOnly Property FrameNumber() As Int32 Implements PicProcessor.IPicProvider.FrameNumber
Get
Return cFrame
End Get
End Property
Public ReadOnly Property PicData() As Byte() Implements PicProcessor.IPicProvider.PicData
Get
PicData = btPicData
End Get
End Property
Public ReadOnly Property Width() As Int32 Implements PicProcessor.IPicProvider.Width
Get
Return oCapVideoFormat.bmiHeader.biWidth
End Get
End Property
Public ReadOnly Property Height() As Int32 Implements PicProcessor.IPicProvider.Height
Get
Return oCapVideoFormat.bmiHeader.biHeight
End Get
End Property
Public Sub initCam(ByRef Preview As Panel)
Cleanup()
hPreviewWindow = capCreateCaptureWindow("name", WS_VISIBLE Or WS_CHILD, 0, 0, Preview.Width, Preview.Height, Preview.Handle, 0)
SendMessage(hPreviewWindow, WM_CAP_DRIVER_CONNECT, 0, 0) 'schon jetzt ist die cam offen
SendMessage(hPreviewWindow, WM_CAP_SET_PREVIEWRATE, 100, 0) 'ohne dem hier sieht man solange keinen preview bis WM_CAP_SEQUENCE aufgerufen wird
SendMessage(hPreviewWindow, WM_CAP_SET_PREVIEW, 1, 0)
SendMessage(hPreviewWindow, WM_CAP_SET_SCALE, 1, 0)
Dim lpData As IntPtr
'Get aktuelle Params, fYield ändern und Set, damit das Fenster sicher angezeigt wird:
lpData = Marshal.AllocHGlobal(Marshal.SizeOf(oCapParams))
If SendMessage(hPreviewWindow, WM_CAP_GET_SEQUENCE_SETUP, Marshal.SizeOf(oCapParams), lpData) <> 0 Then
oCapParams = CType(Marshal.PtrToStructure(lpData, GetType(CAPTUREPARMS)), CAPTUREPARMS)
With oCapParams
.fYield = 1
.fAbortLeftMouse = 0
.fAbortRightMouse = 0
End With
Marshal.StructureToPtr(oCapParams, lpData, True)
If SendMessage(hPreviewWindow, WM_CAP_SET_SEQUENCE_SETUP, Marshal.SizeOf(oCapParams), lpData) <> 0 Then
'good
Else
'Stop
End If
End If
Marshal.FreeHGlobal(lpData)
'user das format wählen lassen:
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
'SendMessage(hPreviewWindow, WM_CAP_DLG_VIDEODISPLAY, 0, 0) <- does not display a dialog for me
'Get video format
lpData = Marshal.AllocHGlobal(Marshal.SizeOf(oCapVideoFormat))
If SendMessage(hPreviewWindow, WM_CAP_GET_VIDEOFORMAT, Marshal.SizeOf(oCapVideoFormat), lpData.ToInt32) <> 0 Then
'oCapVideoFormat = CType(Marshal.PtrToStructure(lpData, GetType(BITMAPINFO)), BITMAPINFO) 'vorsicht! das kann offenbar in die hose gehen!
oCapVideoFormat.bmiHeader = CType(Marshal.PtrToStructure(lpData, GetType(BITMAPINFOHEADER)), BITMAPINFOHEADER)
'Modify und Set
'oCapVideoFormat.bmiHeader.biCompression = BI_RGB '<-diese settings hat meine cam nicht akzeptiert
'oCapVideoFormat.bmiHeader.biBitCount = 32
'oCapVideoFormat.bmiHeader.biWidth = 320
'oCapVideoFormat.bmiHeader.biHeight = 240
'Marshal.StructureToPtr(oCapVideoFormat.bmiHeader, lpData, True)
'If SendMessage(hPreviewWindow, WM_CAP_SET_VIDEOFORMAT, Marshal.SizeOf(oCapVideoFormat), lpData.ToInt32) <> 0 Then
'good
'Else
'Stop
'End If
End If
Marshal.FreeHGlobal(lpData)
'Arrays die für die Verarbeitung des Bildes notwendig sind vorbereiten
With oCapVideoFormat.bmiHeader
ReDim btPicData(.biSizeImage - 1I)
End With
End Sub
Public Sub StartCapture()
'Callback installieren & und capturing starten
SendMessage(hPreviewWindow, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, Marshal.GetFunctionPointerForDelegate(CallBack))
'SendMessage(hPreviewWindow, WM_CAP_SEQUENCE, 0, 0) 'geht auch, aber speichert zus. C:\CAPTURE.AVI
SendMessage(hPreviewWindow, WM_CAP_SEQUENCE_NOFILE, 0, 0) 'nicht in C:\CAPTURE.AVI speichern
isRunning = True
cFrame = 0
End Sub
Public Sub StopCapture()
If isRunning Then
SendMessage(hPreviewWindow, WM_CAP_STOP, 0, 0)
isRunning = False
End If
End Sub
Public Sub Cleanup()
StopCapture()
If hPreviewWindow = 0 Then
'derzt. nicht initialisiert
ElseIf hPreviewWindow <> INVALID_HANDLE_VALUE Then
SendMessage(hPreviewWindow, WM_CAP_DRIVER_DISCONNECT, 0, 0)
DestroyWindow(hPreviewWindow)
hPreviewWindow = INVALID_HANDLE_VALUE
End If
End Sub
Protected Overrides Sub Finalize()
Cleanup()
MyBase.Finalize()
End Sub
Private Function HandleVideoStreamCallback(ByVal hwnd As IntPtr, ByRef lpVHdr As VIDEOHDR) As Int32
'Debug.Print(String.Format("time ms captured: {0}, Used: {1}, of total {2} ", lpVHdr.dwTimeCaptured, lpVHdr.dwBytesUsed, lpVHdr.dwBufferLength.ToString))
cFrame += 1
'Debug.WriteLine(Thread.CurrentThread.ManagedThreadId & " " & pCallback)
'Debug.Print(cFrame.ToString)
Marshal.Copy(lpVHdr.lpData, btPicData, 0, lpVHdr.dwBytesUsed)
RaiseEvent FrameCompleted()
End Function
End Class
other code of that project did the motion detectionn but i'd leave that implementation to you.
Nice code, but what exactly is "PicProcessor.IPicProvider"? Seems like a crucial but missing part of the code.
-
Apr 21st, 2016, 01:11 AM
#5
Re: How to get webcam feed?
Code:
Nice code, but what exactly is "PicProcessor.IPicProvider"? Seems like a crucial but missing part of the code.
na, thats just the Interface that is implemented by the class. you can delete this and it should still work. but let me mention that the code is supposed to give some Inputs and be a template only and not to be copy&paste&runable.
-
Apr 21st, 2016, 02:13 AM
#6
Hyperactive Member
Re: How to get webcam feed?
Originally Posted by digitalShaman
Code:
Nice code, but what exactly is "PicProcessor.IPicProvider"? Seems like a crucial but missing part of the code.
na, thats just the Interface that is implemented by the class. you can delete this and it should still work. but let me mention that the code is supposed to give some Inputs and be a template only and not to be copy&paste&runable.
Thanks. Like I said, this for me at least, is a future project...when and if I get around to it. So I was really just curious.
-
Apr 21st, 2016, 04:01 AM
#7
Thread Starter
Fanatic Member
Re: How to get webcam feed?
Originally Posted by digitalShaman
this is how i accessed the webcam for a similar project:
other code of that project did the motion detectionn but i'd leave that implementation to you.
Not sure if I'm using this code correctly, but it seems to only bring up a black image?
This is the code I'm using on form load:
Code:
Dim objWebCam As New WebCam
objWebCam.initCam(PictureBox1)
objWebCam.StartCapture()
The picture box is just black and the webcam never turns on. Only 1 item is in the Video Source popup window as well.
I also commented out any of the functions that required anything to do with the IPicProvider since I didn't have the dependency for it and changed the init function to accept picture boxes:
vb Code:
Public Sub initCam(ByRef Preview As PictureBox)
Edit:
I should mention that yes, the webcam actually works, I tested it with the Windows 10 camera app and I use it to Skype/Hangouts.
Edit2:
What is funny though is if I have the Windows camera app open and using the camera and then start up the code, the picture box is green and not black.
Last edited by Slyke; Apr 21st, 2016 at 04:14 AM.
-
Apr 21st, 2016, 05:54 AM
#8
Re: How to get webcam feed?
Well, i dont know what the issue is or why i did use a Panel and not a picturebox, maybe there is a reason? it worked well for me some years ago when i experimented with a Webcam.
You would Need to step through the code and see what all The API return values are to find out where it Fails.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote