如何從VB .NET中的攝像頭讀取條碼

如何在 VB .NET 中從相機讀取條碼

1. 在 Visual Studio 中創建一個新的 VB.NET 專案
2. 安裝 IronBarcode 程式庫並將其應用於您的專案
3. 使用 AForge Library 從相機獲取條碼圖像
4. 使用 IronBarcode 解碼條碼圖像

先決條件

1. Visual Studio: 確保您已安裝 Visual Studio 或其他 VB.NET 開發環境。
2. 兼容的相機: 確保上述相機已連接到您的設備。
3. NuGet 包管理器: 確保您可以使用 NuGet 管理專案中的包。

步驟 1: 在 Visual Studio 中創建新的 Visual Basic .NET 專案

創建一個新的 VB.NET Windows 窗體應用程式（或使用現有專案），您希望在其中托管從相機讀取條碼的代碼。

在下一步中，您可以提供解決方案和專案名稱。

選擇 .NET 版本，然後點擊“創建”按鈕。

步驟 2: 安裝 IronBarcode 程式庫

打開您的 VB.NET 專案並使用 NuGet 包管理器控制台安裝 IronBarcode 程式庫：

Install-Package BarCode

也可以通過 Visual Studio 的 NuGet 包管理器安裝 NuGet 包，如下所示。

步驟 3: 從相機讀取條碼

要掃描饋入並從相機捕獲圖像，我們需要 AForge Library。 從 NuGet 包管理器按以下方式安裝它。

下一步是從工具箱中向表單添加 PictureBox 控件。 這用於從相機捕獲圖像。

然後將以下代碼複製到窗體應用程式中，並從 IronBarcode 創建 VB .NET 條碼讀取元件。

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

在此示例代碼中，我們已將其配置為讀取 QR 代碼和 Code 128 條碼。 首先，我們使用 PictureBox 從網絡攝像頭或任何相機設備中捕獲條碼圖像，通過掃描條碼。 然後，我們創建一個位圖圖像，然後將其作為輸入提供給 IronBarcode 的 BarcodeReader 類。 此應用程式從圖像中讀取 2D 條碼並解碼它們。 如果在解碼後獲得正面結果，則結果會顯示在消息框中。

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

結論

在 VB.NET 中從相機實現條碼讀取是一項強大的功能，可以增強不同行業中的各種應用程式。 通過利用像 IronBarcode 這樣的程式庫並將它們集成到您的 VB.NET 專案中，您可以創建高效且可靠的條碼掃描應用程式，以滿足當今技術驅動的世界的需求。 本指南作為起點，開發人員可以根據其特定需求、條碼類型和使用案例進一步定制和優化解決方案。