Speicher von PDF-Datei scheitern, weil es von einem anderen Prozess verwendet

Question

I mit einer Funktion als pdf mit dem geöffneten Datei Dialog und iTextSharp zu retten versuchen:

Private Sub saveFileDialog(saveType As String) 
    ' Displays a SaveFileDialog 
    Dim saveFileDialog1 As New SaveFileDialog() 
    Select Case saveType 
     Case "PDF" 
      saveFileDialog1.Filter = "PDF File|*.pdf" 
      saveFileDialog1.Title = "Save a PDF File" 
     Case "Image" 
      saveFileDialog1.Filter = "PNG Image|*.png" 
      saveFileDialog1.Title = "Save an Image File" 
    End Select 
    saveFileDialog1.ShowDialog() 
    ' If the file name is not an empty string open it for saving. 
    If saveFileDialog1.FileName <> "" Then 
     ' Saves the Image via a FileStream created by the OpenFile method. 
     Dim fs As System.IO.FileStream = CType(saveFileDialog1.OpenFile(), System.IO.FileStream) 
     Select Case saveType 
      Case "PDF" 
       Dim doc As iTextSharp.text.Document = New iTextSharp.text.Document(iTextSharp.text.PageSize.LETTER, Bounds.Left, Bounds.Right, Bounds.Top, Bounds.Bottom) 
       Dim wri As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, New FileStream(saveFileDialog1.FileName, FileMode.Create)) 
       doc.Open() 
       Dim Image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(bmp, System.Drawing.Imaging.ImageFormat.Png) 
       doc.Add(Image) 
       doc.Close() 
      Case "Image" 
       bmp.Save(fs, System.Drawing.Imaging.ImageFormat.Png) 
     End Select 
     fs.Close() 
    End If 
End Sub 

Alles scheint richtig zu funktionieren, bis ich in speichern klicken der Dateidialog speichern, wo ich den Fehler:

"The process cannot access the file 'C:\Users\Daisy\Desktop\f.pdf' because it is being used by another process." 

die Datei dann auf den Speicherort nicht speichern, aber nicht geöffnet werden kann, und ist 0 Bytes.

Was mache ich falsch und wie repariere ich es?

Answer 1

Sie öffnen zwei Dateiströme zu derselben Datei. Einmal beim Öffnen der Datei mit dem Dialog und erneut beim Erstellen einer Instanz des PDF-Writers.

Private Sub saveFileDialog(saveType As String) 
    ' Displays a SaveFileDialog 
    Dim saveFileDialog1 As New SaveFileDialog() 
    Select Case saveType 
     Case "PDF" 
      saveFileDialog1.Filter = "PDF File|*.pdf" 
      saveFileDialog1.Title = "Save a PDF File" 
     Case "Image" 
      saveFileDialog1.Filter = "PNG Image|*.png" 
      saveFileDialog1.Title = "Save an Image File" 
    End Select 
    saveFileDialog1.ShowDialog() 
    ' If the file name is not an empty string open it for saving. 
    If saveFileDialog1.FileName <> "" Then 
     ' Saves the Image via a FileStream created by the OpenFile method. 
     Dim fileStream As System.IO.Stream = saveFileDialog1.OpenFile() 
     Select Case saveType 
      Case "PDF" 
       Dim doc As iTextSharp.text.Document = New iTextSharp.text.Document(iTextSharp.text.PageSize.LETTER, Bounds.Left, Bounds.Right, Bounds.Top, Bounds.Bottom) 
       Dim wri As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fileStream) 
       doc.Open() 
       Dim Image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(bmp, System.Drawing.Imaging.ImageFormat.Png) 
       doc.Add(Image) 
       doc.Close() 
      Case "Image" 
       bmp.Save(fileStream, System.Drawing.Imaging.ImageFormat.Png) 
     End Select 
     fileStream.Close() 
    End If 
End Sub