Database

Public Function BmpToArray(ByVal bmp As Bitmap) As Byte()
    If Not bmp Is Nothing Then
        Dim srcStream As New MemoryStream()
        Dim destStream As New MemoryStream()

        Try
            bmp.Save(srcStream, System.Drawing.Imaging.ImageFormat.Bmp)

            Dim buffer(CType(srcStream.Length - 1, Integer)) As Byte
            Dim gZip As New GZipStream(destStream, CompressionMode.Compress)

            gZip.Write(buffer, 0, buffer.Length)
            gZip.Flush()
            gZip.Close()
            gZip = Nothing

            Return destStream.ToArray()
        Finally
            srcStream.Close()
        End Try
    End If

    Return Nothing
End Function

Public Function ArrayToBmp(ByVal arr() As Byte) As Bitmap
    If (arr.Length > 0) Then
        Dim srcStream As New MemoryStream(arr)
        Dim destStream As New MemoryStream()

        Try
            Dim buffer(1024) As Byte
            Dim gZip As New GZipStream(srcStream, CompressionMode.Decompress)
            Dim readingByte As Integer = gZip.Read(buffer, 0, 1024)

            Do While readingByte > 0
                destStream.Write(buffer, 0, readingByte)
                readingByte = gZip.Read(buffer, 0, 1024)
            Loop

            gZip.Flush()
            gZip.Close()
            gZip = Nothing

            Return New Bitmap(destStream)
        Finally
            destStream.Close()
            srcStream.Close()
        End Try
    End If

    Return Nothing
End Function