SaveStamp(RasterImage,string,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; 
 
private void StampExample(RasterImage image, Stream outStreamFileWithStamp, Stream outStreamStampOnly) 
{ 
   RasterCodecs codecs = new RasterCodecs(); 
 
   // Save as the destination image 
   codecs.Save(image, outStreamFileWithStamp, RasterImageFormat.Cmp, 24); 
 
   // Resize the image to fit into 128 by 128 pixels keeping the aspect ratio 
   LeadRect rc = new LeadRect(0, 0, 128, 128); 
   rc = RasterImage.CalculatePaintModeRectangle( 
      image.ImageWidth, 
      image.ImageHeight, 
      rc, 
      RasterPaintSizeMode.FitAlways, 
      RasterPaintAlignMode.Near, 
      RasterPaintAlignMode.Near); 
 
   SizeCommand command = new SizeCommand(); 
   command.Width = rc.Width; 
   command.Height = rc.Height; 
   command.Flags = RasterSizeFlags.None; 
   command.Run(image); 
 
   // Add the word "Stamp" on the image at the middle 
   string message = "Stamp"; 
 
   // To add "Stamp", we will create a WriteableBitmap from the RasterImage 
   // then add a canvas and a text block on top of it 
 
   // Create a writeable bitmap from the image source 
   WriteableBitmap bitmap = new WriteableBitmap(image.ImageWidth, image.ImageHeight); 
 
   // The white background canvas 
   Canvas canvas = new Canvas(); 
   canvas.Width = image.ImageWidth; 
   canvas.Height = image.ImageHeight; 
 
   // Get the RasterImage as an ImageSource 
   ImageSource source = RasterImageConverter.ConvertToSource(image, ConvertToSourceOptions.UseSetSource); 
 
   // The image for the ImageSource 
   Image img = new Image(); 
   img.Source = source; 
 
   // The black text block 
   TextBlock textBlock = new TextBlock(); 
   textBlock.FontFamily = new FontFamily("Arial"); 
   textBlock.FontSize = 20; 
   textBlock.Text = message; 
   textBlock.Foreground = new SolidColorBrush(Color.FromArgb(255, 0, 0, 0)); 
 
   // Add the image source and the text block 
   canvas.Children.Add(img); 
   canvas.Children.Add(textBlock); 
 
   // 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); 
 
   // Render 
   bitmap.Render(canvas, null); 
   bitmap.Invalidate(); 
 
   image.Dispose(); 
 
   // Re-create the RasterImage from the WriteableBitmap 
   image = RasterImageConverter.ConvertFromSource(bitmap, ConvertFromSourceOptions.None); 
 
   // stamp has to be 24-bit, so convert it back 
   ColorResolutionCommand cmd = new ColorResolutionCommand(); 
   cmd.BitsPerPixel = 24; 
   cmd.Run(image); 
 
   // This image contains the stamp, save it to the output stream 
   codecs.SaveStamp(image, outStreamFileWithStamp); 
   image.Dispose(); 
 
   // Load the stamp from the file and save it to the other output stream 
   image = codecs.ReadStamp(outStreamFileWithStamp, 1); 
   codecs.Save(image, outStreamStampOnly, RasterImageFormat.Bmp, 24); 
   image.Dispose(); 
} 
vb[Silverlight VB Example] 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Windows.Media 
 
Private Sub StampExample(ByVal image As RasterImage, ByVal outStreamFileWithStamp As Stream, ByVal outStreamStampOnly As Stream) 
   Dim codecs As RasterCodecs = New RasterCodecs() 
 
   ' Save as the destination image 
   codecs.Save(image, outStreamFileWithStamp, RasterImageFormat.Cmp, 24) 
 
   ' Resize the image to fit into 128 by 128 pixels keeping the aspect ratio 
   Dim rc As LeadRect = New LeadRect(0, 0, 128, 128) 
   rc = RasterImage.CalculatePaintModeRectangle(image.ImageWidth, image.ImageHeight, rc, RasterPaintSizeMode.FitAlways, RasterPaintAlignMode.Near, RasterPaintAlignMode.Near) 
 
   Dim command As SizeCommand = New SizeCommand() 
   command.Width = rc.Width 
   command.Height = rc.Height 
   command.Flags = RasterSizeFlags.None 
   command.Run(image) 
 
   ' Add the word "Stamp" on the image at the middle 
   Dim message As String = "Stamp" 
 
   ' To add "Stamp", we will create a WriteableBitmap from the RasterImage 
   ' then add a canvas and a text block on top of it 
 
   ' Create a writeable bitmap from the image source 
   Dim bitmap As WriteableBitmap = New WriteableBitmap(image.ImageWidth, image.ImageHeight) 
 
   ' The white background canvas 
   Dim canvas As Canvas = New Canvas() 
   canvas.Width = image.ImageWidth 
   canvas.Height = image.ImageHeight 
 
   ' Get the RasterImage as an ImageSource 
   Dim source As ImageSource = RasterImageConverter.ConvertToSource(image, ConvertToSourceOptions.UseSetSource) 
 
   ' The image for the ImageSource 
   Dim img As Image = New Image() 
   img.Source = source 
 
   ' The black text block 
   Dim textBlock As TextBlock = New TextBlock() 
   textBlock.FontFamily = New FontFamily("Arial") 
   textBlock.FontSize = 20 
   textBlock.Text = message 
   textBlock.Foreground = New SolidColorBrush(Color.FromArgb(255, 0, 0, 0)) 
 
   ' Add the image source and the text block 
   canvas.Children.Add(img) 
   canvas.Children.Add(textBlock) 
 
   ' 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) 
 
   ' Render 
   bitmap.Render(canvas, Nothing) 
   bitmap.Invalidate() 
 
   image.Dispose() 
 
   ' Re-create the RasterImage from the WriteableBitmap 
   image = RasterImageConverter.ConvertFromSource(bitmap, ConvertFromSourceOptions.None) 
 
   ' stamp has to be 24-bit, so convert it back 
   Dim cmd As ColorResolutionCommand = New ColorResolutionCommand() 
   cmd.BitsPerPixel = 24 
   cmd.Run(image) 
 
   ' This image contains the stamp, save it to the output stream 
   codecs.SaveStamp(image, outStreamFileWithStamp) 
   image.Dispose() 
 
   ' Load the stamp from the file and save it to the other output stream 
   image = codecs.ReadStamp(outStreamFileWithStamp, 1) 
   codecs.Save(image, outStreamStampOnly, RasterImageFormat.Bmp, 24) 
   image.Dispose() 
End Sub