CodecsRasterPdfInfo Structure

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Drawing 
Imports Leadtools.Svg 
 
Private Shared Sub CodecsRasterPdfInfoExample() 
   Dim multiPageRasterPdfFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "MultiPageRasterPdf.pdf") 
   Dim pagesPdfFileNames As String = Path.Combine(LEAD_VARS.ImagesDir, "Page{0}.pdf") 
 
   ' Create a 4 pages PDF file 
   CreateMultiPageRasterPdfFile(multiPageRasterPdfFileName) 
 
   ' Without prior information, we will split this multi-page PDF file into 
   ' multiple single page PDF files with original size, resolution, bit-depth and compression 
   Using codecs As New RasterCodecs() 
      Dim pagesSaved As Integer = 0 
 
      ' Get the file information 
      Using imageInfo As CodecsImageInfo = codecs.GetInformation(multiPageRasterPdfFileName, True) 
         Console.WriteLine( 
            "Information: Format:\n Format: {0}\n Pages: {1}\n Bits/Pixel: {2}\n Size: {3} by {4}\n Resolution: {5} by {6}", 
            imageInfo.Format, imageInfo.TotalPages, imageInfo.BitsPerPixel, imageInfo.Width, imageInfo.Height, imageInfo.XResolution, imageInfo.YResolution) 
         Console.WriteLine("-----------------------") 
 
         ' Now show the PDF specific information 
         ' Notice: GetInformation will return RasPdf as the format for all PDF files 
         ' regardless of the actual compression 
         If imageInfo.Format = RasterImageFormat.RasPdf Then 
            Console.WriteLine("Image is PDF, getting the specific info for each page") 
 
            For i As Integer = 0 To imageInfo.TotalPages - 1 
               Dim pageNumber As Integer = i + 1 
 
               Dim pdfInfo As CodecsRasterPdfInfo = codecs.GetRasterPdfInfo(multiPageRasterPdfFileName, i + 1) 
               If pageNumber = 1 Then 
                  Console.WriteLine(" LEAD PDF?: {0}", pdfInfo.IsLeadPdf) 
                  Console.WriteLine(" Version: {0}", pdfInfo.Version) 
               End If 
 
               If pdfInfo.IsLeadPdf Then 
                  Console.WriteLine( 
                     "Page {0} of {1} info:\n Bits/Pixel: {2}\n Size: {3} by {4}\n Resolution: {5} by {6}\n Format: {7}", 
                     pageNumber, imageInfo.TotalPages, pdfInfo.BitsPerPixel, pdfInfo.Width, pdfInfo.Height, pdfInfo.XResolution, pdfInfo.YResolution, pdfInfo.Format) 
                  Console.WriteLine("-----------------------") 
 
                  ' Load this page with its original parameters 
                  codecs.Options.RasterizeDocument.Load.XResolution = pdfInfo.XResolution 
                  codecs.Options.RasterizeDocument.Load.YResolution = pdfInfo.YResolution 
                  codecs.Options.Pdf.Load.DisplayDepth = pdfInfo.BitsPerPixel 
 
                  Using pageImage As RasterImage = codecs.Load(multiPageRasterPdfFileName, 0, CodecsLoadByteOrder.BgrOrGray, pageNumber, pageNumber) 
                     Console.WriteLine( 
                        "Page {0} of {1} loaded:\n Bits/Pixel: {2}\n Size: {3} by {4}\n Resolution: {5} by {6}", 
                        pageNumber, imageInfo.TotalPages, pageImage.BitsPerPixel, pageImage.Width, pageImage.Height, pageImage.XResolution, pageImage.YResolution) 
                     Console.WriteLine("-----------------------") 
 
                     ' Setup the PDF save options 
                     codecs.Options.Pdf.Save.UseImageResolution = True 
                     codecs.Options.Pdf.Save.Version = pdfInfo.Version 
 
                     ' Save this page to a separate file 
                     Dim pagePdfFileName As String = String.Format(pagesPdfFileNames, pageNumber) 
                     codecs.Save(pageImage, pagePdfFileName, pdfInfo.Format, pdfInfo.BitsPerPixel) 
                     pagesSaved = pagesSaved + 1 
                  End Using 
               End If 
            Next 
         End If 
      End Using 
 
      ' We are done, now show the info of the generated files 
      For i As Integer = 0 To pagesSaved - 1 
         Dim pageNumber As Integer = i + 1 
         Dim pagePdfFileName As String = String.Format(pagesPdfFileNames, pageNumber) 
 
         Dim pdfInfo As CodecsRasterPdfInfo = codecs.GetRasterPdfInfo(pagePdfFileName, 1) 
         Console.WriteLine( 
            "Page {0} of {1} info:\n Bits/Pixel: {2}\n Size: {3} by {4}\n Resolution: {5} by {6}\n Format: {7}", 
            pageNumber, pagesSaved, pdfInfo.BitsPerPixel, pdfInfo.Width, pdfInfo.Height, pdfInfo.XResolution, pdfInfo.YResolution, pdfInfo.Format) 
         Console.WriteLine("-----------------------") 
      Next 
   End Using 
End Sub 
 
Private Shared Sub CreateMultiPageRasterPdfFile(ByVal pdfFileName As String) 
   Dim sourceFile As String = Path.Combine(LEAD_VARS.ImagesDir, "Sample1.cmp") 
 
   ' Delete the destination PDF file if exists 
   If System.IO.File.Exists(pdfFileName) Then 
      System.IO.File.Delete(pdfFileName) 
   End If 
 
   Using codecs As New RasterCodecs() 
      ' Save to PDF v1.4 
      codecs.Options.Pdf.Save.Version = CodecsRasterPdfVersion.V14 
      ' Save using image resolution 
      codecs.Options.Pdf.Save.UseImageResolution = True 
 
      ' Load the source file to use for each page 
      Using pageImage As RasterImage = codecs.Load(sourceFile, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1) 
         Console.WriteLine( 
            "Original image dimension:\n Size: {0} by {1}\n Resolution: {2} by {3}", 
            pageImage.Width, pageImage.Height, pageImage.XResolution, pageImage.YResolution) 
 
         ' Array of bits/pixel and compression to use when saving the pages 
         Dim bitsPerPixel() As Integer = 
         { 
            1, 
            8, 
            24 
         } 
         Dim formats() As RasterImageFormat = 
         { 
            RasterImageFormat.RasPdfG4, 
            RasterImageFormat.RasPdfLzw, 
            RasterImageFormat.RasPdfJpeg422 
         } 
 
         Dim pageCount As Integer = bitsPerPixel.Length 
         For i As Integer = 0 To pageCount - 1 
            ' Append this page with given format 
            Console.WriteLine("Saving page {0} of {1} using {2} at {3}", i + 1, pageCount, bitsPerPixel(i), formats(i)) 
            codecs.Save(pageImage, pdfFileName, formats(i), bitsPerPixel(i), 1, 1, -1, CodecsSavePageMode.Append) 
         Next 
      End Using 
 
      Console.WriteLine("-----------------------") 
   End Using 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class