Datei wird nicht freigegeben

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datei wird nicht freigegeben

    Hallo,
    ich habe ein Problem, ich finde die Stelle nicht, wo er meint das Bild oder Pfas sei schon in Benutzung.. ich habe an allen Möglichen Stellen wo das Bild in eine Picturebox geladen wird.. diese in ein Stream geladen..
    und diesen auch wieder geschlossen.. ich weiß nicht wo ich noch schauen soll :(

    VB.NET-Quellcode

    1. Dim OriginalPfad As String = PfadBildDaten
    2. Dim NeuerDateiname As String = KundennummerAendernBox.Text
    3. Dim tmpFileInfo As New System.IO.FileInfo(OriginalPfad)
    4. Dim NeuerPfad As String = IO.Path.Combine(My.Application.Info.DirectoryPath & "\bilder", (NeuerDateiname & tmpFileInfo.Extension))
    5. NeuesBild = OriginalPfad 'Pfadangabe für BildErsetzen Form Bild rechts
    6. Dim dbBild As String = (NeuerDateiname & tmpFileInfo.Extension)
    7. If IO.File.Exists(NeuerPfad) Then
    8. 'Wenn Bild vorhanden ist, soll neues Form aufgehen
    9. BildErsetzen.ShowDialog()
    10. If BildErsetzen.DialogResult = DialogResult.OK Then
    11. Try
    12. IO.File.Replace(NeuerPfad, My.Application.Info.DirectoryPath & BildAusDB, My.Application.Info.DirectoryPath & "\backup\" & BildAusDB)
    13. Catch ex As Exception
    14. MessageBox.Show(ex.Message, "Fehler: Bild konnte nicht ausgetauscht werden", MessageBoxButtons.OK, MessageBoxIcon.Error)
    15. End Try


    An dieser Stelle macht er immer einen Fehler: Der Prozess kann nicht aud die Datei zugreifen, da sie bereits von einem anderen Prozess verwendet wird..

    VB.NET-Quellcode

    1. IO.File.Replace(NeuerPfad, My.Application.Info.DirectoryPath & BildAusDB, My.Application.Info.DirectoryPath & "\backup\" & BildAusDB)



    evtl. hat da jemand eine Lösung oder einen Ansatz wo ich suchen kann
    Danke

    xtts02 schrieb:

    tuvok schrieb:

    wo das Bild in eine Picturebox geladen wird.. diese in ein Stream geladen..
    und diesen auch wieder geschlossen..

    In dem Code-Ausschnitt sehen wir nichts davon.



    Ups .. da hab ich wohl was vergessen :)

    VB.NET-Quellcode

    1. 'Bild im OpenFile Dialog laden und in Picturebox anzeigen
    2. Sub OFD_BildAnzeigen_anlegen()
    3. Try
    4. PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    5. Dim OFD As New OpenFileDialog 'OpenFileDialog deklarieren
    6. With OFD
    7. .CheckFileExists = True
    8. .Filter = "Bild Dateien (*.png;*.jpg)|*.png;*.jpg"
    9. .FilterIndex = 2
    10. If OFD.ShowDialog = DialogResult.OK Then 'Wenn OK gedrückt wurde...
    11. PfadBildDaten = OFD.FileName
    12. 'PictureBox1.Image = Image.FromFile(PfadBildDaten)
    13. Dim BildStream As New System.IO.FileStream(PfadBildDaten, IO.FileMode.Open)
    14. PictureBox1.Image = New Bitmap(BildStream)
    15. BildStream.Close()
    16. End If
    17. End With
    18. Catch ex As Exception
    19. MessageBox.Show(ex.Message, "Fehler: bei der Picturebox stimmt was nicht!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    20. End Try


    so .. das is das OFD mit dem Stream das DialogResult.OK ist von nem Form in dem das alte und Neue Bild angezeigt wird

    hm ne.. geht nicht .. verflixt :(

    Edit: gibt es eine Möglichkeit, dass man sich anzeigen lassen kann welcher Prozess Momentan genau auf die Datei zugreift? bzw.
    welcher CodeBlock .. das würde die Suche schon eingrenzen

    jemand noch ne idee?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „tuvok“ ()

    VB.NET-Quellcode

    1. 'PictureBox1.Image = Image.FromFile(PfadBildDaten)
    2. Dim BildStream As New System.IO.FileStream(PfadBildDaten, IO.FileMode.Open)
    3. PictureBox1.Image = New Bitmap(BildStream)
    4. BildStream.Close()


    Versuche hier mal: Picturebox1.Imagelocation = ...Dateiname...
    Mit einen Stream kettest du dich ja wieder an die Datei...

    Mach nach dem laden eine Kopie von dem Bild.
    Setze die Kopie in die PictureBox und Dispose den Dialog.

    So meinte ich das
    Lade das Bild in eine Variable. Dispose den Ladevorgang.
    Und lege die Kopie in die Pircture Box.

    sorry für meine Formulierung.



    Bernd

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bernd“ ()

    Hallo,
    kann mir evtl. jemand mal nen Dokument über Disposen geben was es einem Verständlich rüber bringt?

    habe es jetzt auch noch mal mit

    VB.NET-Quellcode

    1. PictureBox2.ImageLocation =
    versucht und komplett ohne Stream weil man mir sagte, dass "ImageLocation" das Bild nicht wirklich anfässt aber irgendwie mags mich net..

    OK anscheinend bin ich zu schwer von Begriff..
    so habe ich es im Moment

    VB.NET-Quellcode

    1. Sub daten_anfordern_aendern()
    2. cmd.CommandText = "SELECT * from Kunden Where kdn = '" & KundennummerAendernBox.Text & "'"
    3. Try
    4. con.Open()
    5. reader = cmd.ExecuteReader()
    6. Do While reader.Read()
    7. VornameAendernBox.Text = reader("Vorname").ToString
    8. NachnameAendernBox.Text = reader("Nachname").ToString
    9. AnschriftAendernBox.Text = reader("Anschrift").ToString
    10. TelefonAendernBox.Text = reader("Telefon").ToString
    11. MobilAendernBox.Text = reader("Mobil").ToString
    12. PlzAendernBox.Text = reader("Plz").ToString
    13. OrtAendernBox.Text = reader("Ort").ToString
    14. BemerkungenAendernBox.Text = reader("Bemerkungen").ToString
    15. SonstigesAendernBox.Text = reader("Sonstiges").ToString
    16. BildAusDB = reader("Bildpfad").ToString
    17. Loop
    18. reader.Close()
    19. con.Close()
    20. Catch ex As Exception
    21. MessageBox.Show(ex.Message, String.Empty, MessageBoxButtons.OK, MessageBoxIcon.Information)
    22. Finally
    23. con.Close()
    24. End Try
    25. Using bitmap As Image = Image.FromFile(My.Application.Info.DirectoryPath & BildAusDB)
    26. PictureBox2.Image = New Bitmap(bitmap)
    27. End Using
    29. 'PictureBox2.ImageLocation = My.Application.Info.DirectoryPath & BildAusDB
    30. 'PictureBox2.Image = Image.FromFile(My.Application.Info.DirectoryPath & BildAusDB)
    31. End Sub
    34. Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
    35. OFD_BildAnzeigen_aendern()
    36. End Sub
    38. Sub OFD_BildAnzeigen_aendern()
    39. Try
    40. PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
    41. Dim OFD As New OpenFileDialog 'OpenFileDialog deklarieren
    42. With OFD
    43. .CheckFileExists = True
    44. .Filter = "Bild Dateien (*.png;*.jpg)|*.png;*.jpg"
    45. .FilterIndex = 2
    46. If OFD.ShowDialog = DialogResult.OK Then 'Wenn OK gedrückt wurde...
    47. PFadBildDatenAE = OFD.FileName
    48. Using bitmap As Image = Image.FromFile(PfadBildDatenAE)
    49. PictureBox2.Image = New Bitmap(bitmap)
    50. End Using
    51. 'PictureBox2.ImageLocation = PFadBildDatenAE
    52. End If
    53. End With
    54. Catch ex As Exception
    55. MessageBox.Show(ex.Message, "Fehler: bei der Picturebox stimmt was nicht!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    56. End Try
    57. End Sub
    59. Private Sub KundeAendernButton_Click(sender As System.Object, e As System.EventArgs) Handles KundeAendernButton.Click
    60. daten_aendern()
    61. End Sub
    63. Private Sub daten_aendern()
    64. Dim OriginalPfad As String = PFadBildDatenAE
    65. Dim NeuerDateiname As String = KundennummerAendernBox.Text
    66. If OriginalPfad = Nothing Then
    67. OriginalPfad = 0 'Wird mit etwas gefüllt wenn es leer ist
    68. End If
    69. Dim tmpFileInfo As New System.IO.FileInfo(OriginalPfad)
    70. Dim NeuerPfad As String = IO.Path.Combine(My.Application.Info.DirectoryPath & "\bilder", (NeuerDateiname & tmpFileInfo.Extension))
    71. NeuesBild = OriginalPfad 'Pfadangabe für -Form BildErsetzen- Bild rechts
    72. Dim dbBild As String = (NeuerDateiname & tmpFileInfo.Extension) 'gibt den Pfad in Form von \bilder\kundennummer.jpg in die Datenbank
    74. 'Pflichtfeld ausfüllen
    75. If Trim(VornameAendernBox.Text) = "" Or Trim(NachnameAendernBox.Text) = "" Or Trim(PlzAendernBox.Text) = "" Or Trim(OrtAendernBox.Text) = "" Or Trim(AnschriftAendernBox.Text) = "" Then
    76. MessageBox.Show("Bitte den vorher alle Felder ausfüllen", String.Empty, MessageBoxButtons.OK, MessageBoxIcon.Information)
    77. Else
    78. If PFadBildDatenAE = Nothing Then 'Wenn PfadBildDaten leer ist, dann soll keine Änderung an der Datei vorgenommen werden 'direkt die Datenbank befüllen
    79. GoTo DBEintragOB
    80. Else
    81. If IO.File.Exists(NeuerPfad) Then
    82. 'Wenn Bild vorhanden ist, soll neues Form aufgehen
    83. BildErsetzen.ShowDialog()
    84. If BildErsetzen.DialogResult = DialogResult.OK Then
    85. Dim sourceFileName As String = NeuerPfad
    86. Dim destinationFileName As String = My.Application.Info.DirectoryPath & BildAusDB ' BildAusDB = \bilder\kundennummer.jpg/png
    87. Dim destinationBackupFileName As String = My.Application.Info.DirectoryPath & "\backup\" & BildAusDB
    88. IO.File.Replace(sourceFileName, destinationFileName, destinationBackupFileName)
    89. End If
    90. End If
    91. DBEintragOB:
    92. cmd.CommandText = "UPDATE Kunden set Vorname = '" &
    93. VornameAendernBox.Text & "', Nachname = '" &
    94. NachnameAendernBox.Text & "', Anschrift = '" &
    95. AnschriftAendernBox.Text & "', Telefon = '" &
    96. TelefonAendernBox.Text & "', Mobil = " &
    97. MobilAendernBox.Text & "," & "Plz = '" &
    98. PlzAendernBox.Text & "', Ort = '" &
    99. OrtAendernBox.Text & "', Bemerkungen = '" &
    100. BemerkungenAendernBox.Text & "', Sonstiges = '" &
    101. SonstigesAendernBox.Text & "' where Kdn = '" &
    102. KundennummerAendernBox.Text & "'"
    103. Try
    104. con.Open()
    105. cmd.ExecuteNonQuery()
    106. con.Close()
    107. MessageBox.Show("Kundendaten ohne Bild geändert!", String.Empty, MessageBoxButtons.OK, MessageBoxIcon.Information)
    108. Catch ex As Exception
    109. MessageBox.Show(ex.Message, "Fehler: Kundendaten konnten nicht geändert werden!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    110. End Try
    111. End If
    112. End If
    113. daten_anfordern()
    114. End Sub
    115. #End Region


    BildErsetzenForm

    VB.NET-Quellcode

    1. Public Class BildErsetzen
    3. Private Sub Abbrechen_Click(sender As System.Object, e As System.EventArgs) Handles Abbrechen.Click
    4. DialogResult = Windows.Forms.DialogResult.Cancel
    5. Me.Close()
    6. End Sub
    8. Private Sub OK_Click(sender As System.Object, e As System.EventArgs) Handles OK.Click
    9. DialogResult = Windows.Forms.DialogResult.OK
    10. Me.Close()
    11. End Sub
    12. Private Sub BildErsetzen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    14. 'Bild wird in ein Stream geladen, damit es frei ist für z.B. löschen
    16. 'PictureBoxALT.ImageLocation = My.Application.Info.DirectoryPath & Hauptform.BildAusDB
    17. Using bitmap As Image = Image.FromFile(My.Application.Info.DirectoryPath & Hauptform.BildAusDB)
    18. PictureBoxALT.Image = New Bitmap(bitmap)
    19. End Using
    20. 'PictureBoxNEU.ImageLocation = Hauptform.NeuesBild
    21. Using bitmap As Image = Image.FromFile(Hauptform.NeuesBild)
    22. PictureBoxNEU.Image = New Bitmap(bitmap)
    23. End Using
    24. 'PictureBoxALT.Image = Image.FromFile(My.Application.Info.DirectoryPath & Hauptform.BildAusDB)
    25. 'PictureBoxNEU.Image = Image.FromFile(Hauptform.NeuesBild)
    26. End Sub
    28. End Class

    Bau dir mal sowas dazwischen und lass die Dateien auf der HDD generell in ruhe.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Bildvorschau anzeigen
    3. ''' </summary>
    4. ''' <param name="Pfad">Pfad der Datei</param>
    5. ''' <returns>Returns ein Image</returns>
    6. ''' <remarks></remarks>
    7. Public Function Bildvorschau_Anzeigen(ByVal Pfad As String) As Image
    8. Dim KeinBild As Image = Nothing
    9. ' Kopie von Bild
    10. Try
    11. Dim ImgSource As Image = Image.FromFile(Pfad)
    12. Dim ImgDest As New Bitmap(ImgSource)
    13. 'PB_Bilder.BackgroundImage = ImgDest
    14. Return ImgDest
    15. ImgSource.Dispose()
    16. Exit Function
    17. Catch ex As Exception
    18. 'MessageBox.Show(ex.Message)
    19. End Try
    20. Return KeinBild
    22. End Function

    oder halt so

    VB.NET-Quellcode

    1. Dim Bild As String = BildHolen("Dein Bild")
    2. Dim lImgSource As Image = Image.FromFile(Bild)
    3. Dim lImgDest As New Bitmap(lImgSource)
    4. lImgSource.Dispose()

Facebook
Telefonspende