Wie man einen Barcode von der Kamera in VB .NET liest

Wie man einen Barcode von der Kamera in VB .NET liest

1. Erstellen Sie ein neues VB.NET-Projekt in Visual Studio
2. Installieren Sie die IronBarcode-Bibliothek und wenden Sie sie auf Ihr Projekt an
3. Holen Sie den Barcode von der Kamera als Bild mit der AForge-Bibliothek
4. Dekodieren Sie das Barcode-Bild mit IronBarcode

Voraussetzungen

1. Visual Studio: Stellen Sie sicher, dass Sie Visual Studio oder eine andere VB.NET-Entwicklungsumgebung installiert haben.
2. Kompatible Kamera: Stellen Sie sicher, dass die Kamera mit Ihrem Gerät verbunden ist.
3. NuGet-Paket-Manager: Stellen Sie sicher, dass Sie NuGet verwenden können, um Pakete in Ihrem Projekt zu verwalten.

Schritt 1: Erstellen Sie ein neues Visual Basic .NET-Projekt in Visual Studio

Erstellen Sie eine neue VB.NET Windows Forms-Anwendung (oder verwenden Sie ein vorhandenes Projekt), in der Sie den Code zum Lesen des Barcodes von Ihrer Kamera hosten möchten.

Im nächsten Schritt können Sie die Namen der Lösung und des Projekts angeben.

Wählen Sie die .NET-Version aus und klicken Sie auf den "Erstellen"-Button.

Schritt 2: Installieren Sie die IronBarcode-Bibliothek

Öffnen Sie Ihr VB.NET-Projekt und installieren Sie die IronBarcode-Bibliothek mit der NuGet-Paket-Manager-Konsole:

Install-Package BarCode

Das NuGet-Paket kann auch mit dem NuGet-Paket-Manager von Visual Studio installiert werden, wie unten gezeigt.

Schritt 3: Den Barcode von der Kamera lesen

Um den Feed zu scannen und das Bild von der Kamera zu erfassen, benötigen wir die AForge-Bibliothek. Installieren Sie sie wie unten aus dem NuGet-Paket-Manager.

Der nächste Schritt ist, das PictureBox-Steuerelement aus dem ToolBox zu den Formularen hinzuzufügen. Dies wird verwendet, um das Bild von der Kamera zu erfassen.

Kopieren Sie dann den untenstehenden Code in die Formularanwendung und erstellen Sie die VB.NET Barcodeleser-Komponente von IronBarcode.

Imports IronBarCode
Imports AForge.Video
Imports AForge.Video.DirectShow

Public Class Form1
    Private videoDevices As FilterInfoCollection
    Private videoSource As VideoCaptureDevice

    ' Event handler for form load
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        If videoDevices.Count > 0 Then
            videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)
            AddHandler videoSource.NewFrame, AddressOf VideoSource_NewFrame
            videoSource.Start()
        Else
            MessageBox.Show("No video devices found.")
            Close()
        End If
    End Sub

    ' Event handler for capturing and processing new frame from the video source
    Private Sub VideoSource_NewFrame(sender As Object, eventArgs As NewFrameEventArgs)
        pictureBoxCamera.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)

        ' Process each frame for barcode recognition
        Dim image = DirectCast(pictureBoxCamera.Image, Bitmap)
        Dim result = BarcodeReader.QuicklyReadOneBarcode(image, BarcodeEncoding.QRCode Or BarcodeEncoding.Code128)

        If result IsNot Nothing Then
            ' Barcode found, handle the new result (e.g., display the barcode value)
            Dim barcodeValue As String = result.Text
            ShowBarcodeResult(barcodeValue)
        End If
    End Sub

    ' Method to display the barcode result
    Private Sub ShowBarcodeResult(barcodeValue As String)
        ' Invoke on UI thread to update UI controls
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf ShowBarcodeResult), barcodeValue)
        Else
            ' Display the barcode value in a MessageBox or any other UI element
            MessageBox.Show("Barcode Value: " & barcodeValue, "Barcode Detected")
        End If
    End Sub

    ' Event handler for form closing
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            videoSource.SignalToStop()
            videoSource.WaitForStop()
        End If
    End Sub
End Class

Imports IronBarCode
Imports AForge.Video
Imports AForge.Video.DirectShow

Public Class Form1
    Private videoDevices As FilterInfoCollection
    Private videoSource As VideoCaptureDevice

    ' Event handler for form load
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        If videoDevices.Count > 0 Then
            videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)
            AddHandler videoSource.NewFrame, AddressOf VideoSource_NewFrame
            videoSource.Start()
        Else
            MessageBox.Show("No video devices found.")
            Close()
        End If
    End Sub

    ' Event handler for capturing and processing new frame from the video source
    Private Sub VideoSource_NewFrame(sender As Object, eventArgs As NewFrameEventArgs)
        pictureBoxCamera.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)

        ' Process each frame for barcode recognition
        Dim image = DirectCast(pictureBoxCamera.Image, Bitmap)
        Dim result = BarcodeReader.QuicklyReadOneBarcode(image, BarcodeEncoding.QRCode Or BarcodeEncoding.Code128)

        If result IsNot Nothing Then
            ' Barcode found, handle the new result (e.g., display the barcode value)
            Dim barcodeValue As String = result.Text
            ShowBarcodeResult(barcodeValue)
        End If
    End Sub

    ' Method to display the barcode result
    Private Sub ShowBarcodeResult(barcodeValue As String)
        ' Invoke on UI thread to update UI controls
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf ShowBarcodeResult), barcodeValue)
        Else
            ' Display the barcode value in a MessageBox or any other UI element
            MessageBox.Show("Barcode Value: " & barcodeValue, "Barcode Detected")
        End If
    End Sub

    ' Event handler for form closing
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            videoSource.SignalToStop()
            videoSource.WaitForStop()
        End If
    End Sub
End Class

In diesem Beispielcode haben wir es so konfiguriert, dass QR-Codes und Code 128-Barcodes gelesen werden. Zuerst verwenden wir eine PictureBox, um Barcodes von einer Webcam oder einem anderen Kameragerät durch Scannen des Barcodes zu erfassen. Dann erstellen wir ein Bitmap-Bild, das dann als Eingabe der IronBarcode BarcodeReader Klasse bereitgestellt wird. Diese Anwendung liest den 2D-Barcode von Bildern und dekodiert sie. Wenn nach dem Dekodieren ein positives Ergebnis erzielt wird, wird das Ergebnis im Nachrichtenfeld angezeigt.

{
    "IronBarcode.LicenseKey": "MYLICENSE.KEY.TRIAL"
}

Abschluss

Das Implementieren des Barcode-Lesens von einer Kamera in VB.NET ist ein leistungsstarkes Feature, das verschiedene Anwendungen in unterschiedlichen Branchen verbessern kann. Durch die Nutzung von Bibliotheken wie IronBarcode und deren Integration in Ihr VB.NET-Projekt können Sie effiziente und zuverlässige Barcode-Scanner-Anwendungen erstellen, die den Anforderungen der heutigen technologiegetriebenen Welt entsprechen. Diese Anleitung dient als Ausgangspunkt und Entwickler können die Lösung weiter anpassen und optimieren basierend auf ihren spezifischen Anforderungen, Barcode-Typen und Anwendungsfällen.