PDF417BarcodeData Class

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

Public Sub PDF417Barcode_Example()
      Dim imageFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "MyPDF417Barcodes.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 PDF417 barcodes
         WriteBarcode(engine.Writer, image, "DATA1", 10, 10, True)
         WriteBarcode(engine.Writer, image, "DATA2", 20, 20, False)

         ' 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)
            ReadBarcodes(engine.Reader, image)
         End Using
      End Using
   End Sub

   Private Sub WriteBarcode(ByVal writer As BarcodeWriter, ByVal image As RasterImage, ByVal value As String, ByVal rows As Integer, ByVal columns As Integer, ByVal topLeft As Boolean)
      ' Create the barcode data
      Dim barcode As New PDF417BarcodeData()
      barcode.Value = value
      barcode.Group = 0

      ' 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 PDF417BarcodeWriteOptions()

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

      options.Truncated = False
      options.EnableGroupMode = False
      options.SymbolWidthAspectRatio = 2
      options.SymbolHeightAspectRatio = 1
      options.LimitByRowsAndColumns = True
      options.Rows = rows
      options.Columns = columns
      options.XModule = 30
      options.XModuleAspectRatio = 3
      options.ECCLevel = PDF417BarcodeECCLevel.Level0
      options.ECCPercentage = 0

      ' Write it
      Console.WriteLine("Writing barcode with symbol rows/columns: {0}/{1} and Data: {2}", rows, columns, 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 PDF417BarcodeReadOptions()
      options.SearchDirection = BarcodeSearchDirection.Horizontal
      options.EnableDoublePass = False
      options.EnableFastMode = False
      options.ReadMode = PDF417BarcodeReadMode.Mode0
      options.ReturnCorruptedSymbolArea = False
      options.ReadOptionalMacroFileNameField = False
      options.ReadOptionalMacroSegmentCountField = False
      options.ReadOptionalMacroTimestampField = False
      options.ReadOptionalMacroSenderField = False
      options.ReadOptionalMacroAddresseeField = False
      options.ReadOptionalMacroFileSizeField = False
      options.ReadOptionalMacroChecksumField = False
      options.ReadOptionalMacro79AndAZField = False

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

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