Discussion :

[pierregr]

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

[Bluedeep]

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.

[pierregr]

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.

[pierregr]

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?