Objekt wieder freigeben für DeleteFile

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Objekt wieder freigeben für DeleteFile

    Hallo Zusammen,ich kämpfe seit Tagen mit meiner Picturebox.
    Ich kopiere Bilder in ein Arbeitspfad und lösche diese wieder wenn ich diese Bilder angezeigt habe.
    Dann fängt alles wieder von vorne an.
    Problem ist nur, dass ich DeleteFile nicht erneut aufrufen kann, da irgendwas mich blockt.
    Habe versucht alle Verweise auf die Picturebox zu lösen, aber irgendwie komm ich so nicht weiter...
    Vielleicht kann mir da jemand helfen.
    Danke

    VB.NET-Quellcode

    1. ​
    2. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    3. Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
    4. Dim images_Screen As New List(Of Image)
    5. Dim index_Screen As Integer
    6. Do 'Until worker.CancellationPending = True
    7. If worker.CancellationPending = True Then
    8. e.Cancel = True
    9. Exit Do
    10. End If
    11. ' Lösche Bilder
    12. Try
    13. For Each foundFile As String In My.Computer.FileSystem.GetFiles(tempPfad_Screen, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
    14. My.Computer.FileSystem.DeleteFile(foundFile)
    15. Next
    16. Catch ex As Exception
    17. End Try
    19. ' Kopiere den Bildschirmschoner vom Copy in Temp
    20. Try
    21. For Each foundFile As String In My.Computer.FileSystem.GetFiles(Pfad_Copy_Screen, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
    22. My.Computer.FileSystem.CopyFile(foundFile, tempPfad_Screen & "\" & My.Computer.FileSystem.GetName(foundFile), True)
    23. Next
    24. Catch ex As Exception
    25. End Try
    26. ' Fülle Liste mit Bildern
    27. Try
    28. For Each Datei As String In My.Computer.FileSystem.GetFiles(tempPfad_Screen, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
    29. images_Screen.Add(Image.FromFile(Datei))
    30. Next
    31. Catch ex As Exception
    32. End Try
    33. ' Zeige Lister der Bilder nach Zeit nacheinander an
    34. Do Until index_Screen = images_Screen.Count
    35. If images_Screen.Count > 0 Then
    36. If index_Screen >= images_Screen.Count Then
    37. index_Screen = 0
    38. End If
    39. worker.ReportProgress(100, "Nächstes Bild")
    40. System.Threading.Thread.Sleep(Zeit_Bildschirmschoner)
    41. pb_Screener.Image = Nothing
    42. pb_Screener.Image = images_Screen(index_Screen)
    43. index_Screen += 1
    44. End If
    45. Loop
    46. 'Aufräumen und Objecte frei geben
    47. pb_Screener.Image = Nothing
    48. images_Screen.Clear()
    49. index_Screen = 0
    50. 'Beweg mal den Cursor, um Win-Bildschirmschoner nicht anzusprechen
    51. Cursor.Position = New Point(nScreenWidth, nScreenHeight)
    52. Loop
    53. End Sub



    Fehler bei execption bei DeleteFile bei erneuten Durchlauf
    ​ {System.IO.IOException: Der Prozess kann nicht auf die Datei "C:\temp\Bildschirmschoner\0000-PSA Erweiterung - Kopie (2).jpg" zugreifen, da sie von einem anderen Prozess verwendet wird. bei System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) bei System.IO.File.InternalDelete(String path, Boolean checkHost) bei System.IO.File.Delete(String path) bei Microsoft.VisualBasic.FileIO.FileSystem.DeleteFileInternal(String file, UIOptionInternal showUI, RecycleOption recycle, UICancelOption onUserCancel) bei Microsoft.VisualBasic.MyServices.FileSystemProxy.DeleteFile(String file) bei WhiteBoard_Schlosserei.Whiteboard.BackgroundWorker1_DoWork(Object sender, DoWorkEventArgs e) In H:\NET Programmierung\WhiteBoard-Schlosserei\WhiteBoard-Schlosserei\Haupt.vb:Zeile 586.}

    Das mit Image.FromStream funktioniert prima für Bilder.

    Wie gehe ich vor bei PDF Dateien?


    VB.NET-Quellcode

    1. Private PDFs_Frame2 As New List(Of String)
    3. Try
    4. For Each foundFile As String In My.Computer.FileSystem.GetFiles(tempPfad_Screen, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.PDF")
    5. Dim fs As New FileStream(foundFile, FileMode.Open, FileAccess.Read)
    6. PDF_Frame2.Add(???.FromStream(fs))
    7. fs.Close()
    8. fs.Dispose()
    9. Next
    10. Catch ex As Exception
    11. MsgBox("Fehler" & ex.ToString)
    12. End Try


    was gibt es da für eine Vorgehensweise?

    Danke nochmals

    ich bastel gerade ein Digitales Whiteboard.
    Es werden verschiedene Frames angezeigt mit div. Informationen
    Ein Frame war nur mit Bildern (siehe erster Beitrag) die anderen Frames zeigen mir div. PDFs an aus verschiedenen Verzeichnissen.

    Ich habe eine PDF-Viewer DLL von e-iceblue.com
    Diese kann direkte Pfadangaben per PdfDocumentViewer1.LoadFromFile oder per Stream PdfDocumentViewer1.LoadFromStream anzeigen.

    Dort holt mich die Problematik dann auch ein mit den Objekt wieder freigeben.

    Hatte so mal probiert, aber leider wäre dann PdfDocumentViewer1 ein threadübergreifender Aufruf und so geht's in die Exception:

    VB.NET-Quellcode

    1. ​
    2. Try
    3. For Each Dateien As String In My.Computer.FileSystem.GetFiles(tempPfad_PDF1, FileIO.SearchOption.SearchTopLevelOnly, "*.PDF")
    4. Dim fileBytes() As Byte = File.ReadAllBytes(Dateien)
    6. Using ms As New MemoryStream(fileBytes)
    7. PdfDocumentViewer1.LoadFromStream(ms)
    8. End Using

    ok dann versuch ich mal einen bei Laufzeit zu erstellen und schließen. mal gucken wie ;)

    EDIT:
    Also in Form_Load habe ich per das Objekt gesetzt

    VB.NET-Quellcode

    1. Dim PdfDocumentViewer11 As New Spire.PdfViewer.Forms.PdfDocumentViewer()
    3. Private Sub Haupt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Me.Controls.Add(PdfDocumentViewer11)
    5. End Sub
    7. Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork
    8. Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
    9. With PdfDocumentViewer11
    10. .Location = New Point(0, 0)
    11. End With
    13. Try
    14. For Each Dateien As String In My.Computer.FileSystem.GetFiles(tempPfad_PDF1, FileIO.SearchOption.SearchTopLevelOnly, "*.PDF")
    15. Dim fileBytes() As Byte = File.ReadAllBytes(Dateien)
    17. 'Dim ms As New MemoryStream(File.ReadAllBytes(Dateien))
    18. Using ms As New MemoryStream(fileBytes)
    19. PdfDocumentViewer11.LoadFromStream(ms)
    20. End Using
    23. End Sub


    dann steigt er mir wieder mit Threadübergreifenden Fehler aus

    VB.NET-Quellcode

    1. {System.InvalidOperationException: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
    2. bei System.Windows.Forms.Control.get_Handle()
    3. bei System.Windows.Forms.Control.set_Cursor(Cursor value)
    4. bei Spire.PdfViewer.Forms.PdfDocumentViewer.᜜()
    5. bei Spire.PdfViewer.Forms.PdfDocumentViewer.LoadFromStream(Stream stream)
    6. bei WhiteBoard_Schlosserei.Whiteboard.BackgroundWorker2_DoWork(Object sender, DoWorkEventArgs e) in H:\NET Programmierung\WhiteBoard-Schlosserei\WhiteBoard-Schlosserei\Haupt.vb:Zeile 733.}


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

    @Polecat Auf GUI-Elemente kannst Du nur aus dem GUI-Thread heraus zugreifen.
    Wenn Du im BGW GUI-Elemente befüllst, knallt das selbstverständlich.
    Das musst Du dann anders organisieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Beschreib mal, was da passieren soll.
    Zunächst musst Du das ganze im GUI-Thread zum Laufen bringen.
    Das Befüllen von Controls kann man beschleunigen, indem man dem Control verbietet, sich während der Befüllung upzudaten:

    VB.NET-Quellcode

    1. ctrl.SuspendLayout()
    2. ' befüllen
    3. ctrl.ResumeLayout(False)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende