我需要使用 ZXING.net 库读取二维码

Question

这是我在图片框中读取二维码的代码

无论我尝试什么代码，我总是遇到问题

BC30311 无法将“位图”类型的值转换为“位图”。

        ' Obtenir l'image QR code à partir du fichier
        Dim image As Bitmap = CType(Bitmap.FromFile("file.png"), Bitmap)
        ' Lire le contenu du fichier en tant qu'un tableau de bytes
        Dim bytes As Byte() = File.ReadAllBytes("file.png")
        Try
            Using image
                ' Créer une source de luminance à partir de l'image
                Dim source As LuminanceSource = New BitmapLuminanceSource(**image**)
                ' Créer un objet BinaryBitmap à partir de la source de luminance
                Dim bitmap As BinaryBitmap = New BinaryBitmap(New HybridBinarizer(source))
                ' Décoder le QR code en utilisant un lecteur multi-formats
                Dim result As Result = New MultiFormatReader().decode(bitmap)
                If result IsNot Nothing Then
                    ' Code trouvé
                    Dim data As String() = result.Text.Split(Environment.NewLine)
                Else
                    ' Pas de code trouvé
                End If
            End Using
        Catch ex As Exception
            Throw New Exception("Impossible de décoder le QR code : " & ex.Message)
        End Try

请帮助！

我试图在 vb.net 中使用 zxing.net 读取二维码

但我总是遇到 luminanceSource 和 bitmap 转换的问题

Answer 1

尝试以下操作：

创建一个Windows Forms App (.NET Framework)

下载/安装 NuGet package： ZXing.Net

添加以下导入：

• Imports System.IO
• Imports ZXing
• Imports ZXing.Common
• Imports ZXing.QrCode

Form1.vb

Private Sub SaveQrCode(data As String, filename As String, imgFormat As System.Drawing.Imaging.ImageFormat)
    'create QR code and save to file
    Using bmp As Bitmap = CreateQrCode(data)
        bmp.Save(filename, imgFormat)
    End Using
End Sub

Private Function CreateQrCode(data As String) As Bitmap
    'specify desired options
    Dim options As QrCodeEncodingOptions = New QrCodeEncodingOptions With
        {
            .DisableECI = True,
            .CharacterSet = "UTF-8",
            .Width = 250,
            .Height = 250
        }

    'create new instance and set properties
    Dim writer As BarcodeWriter = New BarcodeWriter() With {.Format = BarcodeFormat.QR_CODE, .Options = options}

    'create QR code and return Bitmap
    Return writer.Write(data)
End Function

Private Function GetTextFromQrCode(filename As String) As String
    'specify desired options
    Dim options As DecodingOptions = New DecodingOptions() With
        {
            .CharacterSet = "UTF-8"
        }

    'create new instance and set properties
    Dim reader As BarcodeReader = New BarcodeReader() With {.Options = options}

    'read image and convert to Bitmap
    Using bmp As Bitmap = DirectCast(Bitmap.FromFile(filename), Bitmap)
        'decode QR code
        Dim r As Result = reader.Decode(bmp)

        'return QR code text
        Return r.Text
    End Using
End Function

---

用法（解码二维码） ：

注意：以下假定 Form 上存在名为btnDecodeQrCode的 Button。

Private Sub btnDecodeQrCode_Click(sender As Object, e As EventArgs) Handles btnDecodeQrCode.Click
    Using ofd As OpenFileDialog = New OpenFileDialog()
        ofd.Filter = "All Files (*.*)|*.*|Bitmap Image File (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|JPEG File Interchange Format (*.jpg;*.jpeg;*.jfif;*.jpe)|*.jpg;*.jpeg;*.jfif;*.jpe|Portable Network Graphics (*.png)|*.png"

        If ofd.ShowDialog = DialogResult.OK Then
            'get text from QR code
            TextBoxDecodedData.Text = GetTextFromQrCode(ofd.FileName)
        End If
    End Using
End Sub

---

使用方法（保存二维码） ：

注意：以下假定 Form 上存在名为btnSaveQrCode的 Button。

Private Sub btnSaveQrCode_Click(sender As Object, e As EventArgs) Handles btnSaveQrCode.Click
    If String.IsNullOrEmpty(TextBoxInput.Text) Then
        MessageBox.Show("QR Code text not specified.", "Error - QR Code Text", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return
    End If

    Using sfd As SaveFileDialog = New SaveFileDialog()
        sfd.Filter = "All Files (*.*)|*.*|Bitmap Image File (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|JPEG File Interchange Format (*.jpg;*.jpeg;*.jfif;*.jpe)|*.jpg;*.jpeg;*.jfif;*.jpe|Portable Network Graphics (*.png)|*.png"
        sfd.FileName = "QRCode-Test"
        sfd.FilterIndex = 4

        If sfd.ShowDialog = DialogResult.OK Then
            'get filename extension
            Dim ext As String = Path.GetExtension(sfd.FileName)
            Debug.WriteLine($"ext: '{ext}'")

            If ext = ".bmp" OrElse ext = ".dib" OrElse ext = ".rle" Then
                SaveQrCode(TextBoxInput.Text, sfd.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
            ElseIf ext = ".jpg" OrElse ext = ".jpeg" OrElse ext = ".jfif" OrElse ext = ".jpe" Then
                SaveQrCode(TextBoxInput.Text, sfd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            ElseIf ext = ".png" Then
                SaveQrCode(TextBoxInput.Text, sfd.FileName, System.Drawing.Imaging.ImageFormat.Png)
            End If
        End If
    End Using
End Sub

---

资源

• 如何使用 C# 和 ZXing.NET 读取和创建条码图像
• 使用 Zxing Library 的 QR Code 基础
• 将过滤器设置为 OpenFileDialog 以允许典型的图像格式？