IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Apicap réglage luminosité VB10


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2010
    Messages
    109
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 109
    Par défaut Apicap réglage luminosité VB10
    Bonjour à tous,

    Depuis quelques temps, je cherche désespérément comment imposer le réglage de luminosité à la Webcam que j'utilise pour faire de la capture d'images. J'ai récupéré un code que j'utilise en routine (dsl c'est un peu long).
    Je pense que la structure, la luminosité est une des constantes, mais j'avoue que je ne comprends pas tout. Donc si une âme charitable pouvait m'aider, ce serait avec plaisir.

    Merci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
        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
        Public Const WM_CAP_GET_STATUS As Integer = WM_CAP + 54
        Public Const WM_CAP_DLG_VIDEOFORMAT As Integer = WM_CAP + 41
     
        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
     
        Structure POINTAPI
            Dim x As Integer
            Dim y As Integer
        End Structure
     
        Public Structure CAPSTATUS
            Dim uiImageWidth As Integer                    '// Width of the image
            Dim uiImageHeight As Integer                   '// Height of the image
            Dim fLiveWindow As Integer                     '// Now Previewing video?
            Dim fOverlayWindow As Integer                  '// Now Overlaying video?
            Dim fScale As Integer                          '// Scale image to client?
            Dim ptScroll As POINTAPI                    '// Scroll position
            Dim fUsingDefaultPalette As Integer            '// Using default driver palette?
            Dim fAudioHardware As Integer                  '// Audio hardware present?
            Dim fCapFileExists As Integer                  '// Does capture file exist?
            Dim dwCurrentVideoFrame As Integer             '// # of video frames cap'td
            Dim dwCurrentVideoFramesDropped As Integer     '// # of video frames dropped
            Dim dwCurrentWaveSamples As Integer            '// # of wave samples cap'td
            Dim dwCurrentTimeElapsedMS As Integer          '// Elapsed capture duration
            Dim hPalCurrent As Integer                     '// Current palette in use
            Dim fCapturingNow As Integer                   '// Capture in progress?
            Dim dwReturn As Integer                        '// Error value after any operation
            Dim wNumVideoAllocated As Integer              '// Actual number of video buffers
            Dim wNumAudioAllocated As Integer              '// Actual number of audio buffers
        End Structure
     
        Public Sub connexionwebcam()
            LoadDeviceList()
            If lstDevices.Items.Count > 0 Then
                lstDevices.SelectedIndex = 0
            Else
                lstDevices.Items.Add("Caméra non connectée")
            End If
     
            Me.AutoScrollMinSize = New Size(100, 100)
     
            Dim r As Rectangle
     
            iDevice = lstDevices.SelectedIndex
            Dim bReturn As Boolean
            Dim wSize As Integer
            Dim s As CAPSTATUS
            bReturn = SendMessage(hHwnd, WM_CAP_GET_STATUS, Marshal.SizeOf(s), s)
     
        End Sub
     
        Private Sub LoadDeviceList()
            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)
     
                If bReturn Then lstDevices.Items.Add(strName.Trim)
                x += CType(1, Short)
            Loop Until bReturn = False
        End Sub
     
        Private Sub OpenPreviewWindow()
            If modemanuel = False Then
                Dim picCapture As New PictureBox
            End If
            Dim iHeight As Integer = picCapture.Height
            Dim iWidth As Integer = picCapture.Width
     
            hHwnd = capCreateCaptureWindowA(iDevice.ToString, WS_VISIBLE Or WS_CHILD, 0, 0, 370, _
                 250, picCapture.Handle.ToInt32, 0)
     
     
            ' If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then 'commentaire à supprimer
            ' If (hHwnd <> 0) Then ' a supprimer
            If (hHwnd <> 0) Then ' a supprimer
     
                SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) ' a supprimer
                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, 370, 250, SWP_NOMOVE Or SWP_NOZORDER)
            Else
                DestroyWindow(hHwnd)
            End If
        End Sub

  2. #2
    Inactif  
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    Janvier 2007
    Messages
    6 604
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Chef de projet NTIC

    Informations forums :
    Inscription : Janvier 2007
    Messages : 6 604
    Par défaut
    Qu'entends tu par luminoité ?
    Tu veux ajuster le gain du capteur ou la sensibilité ?

    De toute manière, il n'y rien dans le code que tu as posté relatif à cela.

  3. #3
    Membre confirmé
    Inscrit en
    Septembre 2010
    Messages
    109
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 109
    Par défaut
    En fait, je ne sais pas si cela concerne le gain, la sensibilité ou autre, mais je capture une image via une webcam et j'aimerais qu'elle soit moins sombre. Sur les logiciels de capture il existe un réglage de "luminosité" pour cela. J'aimerais simplement pouvoir faire l'équivalent au niveau de mon programme.
    Je n'ai pas de certitude que la commande soit déjà présente dans le bout de code que j'ai récupéré, mais j'aimerais pouvoir y parvenir.

  4. #4
    Membre confirmé
    Inscrit en
    Septembre 2010
    Messages
    109
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 109
    Par défaut
    Bonjour. Personne n'a d'idée sur le problème?

    J'ai un peu avancé de mon côté: il s'agit bien de régler la mise au point et la sensibilité du capteur. Est-ce qu'il y a moyen de le faire avec Apicap?

Discussions similaires

  1. Réponses: 5
    Dernier message: 19/02/2015, 10h26
  2. Réglage manuel de la luminosité
    Par dafdan dans le forum Android
    Réponses: 2
    Dernier message: 23/11/2014, 08h31
  3. réglage luminosité (gamma) moniteur
    Par sub13sub13 dans le forum Bubuntu
    Réponses: 1
    Dernier message: 10/01/2009, 14h14
  4. Réglage luminosité d'un écran LG 226WA ?
    Par byloute dans le forum Windows Vista
    Réponses: 0
    Dernier message: 10/01/2009, 12h04
  5. Réglage de luminosité ?
    Par kitsune dans le forum OpenCV
    Réponses: 1
    Dernier message: 28/05/2007, 10h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo