Click here to Skip to main content
12,512,130 members (59,306 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: VB 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 21-Nov-12 23:43pm
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 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, _
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
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web01 | 2.8.160929.1 | Last Updated 8 Oct 2014
Copyright © CodeProject, 1999-2016
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