webcam

Question

Bonjour, 
j'ai un programme de webcam  qui fonctionne dans un pc HP et ne fonctionne pas dans TOSHIBA voila la partie du code qui me gène :

Private Sub SetupCamera()

If SendMessage(_hWnd, WM_CAP_DRIVER_CONNECT, CType(_Device, Short), CType(0, String)) = 1 Then
            Dim CameraFrameRate As Short = CType(1000 \ _FramesPerSecond, Short)
            SendMessage(_hWnd, WM_CAP_SET_PREVIEWRATE, CameraFrameRate, CType(0, String))
            SendMessage(_hWnd, WM_CAP_SET_PREVIEW, 1, CType(0, String))
            Me.Running = True
            ' Cambiar el tamaño de la ventana para mostrar toda la imagen
            ' Resize the capture window to show the whole image
            ResizeCaptureWindow(_hWnd)
            ' Formato de compresión
            ' Compression format
            SendMessage(_hWnd, WM_CAP_GET_VIDEOFORMAT, Len(mBitmapInfo), mBitmapInfo)
            Select Case mBitmapInfo.bmiHeader.biCompression
                Case CompressionMode.RGB24, CompressionMode.I420
                    Compression = mBitmapInfo.bmiHeader.biCompression
                Case Else
                    Compression = CompressionMode.Unknown
                    'MsgBox("Este Dispositivo tiene un modo de compresión desconocido.", MsgBoxStyle.Exclamation, "ATENCION")
            End Select

Else
            Me.Running = False
            MessageBox.Show("No se ha Encontrado una Cámara", "ATENCION", MessageBoxButtons.OK)
            SendMessage(_hWnd, WM_CAP_DRIVER_DISCONNECT, 0, CType(0, String))
            Application.Exit()
        End If

End Sub


ce qui donne


apres ce message (No se ha Encontrado una Cámara) apparaitre 
je sais pa quoi faire ?????

ucfoutu · Answer

Bonjour, 
Et si tu nous parlais d'abord des versions OS sur le HP et le Toshiba ?

On ne voit par ailleurs pas dans ce bout de code (qui n'est selon toute évidence pas le tien) la déclaration de la fonction utilisée.

Webcam

1 réponse

Votre réponse

Discussions similaires