QRBarcodeData Class

'Declaration
 
<TypeConverterAttribute()>
<SerializableAttribute()>
Public Class QRBarcodeData 
   Inherits BarcodeData
   Implements System.ICloneable 

Public Sub QRBarcode_Example()
      Dim imageFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "MyQRBarcodes.tif")

      Dim engine As New BarcodeEngine()

      ' Create the image to write the barcodes to
      Dim resolution As Integer = 300
      Using image As RasterImage = RasterImage.Create(CType(8.5 * resolution, Integer), CType(11.0 * resolution, Integer), 1, resolution, RasterColor.FromKnownColor(RasterKnownColor.White))
         ' Write two QR barcodes
         WriteBarcode(engine.Writer, image, QRBarcodeSymbolModel.Model1AutoSize, "QR Data 1", False)
         WriteBarcode(engine.Writer, image, QRBarcodeSymbolModel.Model2Version30, "QR Data 2", True)

         ' Save the image
         Using codecs As New RasterCodecs()
            codecs.Save(image, imageFileName, RasterImageFormat.CcittGroup4, 1)
         End Using
      End Using

      ' Now read the barcodes again
      Using codecs As New RasterCodecs()
         Using image As RasterImage = codecs.Load(imageFileName)
            ' Read all the QR barcodes
            ReadBarcodes(engine.Reader, image)
         End Using
      End Using
   End Sub

   Private Sub WriteBarcode(ByVal writer As BarcodeWriter, ByVal image As RasterImage, ByVal symbolModel As QRBarcodeSymbolModel, ByVal value As String, ByVal topLeft As Boolean)
      ' Create the barcode data
      Dim barcode As QRBarcodeData = DirectCast(BarcodeData.CreateDefaultBarcodeData(BarcodeSymbology.QR), QRBarcodeData)
      barcode.SymbolModel = symbolModel
      barcode.Value = value

      ' We will use the alignment to position the barcodes, so use all of the image
      barcode.Bounds = New LogicalRectangle(0, 0, image.ImageWidth, image.ImageHeight, LogicalUnit.Pixel)

      ' Set the write options
      Dim options As New QRBarcodeWriteOptions()

      If topLeft Then
         options.HorizontalAlignment = BarcodeAlignment.Near
         options.VerticalAlignment = BarcodeAlignment.Near
      Else
         options.HorizontalAlignment = BarcodeAlignment.Far
         options.VerticalAlignment = BarcodeAlignment.Far
      End If

      options.GroupNumber = 0
      options.GroupTotal = 0
      options.XModule = 30
      options.ECCLevel = QRBarcodeECCLevel.LevelL

      ' Write it
      Console.WriteLine("Writing barcode with symbol model: {0} and Data: {1}", symbolModel, value)
      writer.WriteBarcode(image, barcode, options)
   End Sub

   Private Sub ReadBarcodes(ByVal reader As BarcodeReader, ByVal image As RasterImage)
      ' Setup read options
      Dim options As New QRBarcodeReadOptions()
      options.EnableDoublePass = False

      Console.WriteLine("Reading QR barcodes")
      Dim barcodes() As BarcodeData = reader.ReadBarcodes(image, LogicalRectangle.Empty, 0, New BarcodeSymbology() {BarcodeSymbology.QR}, New BarcodeReadOptions() {options})
      Console.WriteLine("{0} barcodes found:", barcodes.Length)
      For Each barcode As QRBarcodeData In barcodes
         Console.WriteLine(" At {0}, symbol model: {1} and data: {2}", barcode.Bounds, barcode.SymbolModel, barcode.Value)
      Next
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class