保存图像：GDI 中发生一般错误。 (vb.net)

Question

我需要在从 OFD 打开图像后保存图像。 这是我的代码 atm：

Dim ofd As New OpenFileDialog
ofd.Multiselect = True
ofd.ShowDialog()


For Each File In ofd.FileNames
   Image.FromFile(File).Save("C:\Users\Jonathan\Desktop\e\tmp.png", Imaging.ImageFormat.png)
Next

并在行 Image.FromFile(File).Save("C:\Users\Jonathan\Desktop\e\tmp.png", Imaging.ImageFormat.png) 上出现错误。

（注意：应用程序将基于此构建，因此这只是我的第一个代码，需要保存而不是复制）

Answer 1

我会检查两件事：

1. 您要保存到的目录
   存在
2. 您有写入权限
   这个目录

Answer 2

打开或保存图像会锁定文件。覆盖此文件需要您首先对持有锁的 Image 对象调用 Dispose()。

我不太理解你的代码，但你必须这样做：

    For Each File In ofd.FileNames
        Using img As Image = Image.FromFile(File)
            img.Save("C:\Users\Jonathan\Desktop\e\tmp.png", Imaging.ImageFormat.Png)
        End Using
    Next

Using 语句确保 img 对象被释放并释放文件锁。

Answer 3

图像加了一把锁。

例如，我使用此缓冲区图像保存到内存流中。

byte[] ImageData = new Byte[0];
if (BackGroundImage != null)
    {
        Bitmap BufferImage = new Bitmap(BackGroundImage);
        MemoryStream ImageStream = new MemoryStream();
        BufferImage.Save(ImageStream, ImageFormat.Jpeg);
        BufferImage.Dispose();
        ImageData = ImageStream.ToArray();
        ImageStream.Dispose();


        //write the length of the image data...if zero, the deserialier won't load any image
        DataStream.Write(ImageData.Length);
        DataStream.Write(ImageData, 0, ImageData.Length);
    }
    else
    {
        DataStream.Write(ImageData.Length);
    }

Answer 4

原因之一是您加载主图像的流（MemoryStream 或任何其他流）已被释放！

这样的情况：

这是一个将字节数组转换为位图的扩展方法，但是using语句会处理内存流，这总是会导致这个错误：

    public static Bitmap ToBitmap(this byte[] bytes)
    {
        if (bytes == null)
        {
            return null;
        }
        else
        {
            using(MemoryStream ms = new MemoryStream(bytes))
            {
                return new Bitmap(ms);
            }
        }
    }

Answer 5

出现此问题似乎是因为 Image.Drawing.FromFile() 方法锁定了打开的文件！

我遇到了同样的问题，并使用以下解决方法解决了此问题。

Public sFileName as string
Public img as Drawing.Image

Public Sub OpenFile(ByVal sFile As String)
    img = System.Drawing.Image.FromFile(sFile)
    sFileName = sFile
End Sub

Public Sub Update()
    Try
        img.Save("NEW.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
        img.Dispose
        System.IO.File.Delete(sFileName)
        System.IO.File.Move("NEW.jpeg", sFileName)
    Catch ex As Exception
    EndTry
End Sub

解决方法包括将

1. 修改后的图像保存在另一个名为 NEW.jpeg 的文件中，
2. 处置 img 对象以释放它
3. ，将创建的文件重命名为原始文件名

。 code> 和 Update() 方法，我调用一个特定的方法来更改照片的拍摄日期。

Public Sub SetDateTime(ByVal sDate As String)

    Dim ascii As New System.Text.ASCIIEncoding
    Dim propItem As System.Drawing.Imaging.PropertyItem

    propItem = img.GetPropertyItem(&H132) 'PropertyTagDateTime

    propItem.Value = ascii.GetBytes(sDate)
    propItem.Value(19) = 0

    img.SetPropertyItem(propItem)
    propItem.Id = &H9003
    img.SetPropertyItem(propItem)
    propItem.Id = &H9004
    img.SetPropertyItem(propItem)
    propItem = Nothing

End Sub

这是当相机日期未正确初始化时重命名照片的拍摄日期的程序的一部分。