SaveImage Event

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 SaveImageExample(Stream inStreamCmp, Stream outStreamCmp) 
{ 
   RasterCodecs codecs = new RasterCodecs(); 
 
   // Load the source file (make sure to load as 24 bits/pixel) 
   RasterImage image = codecs.Load(inStreamCmp, 24, CodecsLoadByteOrder.Bgr, 1, 1); 
 
   // Add a handler to the SaveImage event 
   codecs.SaveImage += new EventHandler<CodecsSaveImageEventArgs>(codecs_SaveImage); 
 
   // Save the image 
   codecs.Save(image, outStreamCmp, RasterImageFormat.Cmp, 24); 
 
   codecs.SaveImage -= new EventHandler<CodecsSaveImageEventArgs>(codecs_SaveImage); 
 
   image.Dispose(); 
} 
 
byte[] _saveImageScanLine; 
 
void codecs_SaveImage(object sender, CodecsSaveImageEventArgs e) 
{ 
   if (e.Row == 0) 
   { 
      // Show information about the image being saved 
      Console.WriteLine("Saving an image with {0} bpp to {1}", e.Image.BitsPerPixel, e.FileName); 
      //Console.WriteLine("Offset: {0}, OffsetValid: {1}", e.Offset, e.OffsetValid); 
      Console.WriteLine("Page: {0} of {1}", e.Page, e.PageCount); 
   } 
 
   Console.WriteLine("Row: {0}, Lines {1}", e.Row, e.Lines); 
 
   // Get the scanlines from the image 
   int lastRow = e.Row + e.Lines; 
   int bytesPerLine = e.Image.BytesPerLine; 
   RasterNativeBuffer buffer = e.Buffer; 
 
   // See if we need to re-allocate the managed buffer 
   if (_saveImageScanLine == null || _saveImageScanLine.Length < bytesPerLine) 
      _saveImageScanLine = new byte[bytesPerLine]; 
 
   long offset = 0; 
   for (int y = e.Row; y < lastRow; y++) 
   { 
      // Get the row into the managed buffer 
      e.Image.Access(); 
      e.Image.GetRow(y, _saveImageScanLine, 0, bytesPerLine); 
      e.Image.Release(); 
 
      // We got the data, now double the intensity 
      // Remember, this is 24-bits/pixel 
      for (int x = 0; x < bytesPerLine; x++) 
         _saveImageScanLine[x] *= 2; 
 
      // Copy the data into the buffer 
      buffer.SetData(offset, _saveImageScanLine, 0, bytesPerLine); 
 
      // Move the pointer to the position in the buffer for the next row 
      offset += bytesPerLine; 
   } 
} 
vb[Silverlight VB Example] 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Windows.Media 
 
Public Sub SaveImageExample(ByVal inStreamCmp As Stream, ByVal outStreamCmp As Stream) 
   Dim codecs As RasterCodecs = New RasterCodecs() 
 
   ' Load the source file (make sure to load as 24 bits/pixel) 
   Dim image As RasterImage = codecs.Load(inStreamCmp, 24, CodecsLoadByteOrder.Bgr, 1, 1) 
 
   ' Add a handler to the SaveImage event 
   AddHandler codecs.SaveImage, AddressOf codecs_SaveImage 
 
   ' Save the image 
   codecs.Save(image, outStreamCmp, RasterImageFormat.Cmp, 24) 
 
   RemoveHandler codecs.SaveImage, AddressOf codecs_SaveImage 
 
   image.Dispose() 
End Sub 
 
Private _saveImageScanLine As Byte() 
 
Private Sub codecs_SaveImage(ByVal sender As Object, ByVal e As CodecsSaveImageEventArgs) 
   If e.Row = 0 Then 
      ' Show information about the image being saved 
      Console.WriteLine("Saving an image with {0} bpp to {1}", e.Image.BitsPerPixel, e.FileName) 
      'Console.WriteLine("Offset: {0}, OffsetValid: {1}", e.Offset, e.OffsetValid); 
      Console.WriteLine("Page: {0} of {1}", e.Page, e.PageCount) 
   End If 
 
   Console.WriteLine("Row: {0}, Lines {1}", e.Row, e.Lines) 
 
   ' Get the scanlines from the image 
   Dim lastRow As Integer = e.Row + e.Lines 
   Dim bytesPerLine As Integer = e.Image.BytesPerLine 
   Dim buffer As RasterNativeBuffer = e.Buffer 
 
   ' See if we need to re-allocate the managed buffer 
   If _saveImageScanLine Is Nothing OrElse _saveImageScanLine.Length < bytesPerLine Then 
      _saveImageScanLine = New Byte(bytesPerLine - 1) {} 
   End If 
 
   Dim offset As Long = 0 
   Dim y As Integer = e.Row 
   Do While y < lastRow 
      ' Get the row into the managed buffer 
      e.Image.Access() 
      e.Image.GetRow(y, _saveImageScanLine, 0, bytesPerLine) 
      e.Image.Release() 
 
      ' We got the data, now double the intensity 
      ' Remember, this is 24-bits/pixel 
      Dim x As Integer = 0 
      Do While x < bytesPerLine 
         _saveImageScanLine(x) *= 2 
         x += 1 
      Loop 
 
      ' Copy the data into the buffer 
      buffer.SetData(offset, _saveImageScanLine, 0, bytesPerLine) 
 
      ' Move the pointer to the position in the buffer for the next row 
      offset += bytesPerLine 
      y += 1 
   Loop 
End Sub