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

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

Dify

AI应用

Agent编排

Dify 是一款开源的大语言模型（LLM）应用开发平台，它结合了后端即服务(Backend as a Service) 和LLMOps 的理念，让开发者能快速、高效地构建和部署生产级的生成式AI应用。它提供了包含模型兼容支持、Prompt 编排界面、RAG 引擎、Agent 框架、工作流编排等核心技术栈，并且提供了易用的界面和API，让技术和非技术人员都能参与到AI应用的开发过程中