ByteScout Premium Suite - VB.NET - Searchablepdfmaker progress indication with pdf extractor sdk - ByteScout

ByteScout Premium Suite – VB.NET – Searchablepdfmaker progress indication with pdf extractor sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Premium Suite – VB.NET – Searchablepdfmaker progress indication with pdf extractor sdk

searchablepdfmaker progress indication with pdf extractor sdk in VB.NET using ByteScout Premium Suite

searchablepdfmaker progress indication with pdf extractor sdk in VB.NET

We regularly create and update our sample code library so you may quickly learn searchablepdfmaker progress indication with pdf extractor sdk and the step-by-step process in VB.NET. ByteScout Premium Suite was created to assist searchablepdfmaker progress indication with pdf extractor sdk in VB.NET. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

If you want to quickly learn then these fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guideline and the VB.NET code below will help you quickly learn searchablepdfmaker progress indication with pdf extractor sdk. Just copy and paste this VB.NET sample code to your VB.NET application’s code editor, add a reference to ByteScout Premium Suite (if you haven’t added yet) and you are ready to go! Enjoy writing a code with ready-to-use sample VB.NET codes to implement searchablepdfmaker progress indication with pdf extractor sdk using ByteScout Premium Suite.

Our website gives free trial version of ByteScout Premium Suite. It includes all these source code samples with the purpose to assist you with your VB.NET application implementation.

On-demand (REST Web API) version:
 Web API (on-demand version)

On-premise offline SDK for Windows:
 60 Day Free Trial (on-premise)

Program.vb
      
Imports Bytescout.PDFExtractor Module Program Sub Main() Try Using searchablePDFMaker = New SearchablePDFMaker("demo", "demo") ' Load input file searchablePDFMaker.LoadDocumentFromFile("sample_ocr.pdf") ' Add Progress change event... Console.WriteLine("Searchable PDF making in progress: " & vbLf) AddHandler searchablePDFMaker.ProgressChanged, AddressOf SearchablePDF_ProgressChanged ' Set the location of OCR language data files searchablePDFMaker.OCRLanguageDataFolder = "c:\Program Files\Bytescout PDF Extractor SDK\ocrdata\" ' Set OCR language searchablePDFMaker.OCRLanguage = "eng" ' Set PDF document rendering resolution searchablePDFMaker.OCRResolution = 300 ' Save extracted text to file searchablePDFMaker.MakePDFSearchable("output.pdf") ' Open output file in default associated application System.Diagnostics.Process.Start("output.pdf") End Using Catch ex As Exception Console.WriteLine(ex.Message) End Try Console.WriteLine(vbLf & vbLf & " Press enter key to exit...") Console.ReadLine() End Sub ''' <summary> ''' Handle progress change event ''' </summary> Private Sub SearchablePDF_ProgressChanged(ByVal sender As Object, ByVal ongoingOperation As OngoingOperation, ByVal progress As Double, ByRef cancel As Boolean) drawTextProgressBar(Convert.ToInt32(progress), 100) End Sub ''' <summary> ''' Display progress bar ''' </summary> Private Sub drawTextProgressBar(ByVal progress As Integer, ByVal total As Integer) 'draw empty progress bar Console.CursorLeft = 0 Console.Write("[") ' start Console.CursorLeft = 32 Console.Write("]") ' end Console.CursorLeft = 1 Dim onechunk As Single = 30.0F / total Dim position As Integer = 1 ' draw filled part For i As Integer = 0 To onechunk * progress - 1 Console.BackgroundColor = ConsoleColor.Green Console.CursorLeft = Math.Min(System.Threading.Interlocked.Increment(position), position - 1) Console.Write(" ") Next ' draw unfilled part For i As Integer = position To 31 Console.BackgroundColor = ConsoleColor.Gray Console.CursorLeft = Math.Min(System.Threading.Interlocked.Increment(position), position - 1) Console.Write(" ") Next ' draw totals Console.CursorLeft = 35 Console.BackgroundColor = ConsoleColor.Black Console.Write(progress.ToString() & " of " & total.ToString() & " ") ' blanks at the end remove any excess End Sub End Module

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next