DatamatrixBarcodeData Class

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

Public Sub DatamatrixBarcode_Example()
      Dim imageFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "MyDatamatrixBarcodes.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 Datamatrix barcodes, a square and a rectangle one
         WriteBarcode(engine.Writer, image, DatamatrixBarcodeSymbolSize.Size16X36, "Datamatrix1 16x36", False)
         WriteBarcode(engine.Writer, image, DatamatrixBarcodeSymbolSize.Size132X132, "Datamatrix2 132x132", 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 only square symbols, should only read the first barcode
            ReadBarcodes(engine.Reader, image, True)

            ' Read all symbols, should read both barcodes
            ReadBarcodes(engine.Reader, image, False)
         End Using
      End Using
   End Sub

   Private Sub WriteBarcode(ByVal writer As BarcodeWriter, ByVal image As RasterImage, ByVal symbolSize As DatamatrixBarcodeSymbolSize, ByVal value As String, ByVal topLeft As Boolean)
      ' Create the barcode data
      Dim barcode As DatamatrixBarcodeData = DirectCast(BarcodeData.CreateDefaultBarcodeData(BarcodeSymbology.Datamatrix), DatamatrixBarcodeData)
      barcode.SymbolSize = symbolSize
      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 DatamatrixBarcodeWriteOptions()

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

      options.DisableCompression = False
      options.GroupNumber = 0
      options.GroupTotal = 0
      options.FileIdNumberLowByte = 1
      options.FileIdNumberHighByte = 1
      options.XModule = 30

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

   Private Sub ReadBarcodes(ByVal reader As BarcodeReader, ByVal image As RasterImage, ByVal squareOnly As Boolean)
      ' Setup read options
      Dim options As New DatamatrixBarcodeReadOptions()
      options.ReadSquareSymbolsOnly = squareOnly
      options.EnableDoublePass = False
      options.EnableInvertedSymbols = False
      options.EnableFastMode = True
      options.EnableSmallSymbols = True

      Console.WriteLine("Reading Datamatrix barcodes with ReadSquareSymbolsOnly set to {0}", squareOnly)
      Dim barcodes() As BarcodeData = reader.ReadBarcodes(image, LogicalRectangle.Empty, 0, New BarcodeSymbology() {BarcodeSymbology.Datamatrix}, New BarcodeReadOptions() {options})
      Console.WriteLine("{0} barcodes found:", barcodes.Length)
      For Each barcode As DatamatrixBarcodeData In barcodes
         Console.WriteLine(" At {0}, symbol size: {1} and data: {2}", barcode.Bounds, barcode.SymbolSize, barcode.Value)
      Next
   End Sub

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