How to show a compressed image in the report?

Question

Hi
I have created a new report.what i do in application is i  compress the image and save it in database.now i need to retrieve the compressed image and display in the report. I have used the following code to decompress the binary data save in the image.I
dont know after that what should i do. Please help me to show the picture in SSRS Report. I need to show picture in many reports.one of my doubt is how to call this function in SSRS Report. The function accepts input as byte but in database the column in varbinary.
should i convert the input type of function to varbinary instead of byte array? Please help me.
Public Function Decompress(ByVal arr As Byte()) As Byte()
Dim notCompressed As Boolean
notCompressed = False
Dim MS As MemoryStream
MS = New MemoryStream()
MS.Write(arr, 0, arr.Length)
MS.Position = 0
Dim stream As GZipStream
stream = New GZipStream(MS, CompressionMode.Decompress)
Dim temp As MemoryStream
temp = New MemoryStream()
Dim buffer As Byte() = New Byte(4096) {}
While (True)
Try
Dim read As Integer
read = stream.Read(buffer, 0, buffer.Length)
If (read <= 0) Then
Exit While
Else
temp.Write(buffer, 0, buffer.Length)
End If
Catch ex As Exception
notCompressed = True
Exit While
End Try
End While
If (notCompressed = True) Then
stream.Close()
Return temp.ToArray()
Else
Return temp.ToArray()
End If
End Function
Thanks & Regards Manoj

Answer 1

Please try this 
Public Function Decompress(ByVal arr As Byte()) As Byte()
        Dim s As Byte()
        Dim notCompressed As Boolean
        notCompressed = False
        Dim MS As System.IO.MemoryStream
        MS = New System.IO.MemoryStream()
        MS.Write(arr, 0, arr.Length)
        MS.Position = 0
        Dim stream As System.IO.Compression.GZipStream
        stream = New System.IO.Compression.GZipStream(MS, System.IO.Compression.CompressionMode.Decompress)
        Dim temp As System.IO.MemoryStream
        temp = New System.IO.MemoryStream()
        Dim buffer As Byte() = New Byte(4096) {}
        While (True)
            Try
                Dim read As Integer
                read = stream.Read(buffer, 0, buffer.Length)
                If (read <= 0) Then
                    Exit While
                Else
                    temp.Write(buffer, 0, buffer.Length)
                End If
            Catch ex As Exception
                notCompressed = True
                Exit While
            End Try
        End While
        If (notCompressed = True) Then
            stream.Close()
            Return temp.ToArray()
        Else
            Return temp.ToArray()
        End If
    End Function
Thanks & Regards Manoj