QRCode not reading from image file

Aspose.BarCode Product Family
1

I am trying to read the QRCode from the attached image. My handheld can read it from the monitor when I open the image with paint, so I know the QRCode works. I have 1,200 images to read, and this one seems to always fail. Suggestions on how I can make this QRcode Read?

Sample Code I am using...

Dim start_time As DateTime
Dim stop_time As DateTime
Dim elapsed_time As TimeSpan

'Load the file into memeory
For Each strFile In fileEntries


Dim thisBitmap As New Bitmap(strFile)
'Dim result = readCode.Decode(Bitmap)

start_time = Now

Dim rdr As New Aspose.BarCodeRecognition.BarCodeReader(thisBitmap, Aspose.BarCodeRecognition.BarCodeReadType.QR)


If rdr.Read() Then
stop_time = Now
elapsed_time = stop_time.Subtract(start_time)
Debug.Print(rdr.GetCodeText & " " & rdr.GetReadType & " " & strFile & " " & elapsed_time.TotalSeconds.ToString("0.000000"))
'Copy file Over to new name
System.IO.File.Copy(strFile, strDest & rdr.GetCodeText & ".jpg")
Else
stop_time = Now
elapsed_time = stop_time.Subtract(start_time)

intFailCount += 1
Debug.Print("Failed " & strFile & " " & elapsed_time.TotalSeconds.ToString("0.000000"))
End If

rdr.Close()
Dim start_time As DateTime
Dim stop_time As DateTime
Dim elapsed_time As TimeSpan

'Load the file into memeory
For Each strFile In fileEntries


Dim thisBitmap As New Bitmap(strFile)
'Dim result = readCode.Decode(Bitmap)

start_time = Now

Dim rdr As New Aspose.BarCodeRecognition.BarCodeReader(thisBitmap, Aspose.BarCodeRecognition.BarCodeReadType.QR)


If rdr.Read() Then
stop_time = Now
elapsed_time = stop_time.Subtract(start_time)
Debug.Print(rdr.GetCodeText & " " & rdr.GetReadType & " " & strFile & " " & elapsed_time.TotalSeconds.ToString("0.000000"))
'Copy file Over to new name
System.IO.File.Copy(strFile, strDest & rdr.GetCodeText & ".jpg")
Else
stop_time = Now
elapsed_time = stop_time.Subtract(start_time)

intFailCount += 1
Debug.Print("Failed " & strFile & " " & elapsed_time.TotalSeconds.ToString("0.000000"))
End If

rdr.Close()

2

Hi James,


Thank you for contacting support. We can only recognize the one QR code instead of both. It can be recognized as follows:

[VB]
Dim reader As New BarCodeReader(file, BarCodeReadType.QR)
reader.ImageBinarizationHints = RecognitionHints.ImageBinarization.MedianSmoothing
reader.MedianSmoothingWindowSize = 4

While reader.Read()
Console.WriteLine(reader.GetReadType() + " - " + reader.GetCodeText())
End While
reader.Close()

Result: QR - P0011187

We have logged the recognition failure problem of the second QR code as BARCODENET-34003 in our issue tracking system. Your request has also been linked to this issue. We'll keep you informed regarding any available updates. We're sorry for the inconvenience caused.

3

Hi James,


Thank you for being patient. Our product team has plans to implement the new algorithm soon. This new algorithm can read both QR codes (BARCODENET-34003). If there is no issue in the QA phase, then this fix will be included in the next couple of releases. We’ll inform you via this forum thread as soon as the appropriate release is published.

4

The issues you have found earlier (filed as BARCODENET-34003) have been fixed in Aspose.BarCode for .NET 6.9.0.

This message was posted using Notification2Forum from Downloads module by Aspose Notifier.