IBarcodeReadOptions Interface

'Declaration
 
Public Interface IBarcodeReadOptions 
   Inherits IBarcodeOptions 

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

      ' Create a Barcode engine
      Dim engine As New BarcodeEngine()

      ' Get the Barcode reader instance
      Dim reader As BarcodeReader = engine.Reader

      ' Load the image
      Using codecs As New RasterCodecs()
         Using image As RasterImage = codecs.Load(imageFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1)
            ' Rotate the image by 90, so default option of reading horizonal barcodes will not work
            Console.WriteLine("Rotating the image by 90 degrees")
            Dim rotate As New RotateCommand(90 * 100, RotateCommandFlags.Resize, RasterColor.FromKnownColor(RasterKnownColor.White))
            rotate.Run(image)

            ' Read all the barcodes from the image using default options
            Console.WriteLine("Reading barcodes using default options")
            Dim barcodes() As BarcodeData = reader.ReadBarcodes(image, LogicalRectangle.Empty, 0, Nothing, Nothing)

            ' Show the number of barcodes found, should be 0 since default search direction is horizontal
            Console.WriteLine("Found {0} barcodes", barcodes.Length)

            ' Now create options to read barcodes horizontally and vertically
            Dim options() As BarcodeReadOptions = GetHorizontalAndVerticalReadBarcodeOptions(reader)

            ' Read again
            Console.WriteLine("Reading barcodes using new options")
            barcodes = reader.ReadBarcodes(image, LogicalRectangle.Empty, 0, Nothing, options)

            ' Show the number of barcodes found, should all be read now
            Console.WriteLine("Found {0} barcodes", barcodes.Length)
         End Using
      End Using
   End Sub

   Private Shared Function GetHorizontalAndVerticalReadBarcodeOptions(ByVal reader As BarcodeReader) As BarcodeReadOptions()
      ' By default, the options read horizontal barcodes only, create an array of options capable of reading vertical barcodes

      ' Notice, we cloned the default options in reader so we will not change the original options

      Dim oneDReadOptions As OneDBarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.UPCA).Clone(), OneDBarcodeReadOptions)
      oneDReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim fourStateReadOptions As FourStateBarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.USPS4State).Clone(), FourStateBarcodeReadOptions)
      fourStateReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim postNetPlanetReadOptions As PostNetPlanetBarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.PostNet).Clone(), PostNetPlanetBarcodeReadOptions)
      postNetPlanetReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim gs1StackedReadOptions As GS1DatabarStackedBarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.GS1DatabarStacked).Clone(), GS1DatabarStackedBarcodeReadOptions)
      gs1StackedReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim patchCodeReadOptions As PatchCodeBarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.PatchCode).Clone(), PatchCodeBarcodeReadOptions)
      patchCodeReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim pdf417ReadOptions As PDF417BarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.PDF417).Clone(), PDF417BarcodeReadOptions)
      pdf417ReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      Dim microPdf417ReadOptions As MicroPDF417BarcodeReadOptions = DirectCast(reader.GetDefaultOptions(BarcodeSymbology.MicroPDF417).Clone(), MicroPDF417BarcodeReadOptions)
      microPdf417ReadOptions.SearchDirection = BarcodeSearchDirection.HorizontalAndVertical

      ' Even though this array will not contain all options, it should be enough to read all barcodes, since the version of ReadBarcodes we will use
      ' will use the default options if an overriden is not passed
      Dim readOptions() As BarcodeReadOptions = _
      { _
         oneDReadOptions, fourStateReadOptions, postNetPlanetReadOptions, gs1StackedReadOptions, patchCodeReadOptions, pdf417ReadOptions, microPdf417ReadOptions _
      }

      Return readOptions
   End Function

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