SaveStamp(RasterImage,String,Int32,Int32,Int32,CodecsSavePageMode) Method

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

      
Public Sub StampExample()
   Dim codecs As RasterCodecs = New RasterCodecs()
   Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
   Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_WithCustomStamp.cmp")
   Dim stampFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_Stamp.bmp")

   ' Load the source file name
   Dim image As RasterImage = codecs.Load(srcFileName)

   ' Save as the destination image
   codecs.Save(image, destFileName, 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"

   Using rg As RasterGraphics = RasterImagePainter.CreateGraphics(image)
      Using sf As New System.Drawing.StringFormat()
         sf.Alignment = System.Drawing.StringAlignment.Center
         sf.LineAlignment = System.Drawing.StringAlignment.Center
         Using f As New System.Drawing.Font("Arial", 20, System.Drawing.FontStyle.Bold)
            Dim rcDraw As New System.Drawing.Rectangle(rc.X, rc.Y, rc.Width, rc.Height)
            rg.Graphics.DrawString(message, f, System.Drawing.Brushes.Yellow, rcDraw, sf)
         End Using
      End Using
   End Using

   ' Now set this image as the stamp for this file
   codecs.SaveStamp(image, destFileName, 1, 1, 1, CodecsSavePageMode.Overwrite)
   image.Dispose()

   ' Load the stamp from the file and save it into another file
   image = codecs.ReadStamp(destFileName, 1)
   codecs.Save(image, stampFileName, RasterImageFormat.Bmp, 24)
   image.Dispose()

   ' 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

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