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
Download and Process file | VB.NET
Program.vb:
VB
Imports System.IO 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 Console.WriteLine("Reading barcodes from PDF document...") ' ----------------------------------------------------------------------- ' NOTE: We can read barcodes from specific page to increase performance . ' For sample please refer to "Decoding barcodes from PDF by pages" program. ' ----------------------------------------------------------------------- ' Input url of pdf document containing barcodes Dim inputUrl As String = "https://bytescout-com.s3.amazonaws.com/files/demo-files/cloud-api/barcode-reader/sample.pdf" ' Get memory stream from url Dim oStream As Stream = GetStreamFromUrl(inputUrl) ' Read from input stream reader.ReadFromStream(oStream) For Each barcode As FoundBarcode In reader.FoundBarcodes Console.WriteLine("Found barcode with type '{0}' and value '{1}' at page {2} at {3}", barcode.Type, barcode.Value, barcode.Page, barcode.Rect.ToString()) Next ' Cleanup reader.Dispose() Console.WriteLine() Console.WriteLine("Press any key to continue.") Console.ReadKey() End Sub ''' <summary> ''' Get stream from Url ''' </summary> Private Shared Function GetStreamFromUrl(ByVal url As String) As Stream Dim oData As Byte() = Nothing Using wc As New System.Net.WebClient() oData = wc.DownloadData(url) End Using Return New MemoryStream(oData) End Function End Class