CompactFile(String,String,Int32) Method

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing
Imports Leadtools.ImageProcessing.Color
Imports Leadtools.Drawing

Public Sub CompactFileExample()
   Dim codecs As RasterCodecs = New RasterCodecs()

   Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "CompactFile1_Src.tif")
   Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "CompactFile1_Dest.tif")

   ' Create a RasterImage with 4 pages containing text showing the page number
   Dim image As RasterImage = Nothing
   Const pageCount As Integer = 4

   Using f As New System.Drawing.Font("Arial", 36, System.Drawing.FontStyle.Bold)
      Using btmp As New System.Drawing.Bitmap(320, 200)
         Using sf As New System.Drawing.StringFormat()
            Dim rc As New System.Drawing.Rectangle(0, 0, btmp.Width, btmp.Height)
            sf.Alignment = System.Drawing.StringAlignment.Center
            sf.LineAlignment = System.Drawing.StringAlignment.Center

            For i As Integer = 1 To pageCount
               ' Create a GDI+ bitmap with the text
               Dim text As String = "Page " + i.ToString()

               Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(btmp)
                  g.FillRectangle(System.Drawing.Brushes.White, rc)
                  g.DrawString(text, f, System.Drawing.Brushes.Black, rc, sf)
               End Using

               Dim tempImage As RasterImage = RasterImageConverter.ConvertFromImage(btmp, ConvertFromImageOptions.None)

               If image Is Nothing Then
                  image = tempImage
               Else
                  image.AddPage(tempImage)
               End If
            Next
         End Using
      End Using
   End Using

   ' Save all the pages to the file
   ' The file should have 4 pages now: 1, 2, 3, 4
   codecs.Save(image, srcFileName, RasterImageFormat.Tif, 1, 1, pageCount, 1, CodecsSavePageMode.Overwrite)
   image.Dispose()

   ' All the pages in the source TIFF file. This will create the destination file
   codecs.CompactFile(srcFileName, destFileName, 0)

   ' Compact the source file again and append all the pages to the existing destination file
   Dim pagesToAdd As Integer = 0 ' 0 means all pages
   Dim srcStartPage As Integer = 1
   Dim destStartPage As Integer = 5 ' insert at the end

   codecs.CompactFile(srcFileName, destFileName, pagesToAdd, srcStartPage, False, 0, destStartPage, False, 0, CodecsSavePageMode.Insert, False, False)

   ' Clean up
   codecs.Dispose()
End Sub

Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing
Imports Leadtools.ImageProcessing.Color
Imports Leadtools.Windows.Media

Public Sub CompactFileExample(ByVal dstStream As Stream, ByVal width As Integer, ByVal height As Integer, ByVal pageCount As Integer)
   ' Create a RasterImage with number of pages containing text showing the page number
   Dim image As RasterImage = Nothing
   ' The white background canvas
   Dim canvas As Canvas = New Canvas()
   canvas.Width = width
   canvas.Height = height
   canvas.Background = New SolidColorBrush(Color.FromArgb(255, 255, 255, 255))

   ' The black text block
   Dim textBlock As TextBlock = New TextBlock()
   textBlock.FontFamily = New FontFamily("Arial")
   textBlock.FontSize = 36
   textBlock.Foreground = New SolidColorBrush(Color.FromArgb(255, 0, 0, 0))
   canvas.Children.Add(textBlock)

   Dim i As Integer = 1
   Do While i <= pageCount
      ' The text we want on the page
      Dim text As String = "Page " & i
      textBlock.Text = text

      ' Center the text
      Dim left As Double = (canvas.Width - textBlock.ActualWidth) / 2
      Dim top As Double = (canvas.Height - textBlock.ActualHeight) / 2
      textBlock.SetValue(Canvas.LeftProperty, left)
      textBlock.SetValue(Canvas.TopProperty, top)

      ' Create a Writeable bitmap with the text
      Dim wb As WriteableBitmap = New WriteableBitmap(320, 200)

      wb.Render(canvas, Nothing)
      wb.Invalidate()

      ' Convert it to a RasterImage
      Dim pageImage As RasterImage = RasterImageConverter.ConvertFromSource(wb, ConvertFromSourceOptions.None)

      ' Add it as a page to our main raster image
      If image Is Nothing Then
         image = pageImage
      Else
         image.AddPage(pageImage)
      End If
      i += 1
   Loop

   Dim codecs As RasterCodecs = New RasterCodecs()
   ' Save all the pages to the file 
   ' The file should have 4 pages now: 1, 2, 3, 4 
   codecs.Save(image, dstStream, RasterImageFormat.Tif, 1, 1, pageCount, 1, CodecsSavePageMode.Overwrite)
   image.Dispose()

   Dim memoryStream As MemoryStream = New MemoryStream(CInt(dstStream.Length))
   ' All the pages in the source TIFF file. This will create the destination file 
   codecs.CompactFile(dstStream, memoryStream, 0)

   ' Compact the source file again and append all the pages to the existing destination file 
   Dim pagesToAdd As Integer = 0 ' 0 means all pages
   Dim srcStartPage As Integer = 1
   Dim destStartPage As Integer = 5 ' insert at the end

   codecs.CompactFile(dstStream, memoryStream, pagesToAdd, srcStartPage, False, 0, destStartPage, False, 0, CodecsSavePageMode.Insert, False, False)
End Sub