CompactFile(string,string,int) Method

c#[Silverlight C# Example] 
using Leadtools; 
using Leadtools.Codecs; 
using Leadtools.Examples; 
using Leadtools.ImageProcessing; 
using Leadtools.ImageProcessing.Color; 
using Leadtools.Windows.Media; 
 
public void CompactFileExample(Stream dstStream, int width, int height, int pageCount) 
{ 
   // Create a RasterImage with number of pages containing text showing the page number 
   RasterImage image = null; 
 
   // The white background canvas 
   Canvas canvas = new Canvas(); 
   canvas.Width = width; 
   canvas.Height = height; 
   canvas.Background = new SolidColorBrush(Color.FromArgb(255, 255, 255, 255)); 
 
   // The black text block 
   TextBlock 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); 
 
   for (int i = 1; i <= pageCount; i++) 
   { 
      // The text we want on the page 
      string text = "Page " + i; 
      textBlock.Text = text; 
 
      // Center the text 
      double left = (canvas.Width - textBlock.ActualWidth) / 2; 
      double top = (canvas.Height - textBlock.ActualHeight) / 2; 
      textBlock.SetValue(Canvas.LeftProperty, left); 
      textBlock.SetValue(Canvas.TopProperty, top); 
 
      // Create a Writeable bitmap with the text 
      WriteableBitmap wb = new WriteableBitmap(320, 200); 
 
      wb.Render(canvas, null); 
      wb.Invalidate(); 
 
      // Convert it to a RasterImage 
      RasterImage pageImage = RasterImageConverter.ConvertFromSource(wb, ConvertFromSourceOptions.None); 
 
      // Add it as a page to our main raster image 
      if (image == null) 
         image = pageImage; 
      else 
         image.AddPage(pageImage); 
   } 
 
   RasterCodecs codecs = 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(); 
 
   MemoryStream memoryStream = new MemoryStream((int)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  
   int pagesToAdd = 0;  // 0 means all pages  
   int srcStartPage = 1; 
   int destStartPage = 5;  // insert at the end  
 
   codecs.CompactFile( 
      dstStream, 
      memoryStream, 
      pagesToAdd, 
      srcStartPage, 
      false, 
      0, 
      destStartPage, 
      false, 
      0, 
      CodecsSavePageMode.Insert, 
      false, 
      false); 
} 
vb[Silverlight VB Example] 
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