1 Frage zu Kameraauflösung

Die avicap32.dll-Bibliothek ermöglicht den Zugriff auf die Kamera und deren Einstellungen in Windows. Um die Kameraauflösung mittels VBA (Visual Basic for Applications) zu, sind einige Schritte erforderlich. Hier ist ein grundlegendes Beispiel, wie dies erreicht werden kann: 1. **Deklaration der Funktionen aus der avicap32.dll**: Zuerst müssen die Funktionen aus der avicap32.dll deklariert werden, die für den Zugriff auf die Kamera und deren Einstellungen notwendig sind. ```vba Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hWndParent As Long, _ ByVal nID As Long) As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Const WM_CAP_START = &H400 Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10 Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11 Const WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45 ``` 2. **Struktur für die Videoformat-Einstellungen**: Eine Struktur für die Videoformat-Einstellungen muss definiert werden. ```vba Type BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type Type BITMAPINFO bmiHeader As BITMAPINFOHEADER bmiColors As Long End Type ``` 3. **Kamera initialisieren und Auflösung setzen**: Die Kamera wird initialisiert und die gewünschte Auflösung wird gesetzt. ```vba Sub SetCameraResolution() Dim hWndC As Long Dim bmi As BITMAPINFO Dim result As Long ' Erstelle ein Capture-Fenster hWndC = capCreateCaptureWindowA("MyCaptureWindow", 0, 0, 0, 640, 480, 0, 0) ' Verbinde mit dem Treiber result = SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0) If result = 0 Then MsgBox "Kamera konnte nicht verbunden werden." Exit Sub End If ' Setze die gewünschte Auflösung With bmi.bmiHeader .biSize = Len(bmi.bmiHeader) .biWidth = 1280 ' Breite in Pixeln .biHeight = 720 ' Höhe in Pixeln .biPlanes = 1 .biBitCount = 24 ' Bits pro Pixel .biCompression = 0 ' BI_RGB .biSizeImage = 0 .biXPelsPerMeter = 0 .biYPelsPerMeter = 0 .biClrUsed = 0 .biClrImportant = 0 End With ' Sende die Nachricht, um das Videoformat zu setzen result = SendMessage(hWndC, WM_CAP_SET_VIDEOFORMAT, Len(bmi), bmi) If result = 0 Then MsgBox "Kameraauflösung konnte nicht gesetzt werden." Else MsgBox "Kameraauflösung erfolgreich gesetzt." End If ' Trenne die Verbindung zum Treiber SendMessage hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0 End Sub ``` Dieses Beispiel zeigt, wie die Kameraauflösung auf 1280x720 Pixel gesetzt werden kann. Es ist wichtig zu beachten, dass nicht alle Kameras alle Auflösungen unterstützen. Daher sollte die unterstützte Auflösung der Kamera überprüft werden, bevor versucht wird, diese zu setzen.