FilePercent Property

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageOptimization 
'''Imports Leadtools.Support.Examples 
 
 
Private _imageNo As Integer 
Public Sub TestDirImageOptimizer() 
   _imageNo = 0 
 
   ' Initialize the RasterCodecs class 
   Dim codecs As RasterCodecs = New RasterCodecs() 
 
   ' The input and output directories 
   Dim inputDirectory As String = LEAD_VARS.ImagesDir 
   Dim outputDirectory As String = Path.Combine(LEAD_VARS.ImagesDir, "OptimizedImages") 
 
   ' Initialize a new Optimizer object 
   Dim optimizer As ImageOptimizer = New ImageOptimizer() 
 
   ' Optimization Options 
   Dim options As ImageOptimizerOptions = ImageOptimizerOptions.Default 
 
   optimizer.OptimizeDirectory(codecs, 
      inputDirectory, 
      outputDirectory, 
      options, 
      "*.jpg", 
      False, 
      AddressOf ImageOptimizerDirectory) 
 
   'shutdown the RasterCodecs class. 
End Sub 
 
Public Function ImageOptimizerDirectory(ByVal data As ImageOptimizerDirectoryData) As Boolean 
   Console.WriteLine(String.Format("File Percent = {0}%,    Total Percent = {1}%", data.FilePercent, data.TotalPercent)) 
 
   If (_imageNo = data.TotalFolderFilesCount) Then 
 
      ' Operation Done. 
      Console.WriteLine("Optimization Operation Completed Successfully") 
      Return True 
 
   ElseIf (data.Status = ImageOptimizerDirectoryStatus.PreOptimizingImage) Then 
      Dim text As String = String.Format("Optimizing Image {0} ?\n", data.InputFileName) 
      Dim result As DialogResult = MessageBox.Show(text, "", MessageBoxButtons.YesNoCancel) 
 
      If (result = DialogResult.Yes) Then 
         ' Optimize the image using the default options. 
         data.Options = ImageOptimizerOptions.Default 
         Return True 
      ElseIf (result = DialogResult.No) Then 
         ' Skip this image. 
         _imageNo += 1 
         data.SkipImage = True 
      Else 
         ' Stop the whole operation. 
         Return False 
      End If 
   ElseIf (data.FilePercent = 100) Then 
      _imageNo += 1 
 
      ' Displaying information about the optimized image. 
      Dim msg As String = String.Format("Optimizing File ( {0} of {1} ) \n" + 
         "--------------------------------\n" + 
         "Source File Name = {2}\n" + 
         "Detination File Name = {3}\n" + 
         "No of Pages = {4}\n", 
         _imageNo, data.TotalFolderFilesCount, data.InputFileName, data.OutputFileName, data.ImageInfo.TotalPages) 
 
      Console.WriteLine(msg) 
   End If 
   Return True 
End Function 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class