Stream to Array of Bytes

Private Function ConvertStreamToByteArray(ByVal input As Stream) As Byte()

        Dim data As Byte()

        Using br = New BinaryReader(input)

            data = br.ReadBytes(input.Length)

        End Using

        Return data

End Function

Array of Bytes to Stream

Private Function ConvertByteArrayToStream(ByVal bytFile As Byte()) As Stream

        Return New MemoryStream(bytFile)

End Function

Advertisements