A generic error occurred in GDI+.

[!NoItAll]

Got a tough problem I need to solve...
I am getting the following error whenever I create a copy of a TIF image and try to save it.

A generic error occurred in GDI+.

Here is my code

       If My.Computer.FileSystem.FileExists(Filename) Then
 
            Dim MyImage As Image = Image.FromFile(Filename)
            Dim Prop As System.Drawing.Imaging.PropertyItem
            Dim enc As New System.Text.ASCIIEncoding()
            Dim I As Integer = 0
 
            For Each Prop In MyImage.PropertyItems
                If Prop.Id = 34849 Or I = (MyImage.PropertyItems.Count - 1) Then
                    Exit For
                    'Dim a As String = enc.GetString(Prop.Value)
                End If
                I += 1
 
            Next
 
            Prop = MyImage.PropertyItems(I)
            Dim sMetaData As New String("<wxcXMLMarker>")
            Prop.Type = Prop.Type
            Prop.Len = CInt(sMetaData.Length + 1)
            Prop.Id = CInt(34849)
            Prop.Value = StringToByte(sMetaData)
            MyImage.SetPropertyItem(Prop)
 
            If My.Computer.FileSystem.FileExists("e:\test.tif") Then
                My.Computer.FileSystem.DeleteFile("e:\test.tif")
            End If
            'Dim MyImageCopy As Image = MyImage.Clone
            'MyImage.Dispose()
            MyImage.Save("e:\test.tif", System.Drawing.Imaging.ImageFormat.Tiff)
            MyImage.Dispose()
        Else
            Throw New ApplicationException("File Does Not Exist")
        End If
 

As you can see I did try to clone the image in case there were some locks on the original one. When I tried cloning I did change the MyImage.Save method to MyImageCopy.Save - but still the same error:

A generic error occurred in GDI+.

Grrrr...

Here is the last few items on the stack trace...

   at System.Drawing.Image.Save(String filename, ImageCodecInfo encoder, EncoderParameters encoderParams)
   at System.Drawing.Image.Save(String filename, ImageFormat format)
   at WXC.SceneOpener.GetTIF(String Filename) in C:\Documents and Settings\ddesjardins\My Documents\Visual Studio 2010\Projects\SceneOpener\SceneOpener\SceneOpener.vb:line 261
 

Notice that there was a second call to the save method looking for encoder parameters. This must be happening internally - and perhaps there are some perameters that are null -...


Basically I need to read the image in - replace some meta data (metadata with ID 34849) which will always be in the images my code is dealing with.
Any help would be greatly appreciated!

[!NoItAll]

OK - I think I see the problem - but I'm still not sure how to fix it.
It turns out to be that the TIFF files being generated by our application (they are just large thumbnails) are putting some garbage into the horizontalresolution and verticalresolution properties. Unfortunately these are readonly properties and I can not see how to reset them to something legal (like 72 and 72).
Any ideas...

[!NoItAll]

Yup - I wound up having to recreate the image with proper settings for horizontalresolution and verticalresolution.

 
Private Function fixit(byVal original as Bitmap) as Bitmap
Dim newImage As New Bitmap(original, original.Width, original.Height)
        newImage.SetResolution(72, 72)   '<-- this is where I set the proper V&H Resolution
        Dim g As Graphics = Graphics.FromImage(newImage)
        Dim rect As System.Drawing.Rectangle
        rect.Height = original.Height
        rect.Width = original.Width
        g.DrawImageUnscaledAndClipped(original, rect)
 
        g.Dispose()
        Return newImage
End function
 

all better now...

[darvinpappachan]

I am also faced this error. This happens when we load an image with .fromfile function. It keeps a lock on that. I solved this issue by using streams. My application needed an image to be loaded in a pic box and user will draw something on that and save back to file.

Loading to pic box

Dim img As Byte(), ms As MemoryStream
img = System.IO.File.ReadAllBytes(FilenameWithFullPath)
                        ms = New System.IO.MemoryStream(img)
                        picCS.Image = Image.FromStream(ms)

Saving back to file

Dim ImageStream As MemoryStream, ImageData As Byte()ImageStream = New MemoryStream()
                            picCS.Image.Save(ImageStream, ImageFormat.Jpeg)
                            picCS.Image.Dispose()
                            ImageData = ImageStream.ToArray
                            ImageStream.Dispose()
 
System.IO.File.WriteAllBytes(filepath, ImageData)