Save(RasterImage,string,RasterImageFormat,int,int,int,int,CodecsSavePageMode) 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 SaveStream2Example(int width, int height, int pageCount, Stream outStreamTif) 
{ 
   RasterCodecs codecs = new RasterCodecs(); 
 
   // Create a RasterImage with 4 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(width, height); 
 
      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); 
   } 
 
   // Save all the pages to the file 
   // The file should have 4 pages now: 1, 2, 3, 4 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, pageCount, 1, CodecsSavePageMode.Overwrite); 
   image.Dispose(); 
 
   // Load the 3rd page and insert it as the second 
   // The file should have 5 pages now: 1, 3, 2, 3, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 3, 3); 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 2, CodecsSavePageMode.Insert); 
   image.Dispose(); 
 
   // Load the last page, and insert it as the first 
   // The file should have 5 pages now: 4, 1, 3, 2, 3, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 5, 5); 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 1, CodecsSavePageMode.Insert); 
   image.Dispose(); 
 
   // Replace the 5th page with the 2nd 
   // The file should have 5 pages now: 4, 1, 3, 2, 1, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 2, 2); 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 5, CodecsSavePageMode.Replace); 
   image.Dispose(); 
 
   // Delete the 2nd and 6th pages 
   // The file should have 5 pages now: 4, 3, 2, 1 
   codecs.DeletePage(outStreamTif, 2); 
   // Notice, -1 because we already deleted a page, so 6th page is not 5th 
   codecs.DeletePage(outStreamTif, 6 - 1); 
} 
vb[Silverlight VB Example] 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Windows.Media 
 
Public Sub SaveStream2Example(ByVal width As Integer, ByVal height As Integer, ByVal pageCount As Integer, ByVal outStreamTif As Stream) 
   Dim codecs As RasterCodecs = New RasterCodecs() 
 
   ' Create a RasterImage with 4 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(width, height) 
 
      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 
 
   ' Save all the pages to the file 
   ' The file should have 4 pages now: 1, 2, 3, 4 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, pageCount, 1, CodecsSavePageMode.Overwrite) 
   image.Dispose() 
 
   ' Load the 3rd page and insert it as the second 
   ' The file should have 5 pages now: 1, 3, 2, 3, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 3, 3) 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 2, CodecsSavePageMode.Insert) 
   image.Dispose() 
 
   ' Load the last page, and insert it as the first 
   ' The file should have 5 pages now: 4, 1, 3, 2, 3, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 5, 5) 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 1, CodecsSavePageMode.Insert) 
   image.Dispose() 
 
   ' Replace the 5th page with the 2nd 
   ' The file should have 5 pages now: 4, 1, 3, 2, 1, 4 
   image = codecs.Load(outStreamTif, 0, CodecsLoadByteOrder.BgrOrGray, 2, 2) 
   codecs.Save(image, outStreamTif, RasterImageFormat.Tif, 1, 1, 1, 5, CodecsSavePageMode.Replace) 
   image.Dispose() 
 
   ' Delete the 2nd and 6th pages 
   ' The file should have 5 pages now: 4, 3, 2, 1 
   codecs.DeletePage(outStreamTif, 2) 
   ' Notice, -1 because we already deleted a page, so 6th page is not 5th 
   codecs.DeletePage(outStreamTif, 6 - 1) 
End Sub