IMAGEM DE 2 WEB CAM

ALEGON 17/01/2011 10:03:29
#362467

Preciso de um programa que capture imagens de 2 web cam's. Hoje eu tenho o fonte abaixo que trabalha com uma mas preciso que funcione hora em uma hora em outra. Alguém sabe me dizer o que posso fazer ? Obs : VB .NET

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

Private Sub AbreVisualizacaoImagem()
Dim iHeight As Integer = PicIdent.Height
Dim iWidth As Integer = PicIdent.Width
Dim NrDispositivo AS Integer = 0
[ô]
[ô] Abre a janela de visualização no picturebox
hHwnd = capCreateCaptureWindowA(NrDispositivo, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, PicIdent.Handle.ToInt32, 0)

[ô]
[ô] Conecta com o drive
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, NrDispositivo, 0) Then
[ô]
[ô]Define a escala de previsão
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

[ô]
[ô]Define a taxa de visualização em milisegundos
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

[ô]
[ô]Iniciar a visualização da imagem a partir da camara
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

[ô]
[ô] Redimensiona a janela para se ajustar no picturebox
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, PicIdent.Width, PicIdent.Height, _
SWP_NOMOVE Or SWP_NOZORDER)

Else
[ô]
[ô] Erro de conexão fecha a janela de dispostivos
DestroyWindow(hHwnd)

MsgBox([Ô]Erro ao tentar abrir a imagem da WebCam[Ô])
End If
End Sub