Save(RasterImage,String,RasterImageFormat,Int32,Int32,Int32,Int32,CodecsSavePageMode) Method

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing
Imports Leadtools.ImageProcessing.Color
Imports Leadtools.Drawing

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

   Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_SaveFile2.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 file
   ' The file should have 4 pages now: 1, 2, 3, 4
   codecs.Save(image, destFileName, 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(destFileName, 0, CodecsLoadByteOrder.BgrOrGray, 3, 3)
   codecs.Save(image, destFileName, 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(destFileName, 0, CodecsLoadByteOrder.BgrOrGray, 5, 5)
   codecs.Save(image, destFileName, 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(destFileName, 0, CodecsLoadByteOrder.BgrOrGray, 2, 2)
   codecs.Save(image, destFileName, 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(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

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