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

如何在VB.NET讀取攝影機拍攝的條碼

1. 在 Visual Studio 中建立一個新的 VB.NET 專案
2. 安裝 IronBarcode 庫並套用到您的專案中
3. 使用 AForge 庫從相機取得條碼影像。
4. 使用 IronBarcode 解碼條碼影像

先決條件

1. Visual Studio：確保您已安裝 Visual Studio 或任何其他 VB.NET 開發環境。 2.相容的攝影機：確保所述攝影機已連接到您的裝置。
2. NuGet 套件管理器：確保您可以使用 NuGet 管理專案中的套件。

步驟 1：在 Visual Studio 中建立一個新的 Visual Basic .NET 專案

創建一個新的 VB.NET Windows Forms 應用程式（或使用現有專案），在您希望將從相機讀取條碼的代碼託管的地方。

如何在 VB.NET 中從相機讀取條碼：圖 1 - 建立新的 VB.NET Windows 窗體應用程式

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

如何在 VB.NET 中從相機讀取條碼：圖 2 - 使用名稱和解決方案配置項目

選擇 .NET 版本，然後按一下"建立"按鈕。

步驟 2：安裝 IronBarcode 庫

開啟您的 VB.NET 項目，並使用NuGet套件管理器控制台安裝 IronBarcode 庫：

Install-Package BarCode

如何在 VB.NET 中從相機讀取條碼：圖 3 - 安裝 NuGet IronBarcode 套件

也可以使用 Visual Studio 的 NuGet 套件管理器安裝 NuGet 套件，如下圖所示。

如何在 VB.NET 中從相機讀取條碼：圖 4 - 透過 Visual Studio 的套件管理器安裝 IronBarcode

步驟三：從攝影機讀取條碼

要掃描視訊串流並從攝影機擷取影像，我們需要 AForge 庫。 請依照以下步驟從 NuGet 套件管理器安裝。

如何在 VB.NET 中從相機讀取條碼：圖 5 - Visual Studio 套件管理器中提供的 AForge 庫包

下一步是將 ToolBox 中的 PictureBox 控制項新增到表單中。 這是用來從相機捕捉影像的。

如何在 VB.NET 中從相機讀取條碼：圖 6 - 新增 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

在這個範例程式碼中，我們已將其配置為讀取二維碼和 Code 128 條碼。 首先，我們使用 PictureBox 透過掃描條碼，從網路攝影機或任何攝影機裝置擷取條碼影像。 然後我們建立一個點陣圖影像，並將其作為輸入提供給 IronBarcode BarcodeReader類別。 該應用程式讀取圖像中的二維條碼並對其進行解碼。 如果解碼後得到肯定結果，則結果將顯示在訊息框中。

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

結論

在VB.NET中實現從相機讀取條碼是一項強大的功能，可以增強不同行業的各種應用程式。 透過利用IronBarcode等程式庫並將其整合到您的 VB.NET 專案中，您可以創建高效可靠的條碼掃描應用程序，以滿足當今技術驅動型世界的需求。 本指南僅作為起點，開發人員可根據自身俱體需求、條碼類型和使用案例進一步客製化和優化解決方案。