RasterBufferResize Class

'Declaration
 
Public Class RasterBufferResize 

Public Sub RasterBufferResizeExample()
      Dim codecs As RasterCodecs = New RasterCodecs()
      codecs.ThrowExceptionsOnInvalidImages = True

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
      Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_resized.bmp")

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

      Dim destWidth As Integer = srcImage.Width \ 2
      Dim destHeight As Integer = srcImage.Height \ 2

      ' Create the destination image
      Dim destImage As RasterImage = New RasterImage(RasterMemoryFlags.Conventional, destWidth, destHeight, srcImage.BitsPerPixel, srcImage.Order, srcImage.ViewPerspective, srcImage.GetPalette(), IntPtr.Zero, 0)

      ' allocate buffer for one scanline from source image
      Dim scanLine As Byte() = New Byte(srcImage.BytesPerLine - 1) {}

      ' resize it
      Dim bufferResize As RasterBufferResize = New RasterBufferResize()

      ' Initialize the resize process.
      bufferResize.Start(srcImage.Width, srcImage.Height, destImage.Width, destImage.Height)

      srcImage.Access()
      destImage.Access()

      ' Current destination row number
      Dim destRow As Integer = 0
      Dim i As Integer = 0
      Do While i < srcImage.Height
         ' Get a scanline from the source image and resize it
         srcImage.GetRow(i, scanLine, 0, srcImage.BytesPerLine)
         bufferResize.ResizeBuffer(scanLine, 0, i, srcImage.BitsPerPixel)

         ' Output as many or as few rows as ResizeBuffer supplies
         Dim j As Integer = 0
         Do While j < bufferResize.CopyRepetitions
            destImage.SetRow(destRow, scanLine, 0, bufferResize.LineWidth * 3)
            destRow += 1
            j += 1
         Loop
         i += 1
      Loop

      destImage.Release()
      srcImage.Release()

      bufferResize.Stop()

      ' Save the destination image
      codecs.Save(destImage, destFileName, RasterImageFormat.Bmp, 24)

      ' Clean up
      srcImage.Dispose()
      destImage.Dispose()
   End Sub

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