How to close saved image?

Question

hi 
I can't close the saving image after i created it. It becomes read only and  i get error  unless i exit from application when i want to create it again  i think it remains open.
Would you help me how i can solve problem?
 ofd.Filter = "Image Files|*.jpg;*.png;*.gif;*.bmp;|All Files (*.*)|*.*"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = ofd.FileName
            Dim img As Image = Nothing
            Dim sfilename As New System.IO.FileInfo(ofd.FileName)
            Dim yol As New FileInfo(TextBox1.Text)
            Dim f As String = System.IO.Path.GetFileNameWithoutExtension(ofd.FileName)
            Dim path As String = yol.Directory.FullName & "\" & f & yol.Extension Dim fs As FileStream = sfilename.OpenRead()
Dim outputStream As Stream = New MemoryStream()
AddWatermark(fs, TextBox2.Text, outputStream)
fs.Close()
sfilename.Delete()
img = Image.FromStream(outputStream)
Using savingImage As New Bitmap(img.Width, img.Height, img.PixelFormat)
Using g As Graphics = Graphics.FromImage(savingImage)
g.DrawImage(img, New Point(0, 0))
End Using
savingImage.Save(path, ImageFormat.Jpeg)
PictureBox1.BackgroundImage = Image.FromFile(path)
End Using
outputStream.Close()
img.Dispose()Public Sub AddWatermark(ByVal fs As FileStream, ByVal watermarkText As String, ByVal outputStream As Stream)
        Dim img As Image = Image.FromStream(fs)
        Dim font As New Font("Verdana", 32, FontStyle.Bold, GraphicsUnit.Pixel)
        font = FontDialog1.Font
        'Adds a transparent watermark with an 100 alpha value.
        Dim color As Color = Color.FromArgb(100, 0, 0, 0)
        'The position where to draw the watermark on the image
        Dim pt As New Point(10, 30)
        Dim sbrush As New SolidBrush(color)
        Dim gr As Graphics = Nothing
        Try
            gr = Graphics.FromImage(img)
        Catch
            ' http://support.microsoft.com/Default.aspx?id=814675
            Dim img1 As Image = img
            img = New Bitmap(img.Width, img.Height)
            gr = Graphics.FromImage(img)
            gr.DrawImage(img1, New Rectangle(0, 0, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel)
            img1.Dispose()
        End Try
        gr.DrawString(watermarkText, font, sbrush, pt)
        gr.Dispose()
        img.Save(outputStream, ImageFormat.Jpeg)
    End Sub
                                                  

Answer 1

Hi,
 Here is a small example that does the same thing as your code i believe and will overwrite the opened image with the watermarked image.  Perhaps you can arrange your code to follow these steps.
Imports System.Drawing.Imaging
Imports System.IO
Public Class Form1
Private Img As Bitmap
Private wmFont As New Font("Verdana", 32, FontStyle.Bold, GraphicsUnit.Pixel)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
ofd.Filter = "Image Files|*.jpg;*.png;*.gif;*.bmp;|All Files (*.*)|*.*"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim frmt As ImageFormat
If Img IsNot Nothing Then Img.Dispose()
Using i As New Bitmap(ofd.FileName)
frmt = i.RawFormat
Using g As Graphics = Graphics.FromImage(i)
Using sb As New SolidBrush(Color.FromArgb(100, 0, 0, 0))
g.DrawString(TextBox2.Text, wmFont, sb, New Point(10, 30))
End Using
End Using
Img = New Bitmap(i)
End Using
Img.Save(ofd.FileName, frmt)
If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
PictureBox1.Image = Img
End If
End Using
End Sub
End Class
If you say it can`t be done then i`ll try it