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

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

原创最新推荐文章于 2021-03-27 03:09:23 发布 · 748 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #数据库 #照片 #byte #function #image

技术类专栏收录该内容

1 篇文章

订阅专栏

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

部署运行你感兴趣的模型镜像

''' <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

您可能感兴趣的与本文相关的镜像