vb.net中向SQLSERVE数据库存取图片（流的形式）

最新推荐文章于 2021-03-27 03:09:23 发布

chenhongwei1982

最新推荐文章于 2021-03-27 03:09:23 发布

阅读量738

点赞数

CC 4.0 BY-SA版权

分类专栏：技术类文章标签： vb.net 数据库照片 byte function image

本文链接：https://blog.youkuaiyun.com/chenhongwei1982/article/details/4083973

技术类专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种将图片转换为二进制数组的方法，并提供了如何使用这些数组在应用程序中显示图片的示例代码。支持多种图片格式，如BMP、JPG、GIF等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

''' <summary>
    ''' 转换成IMAGE类型
    ''' </summary>
    ''' <param name="picBox">显示照片的控件</param>
    ''' <param name="photoExt">照片的扩展名</param>
    ''' <returns>照片的二进制数组</returns>
    ''' <remarks></remarks>
    Public Function GetImageByte(ByVal picBox As PictureBox, ByVal photoExt As String) As Byte()
        Dim imgFile As New Bitmap(picBox.Image)

Dim msStream As New MemoryStream

        Select Case photoExt.ToUpper
            Case "BMP"
                imgFile.Save(msStream, Imaging.ImageFormat.Bmp)
            Case "JPG"
                imgFile.Save(msStream, Imaging.ImageFormat.Jpeg)
            Case "GIF"
                imgFile.Save(msStream, Imaging.ImageFormat.Gif)
            Case "EMF"
                imgFile.Save(msStream, Imaging.ImageFormat.Emf)
            Case ""
                imgFile.Save(msStream, Imaging.ImageFormat.Jpeg)
        End Select

Dim byteArray() As Byte = msStream.ToArray()
msStream.Close()

Return byteArray
End Function

    ''' <summary>
    ''' 显示图片
    ''' </summary>
    ''' <param name="photoByte">照片的二进制数组</param>
    ''' <param name="picBox">需要显示图片的控件</param>
    ''' <remarks></remarks>
    Public Sub DisplayPhoto(ByVal photoByte() As Byte, ByVal picBox As PictureBox)

If photoByte.Length > 0 Then
Dim memory As New MemoryStream(photoByte)

            picBox.Image = Image.FromStream(memory, True, False)
        End If
    End Sub