OneDBarcodeReadOptions Class

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Forms 
Imports Leadtools.Barcode 
Imports Leadtools.ImageProcessing 
 
Public Sub OneDBarcode_Example() 
   Dim imageFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "MyOneDBarcodes.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 a POSTNET and a PLANET barcodes 
      WriteBarcode(engine.Writer, image, BarcodeSymbology.UPCA, "01234567890", New LogicalRectangle(10, 100, 400, 200, LogicalUnit.Pixel)) 
      WriteBarcode(engine.Writer, image, BarcodeSymbology.Code128, "Code 128", New LogicalRectangle(10, 400, 400, 200, LogicalUnit.Pixel)) 
      WriteBarcode(engine.Writer, image, BarcodeSymbology.Code11, "124578", New LogicalRectangle(10, 700, 400, 200, LogicalUnit.Pixel)) 
 
      ' 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 the UPC-A barcode 
         ReadBarcodes(engine.Reader, image, BarcodeSymbology.UPCA) 
 
         ' Read the Code 128 barcode 
         ReadBarcodes(engine.Reader, image, BarcodeSymbology.Code128) 
 
         ' Read the Code 11 barcode 
         ReadBarcodes(engine.Reader, image, BarcodeSymbology.Code11) 
      End Using 
   End Using 
End Sub 
 
Private Sub WriteBarcode(ByVal writer As BarcodeWriter, ByVal image As RasterImage, ByVal symbology As BarcodeSymbology, ByVal value As String, ByVal bounds As LogicalRectangle) 
   ' Create the barcode data 
   Dim barcode As New BarcodeData(symbology, value) 
   barcode.Bounds = bounds 
 
   ' Set the write options 
   Dim options As New OneDBarcodeWriteOptions() 
   options.TextPosition = BarcodeOutputTextPosition.Default 
   options.UseXModule = False 
   options.XModule = 30 
   options.EnableErrorCheck = False 
   options.SetGS1DatabarLinkageBit = False 
   options.WriteTruncatedGS1Databar = False 
   options.Code128TableEncoding = Code128BarcodeTableEncoding.Auto 
   options.Code11CheckDigitType = Code11BarcodeCheckDigitType.CDigit 
   options.MSIModuloType = MSIBarcodeModuloType.Modulo10 
 
   ' Write it 
   Console.WriteLine("Writing {0} barcode with data: {1}", symbology, value) 
   writer.WriteBarcode(image, barcode, options) 
End Sub 
 
Private Sub ReadBarcodes(ByVal reader As BarcodeReader, ByVal image As RasterImage, ByVal symbology As BarcodeSymbology) 
   ' Setup read options 
   Dim options As New OneDBarcodeReadOptions() 
   options.SearchDirection = BarcodeSearchDirection.Horizontal 
   options.EnableFastMode = True 
   options.Granularity = 9 
   options.MinimumStringLength = 3 
   options.MaximumStringLength = 0 
   options.WhiteLinesNumber = 3 
   options.ReturnCheckDigit = BarcodeReturnCheckDigit.Default 
   options.EnableErrorCheck = False 
   options.AvoidCorruptedBlocks = False 
   options.AllowPartialRead = False 
   options.Code11CheckDigitType = Code11BarcodeCheckDigitType.CDigit 
   options.MSIModuloType = MSIBarcodeModuloType.Modulo10 
 
   Console.WriteLine("Reading {0} barcodes", symbology) 
   Dim barcode As BarcodeData = reader.ReadBarcode(image, LogicalRectangle.Empty, symbology, options) 
   If Not IsNothing(barcode) Then 
      Console.WriteLine(" At {0}, data: {1}", barcode.Bounds, barcode.Value) 
   Else 
      Console.WriteLine(" Not found") 
   End If 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class