Memory Question

Imports System.IO
Imports System.Xml
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices

Public Class Form1
    Private ImageWriter As IO.FileStream
    Private MultipageImages As New ArrayList
    Private ImageByteArray As Byte()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For icount As Int16 = 0 To 4
            Dim Ticket As New Bitmap(1312, 574)
            Dim ticketGraphics As Graphics = Graphics.FromImage(Ticket)
            Dim MyFont As New Font("Arial", 20, FontStyle.Regular)
            Dim memstrm As IO.MemoryStream = New IO.MemoryStream

            ticketGraphics.DrawString("-- Test Ticket --", MyFont, Brushes.Black, 520, 90)
            ticketGraphics.DrawString(icount.ToString, MyFont, Brushes.Black, 520, 120)
            Ticket.Save(memstrm, System.Drawing.Imaging.ImageFormat.Tiff)

            ImageByteArray = memstrm.ToArray
            MultipageImages.Add(ImageByteArray)
            memstrm.Flush()
            memstrm.Close()
            memstrm.Dispose()
            Ticket.Dispose()
            ticketGraphics.Dispose()
            MyFont.Dispose()
            ImageByteArray = Nothing
        Next

        Call CreateMultiPage_ImageFile()
        MessageBox.Show("Done")
    End Sub

    Private Sub CreateMultiPage_ImageFile()
        ImageWriter = New IO.FileStream("C:\MemoryTest.tif", FileMode.Create)

        Dim saveEncoder As Encoder
        Dim compressionEncoder As Encoder
        Dim SaveEncodeParam As EncoderParameter
        Dim EncoderParams As New EncoderParameters(1)
        Dim codecInfo As ImageCodecInfo = getCodecForString("TIFF")

        saveEncoder = Encoder.SaveFlag
        compressionEncoder = Encoder.Compression

        ' Save the first page:.
        SaveEncodeParam = New EncoderParameter(saveEncoder, CLng(EncoderValue.MultiFrame))
        EncoderParams.Param(0) = SaveEncodeParam

        ImageByteArray = MultipageImages(0)
        Dim memstrm As IO.MemoryStream = New IO.MemoryStream(ImageByteArray)

        Dim TicketImage As Image = Image.FromStream(memstrm)
        TicketImage.Save(ImageWriter, codecInfo, EncoderParams)
        memstrm.Flush()
        memstrm.Close()
        memstrm.Dispose()
        ImageByteArray = Nothing

        For iCount As Int16 = 1 To MultipageImages.Count - 1
            ' Save the next set of pages:
            SaveEncodeParam = New EncoderParameter(saveEncoder, CLng(EncoderValue.FrameDimensionPage))
            EncoderParams.Param(0) = SaveEncodeParam

            ImageByteArray = MultipageImages(iCount)
            memstrm = New IO.MemoryStream(ImageByteArray)

            Dim NextImage As Image = Image.FromStream(memstrm)
            TicketImage.SaveAdd(NextImage, EncoderParams)
            memstrm.Flush()
            memstrm.Close()
            memstrm.Dispose()
            NextImage.Dispose()
            ImageByteArray = Nothing
        Next

        SaveEncodeParam = New EncoderParameter(saveEncoder, CLng(EncoderValue.Flush))
        EncoderParams.Param(0) = SaveEncodeParam
        TicketImage.SaveAdd(EncoderParams)

        MultipageImages.Clear()
        MultipageImages = Nothing
        ImageWriter.Close()
        ImageWriter.Dispose()
    End Sub

    Private Function getCodecForString(ByVal type As String) As ImageCodecInfo
        Dim info As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()

        For i As Integer = 0 To info.Length - 1
            Dim EnumName As String = type.ToString()
            If info(i).FormatDescription.Equals(EnumName) Then
                Return info(i)
            End If
        Next

        Return Nothing
    End Function
End Class

Select allOpen in new window