Overloads Public Sub Save( _
   ByVal image As RasterImage, _
   ByVal stream As Stream, _
   ByVal format As RasterImageFormat, _
   ByVal bitsPerPixel As Integer, _
   ByVal firstPage As Integer, _
   ByVal lastPage As Integer, _
   ByVal firstSavePageNumber As Integer, _
   ByVal pageMode As CodecsSavePageMode _
) 

Dim instance As RasterCodecs
Dim image As RasterImage
Dim stream As Stream
Dim format As RasterImageFormat
Dim bitsPerPixel As Integer
Dim firstPage As Integer
Dim lastPage As Integer
Dim firstSavePageNumber As Integer
Dim pageMode As CodecsSavePageMode
 
instance.Save(image, stream, format, bitsPerPixel, firstPage, lastPage, firstSavePageNumber, pageMode)

public void Save( 
   RasterImage image,
   Stream stream,
   RasterImageFormat format,
   int bitsPerPixel,
   int firstPage,
   int lastPage,
   int firstSavePageNumber,
   CodecsSavePageMode pageMode
)

public:
void Save( 
   RasterImage^ image,
   Stream^ stream,
   RasterImageFormat format,
   int bitsPerPixel,
   int firstPage,
   int lastPage,
   int firstSavePageNumber,
   CodecsSavePageMode pageMode
) 

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

      Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_SaveStream2.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 a stream
      Dim fs As FileStream = File.Create(destFileName)

      ' The file should have 4 pages now: 1, 2, 3, 4
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 3, 3)
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 5, 5)
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 2, 2)
      codecs.Save(image, fs, RasterImageFormat.Tif, 1, 1, 1, 5, CodecsSavePageMode.Replace)
      image.Dispose()

      ' We will delete pages now from the file
      ' LEADTOOLS does not support deleting pages from
      ' a stream, so we have to close it now and use
      ' the file instead.
      fs.Close()

      ' Delete the 2nd and 6th pages
      ' The file should have 5 pages now: 4, 3, 2, 1
      codecs.DeletePage(destFileName, 2)
      ' Notice, -1 because we already deleted a page, so 6th page is not 5th
      codecs.DeletePage(destFileName, 6 - 1)

      ' Clean up
      codecs.Dispose()
   End Sub

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

public void SaveStream2Example()
   {
      RasterCodecs codecs = new RasterCodecs();

      string destFileName = Path.Combine(LEAD_VARS.ImagesDir,  "Image1_SaveStream2.tif");

      // Create a RasterImage with 4 pages containing text showing the page number
      RasterImage image = null;
      const int pageCount = 4;

      using(System.Drawing.Font f = new System.Drawing.Font("Arial", 36, System.Drawing.FontStyle.Bold))
      using(System.Drawing.Bitmap btmp = new System.Drawing.Bitmap(320, 200))
      using(System.Drawing.StringFormat sf = new System.Drawing.StringFormat())
      {
         System.Drawing.Rectangle rc = new System.Drawing.Rectangle(0, 0, btmp.Width, btmp.Height);
         sf.Alignment = System.Drawing.StringAlignment.Center;
         sf.LineAlignment = System.Drawing.StringAlignment.Center;

         for(int i = 1; i <= pageCount; i++)
         {
            // Create a GDI+ bitmap with the text
            string text = "Page " + i;

            using(System.Drawing.Graphics g = System.Drawing.Graphics.FromImage(btmp))
            {
               g.FillRectangle(System.Drawing.Brushes.White, rc);
               g.DrawString(text, f, System.Drawing.Brushes.Black, rc, sf);
            }

            RasterImage tempImage = Leadtools.Drawing.RasterImageConverter.ConvertFromImage(btmp, Leadtools.Drawing.ConvertFromImageOptions.None);

            if(image == null)
               image = tempImage;
            else
               image.AddPage(tempImage);
         }
      }

      // Save all the pages to the a stream
      FileStream fs = File.Create(destFileName);

      // The file should have 4 pages now: 1, 2, 3, 4
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 3, 3);
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 5, 5);
      codecs.Save(image, fs, 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(fs, 0, CodecsLoadByteOrder.BgrOrGray, 2, 2);
      codecs.Save(image, fs, RasterImageFormat.Tif, 1, 1, 1, 5, CodecsSavePageMode.Replace);
      image.Dispose();

      // We will delete pages now from the file
      // LEADTOOLS does not support deleting pages from
      // a stream, so we have to close it now and use
      // the file instead.
      fs.Close();

      // Delete the 2nd and 6th pages
      // The file should have 5 pages now: 4, 3, 2, 1
      codecs.DeletePage(destFileName, 2);
      // Notice, -1 because we already deleted a page, so 6th page is not 5th
      codecs.DeletePage(destFileName, 6 - 1);

      // Clean up
      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}