Click here to Skip to main content
11,411,494 members (64,836 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
Hi
I am using webcam in my desktop application.
i am using two webcam in my vb.net project.
and i want that in my project when i open FORM1 then web-cam-1 should be active and if i open FORM2 in that case web-cam-2 should be active.
is it possible?
if yes then please help me.
Thanks is Advance..
Posted 22-Nov-12 0:43am
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

Try this :

Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean



Usage :

Dim strName As String = Space (100)
Dim strVer As String = Space (100)
Dim bReturn As Boolean
Dim x As Integer = 0

'
bReturn = capGetDriverDescriptionA (x, strName, 100, strVer, 100)

msgbox("Device name ="& strName)
  Permalink  
Comments
MinhajAli at 22-Nov-12 6:12am
   
Thank you for Reply.

but its not returning device name.
Message box is displaying "Microsoft WDm Image Capture (Win32)"
where as i am using the device which are.
1.DinoCapture 2.0
2.Frontech Gill2225.

and i have usage the code ...


Const WM_CAP As Short = &H400S

Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30

Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Const WS_CHILD As Integer = &H40000000
Const WS_VISIBLE As Integer = &H10000000
Const SWP_NOMOVE As Short = &H2S
Const SWP_NOSIZE As Short = 1
Const SWP_NOZORDER As Short = &H4S
Const HWND_BOTTOM As Short = 1

Dim iDevice As Integer = 0 ' = "{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}\0004" ' Current device ID
Dim hHwnd As Integer ' Handle to preview window

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
ByVal lParam As Object) As Integer

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean

Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
(ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Short, ByVal hWndParent As Integer, _
ByVal nID As Integer) As Integer

Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean


Private Sub OpenForm()
Try
Dim strName As String = Space(100)
Dim strVer As String = Space(100)
Dim bReturn As Boolean
Dim x As Short = 0
Do
bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
MsgBox("Device name =" & strName)
x += CType(1, Short)
Loop Until bReturn = False
Dim iHeight As Integer = picCapture.Height
Dim iWidth As Integer = picCapture.Width
hHwnd = capCreateCaptureWindowA(iDevice.ToString, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
480, picCapture.Handle.ToInt32, 0)

'
' Connect to device
'
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
SWP_NOMOVE Or SWP_NOZORDER)
End If
Catch ex As Exception

End Try
End Sub

and on form loading evet i am calling OpenForm() function.
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 2

Same Problem I getting can anyone solve??
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 213
1 Sergey Alexandrovich Kryukov 149
2 Sascha Lefévre 110
3 Dave Kreskowiak 90
4 RyanDev 75
0 Sergey Alexandrovich Kryukov 8,920
1 OriginalGriff 6,983
2 Maciej Los 3,430
3 Abhinav S 3,248
4 Peter Leow 3,059


Advertise | Privacy | Mobile
Web03 | 2.8.150414.5 | Last Updated 8 Oct 2014
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100