16,555
社区成员
发帖
与我相关
我的任务
分享
' 将文件/图片转换成二进制流
Dim myFileInfo As FileInfo = New FileInfo(paramFileName)
Dim myFileStream As FileStream = New FileStream(paramFileName, FileMode.Open, FileAccess.Read)
Dim fileName As String = myFileInfo.Name
Dim bytes() As Byte = New Byte((myFileStream.Length) - 1) {}
myFileStream.Read(bytes, 0, bytes.Length)
''' <summary>
''' 将数据库二进制字节转化为图片
''' </summary>
''' <returns>返回图片</returns>
Public Shared Function GetImage(ByVal imageBytes() As Byte) As Image
Dim ms As MemoryStream = New MemoryStream(imageBytes)
Dim image As Image = Image.FromStream(ms, true)
Return image
End Function