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

如何在.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 應用程式（或使用現有項目），用於存放讀取相機條碼的程式碼。

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

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

步驟 2：安裝IronBarcode庫

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

Install-Package BarCode

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

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

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

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

然後將以下程式碼複製到窗體應用程式中，並從IronBarcode建立.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

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

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

結論

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