将图片框图像导出到本地磁盘

Question

我想将图片框中的图像导出到硬盘中的某个位置，此图像是从 MSSQL 数据库表中的图像类型列中设置为图片框的。

我已经编写了以下代码来完成这项任务。但是我通过 try catch 代码得到一个通用的 GDI+ 错误。

此代码将图片框中的图像导出到保存文件对话框指定的位置。

        Dim fileName As String = exportDialog.FileName
        Dim expImage As Image = picBox.BackgroundImage
        Try
            If expImage IsNot Nothing Then
                expImage.Save(fileName)
                MessageBox.Show("File exported successfully")
            End If
        Catch ex As Exception
            __WRITELOG(ex)
        End Try

这是从数据库中获取图像并将其转换为能够显示在图片框中的代码

        If Not IsDBNull(img) Then
            Using mStream As New MemoryStream(img, 0, img.Length)
                mStream.Write(img, 0, img.Length)
                __IMAGE_FROM_STREAM = Image.FromStream(mStream, True)
                '//This __IMAGE_FROM_STREAM is set as the image into the picturebox & it works....!
            End Using
        End If

我已经检查过这个问题，但是大多数其他人在保存从磁盘中的某个位置而不是数据库中加载到图片框的文件时都遇到了 GDI+ 错误。还有一些解决方案是关于不适用于这种情况的磁盘锁。感谢您提供任何支持/建议。

Answer 1

我不是 100% 确定，但我认为问题在于您正在处理您正在创建 Image 的 Stream。使用Using 语句通常很好，因为它意味着自动处理创建的对象，但在这种情况下这是不可取的。保留Stream 并仅在您使用完Image 后将其丢弃，并将其也丢弃。例如，您可以创建一个自定义控件，该控件继承 PictureBox 并具有源 Stream 的属性，允许您将其与 Image 一起保留。

Imports System.IO

Public Class PictureBoxEx
    Inherits PictureBox

    Private _imageStream As Stream

    Public WriteOnly Property ImageStream As Stream
        Set
            _imageStream = Value
            Image = Image.FromStream(Value)
        End Set
    End Property

    Public Sub DisposeImageAndStream()
        Image?.Dispose()
        _imageStream?.Dispose()
    End Sub

End Class