Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Decoding barcodes from PDF by pages | VB.NET
Program.vb:
VB
Imports Bytescout.BarCodeReader Class Program Friend Shared Sub Main(args As String()) Dim reader As New Reader() reader.RegistrationName = "demo" reader.RegistrationKey = "demo" ' Limit search to 1-dimensional barcodes only (exclude 2D barcodes to speed up the processing). ' Change to barcodeReader.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcode types ' or select specific type, e.g. barcodeReader.BarcodeTypesToFind.PDF417 = True reader.BarcodeTypesToFind.All1D = True ' Input filename Dim fileName As String = "example.pdf" ' Pages from which barcodes to be fetched Dim readFromPages() As Int32 = {1, 2} For Each pageNo As Int32 In readFromPages Console.WriteLine(Environment.NewLine + "Reading barcodes from PDF page {0}...", pageNo) ' Decoding barcodes from PDF on page-by-page basis instead of reading whole page Dim barcodes As FoundBarcode() = reader.ReadFrom(fileName, (pageNo - 1)) ' Found results For Each barcode As FoundBarcode In barcodes Console.WriteLine("Found Barcode, Type: '{0}', Value: '{1}', Position: {2}", barcode.Type, barcode.Value, barcode.Rect) Next Next ' Cleanup reader.Dispose() Console.WriteLine() Console.WriteLine("Press any key to continue.") Console.ReadKey() End Sub End Class