How to Read a Barcode from Camera in 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 窗体应用程序（或使用现有项目），在其中承载从相机读取条码的代码。

如何在 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 项目中，您可以创建高效可靠的条形码扫描应用程序，以满足当今技术驱动型世界的需求。 本指南仅作为起点，开发人员可以根据自身具体需求、条形码类型和使用案例进一步定制和优化解决方案。