PictureBox verbraucht viel Arbeitsspeicher

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von 112marv.

    PictureBox verbraucht viel Arbeitsspeicher

    Hallo,
    ich habe mir ein Programm geschrieben, welches ein Bild in einer Picturebox anzeigt, sobald es in zu einem überwachenden Ordner hinzugefügt wird.
    Das funktioniert alles wunderbar. Was mir nun leider aufgefallen ist, dass mit jedem Bild, das neu angezeigt wird, der Bedarf an Arbeitsspeicher steigt.
    Nun habe ich schon versucht nach dem Laden des Bildes mit "PictureBox.Image.Dispose" oder "Bitmap.Dispose" den Speicher wieder zu leeren, leider ohne Erfolg.

    Hat jemand eine Idee?
    Vielen Dank.

    Klar. Sry.

    Visual Basic-Quellcode

    1. 'Function AutoSizeImage skaliert das Bild
    2. Public Function AutoSizeImage(ByVal oBitmap As Image, _
    3. ByVal maxWidth As Integer, _
    4. ByVal maxHeight As Integer, _
    5. Optional ByVal bStretch As Boolean = False) As Image
    7. ' Größenverhältnis der max. Dimension
    8. Dim maxRatio As Single = CSng(maxWidth / maxHeight)
    10. ' Bildgröße und aktuelles Größenverhältnis
    11. Dim imgWidth As Integer = oBitmap.Width
    12. Dim imgHeight As Integer = oBitmap.Height
    13. Dim imgRatio As Single = CSng(imgWidth / imgHeight)
    15. ' Bild anpassen?
    16. If (imgWidth > maxWidth Or imgHeight > maxHeight) Or (bStretch) Then
    17. If imgRatio <= maxRatio Then
    18. ' Größenverhältnis des Bildes ist kleiner als die
    19. ' maximale Größe, in der das Bild angezeigt werden kann.
    20. ' In diesem Fall muss die Bildbreite angepasst werden.
    21. imgWidth = CInt(imgWidth / (imgHeight / maxHeight))
    22. imgHeight = maxHeight
    23. Else
    24. ' Größenverhältnis des Bildes ist größer als die
    25. ' maximale Größe, in der das Bild angezeigt werden kann.
    26. ' In diesem Fall muss die Bildhöhe angepasst werden.
    27. imgHeight = CInt(imgHeight / (imgWidth / maxWidth))
    28. imgWidth = maxWidth
    29. End If
    31. ' Bitmap-Objekt in der neuen Größe erstellen
    32. Dim oImage As New Bitmap(imgWidth, imgHeight)
    34. ' Bild interpolieren, damit die Qualität erhalten bleibt
    35. Using g As Graphics = Graphics.FromImage(oImage)
    36. g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    37. g.DrawImage(oBitmap, New Rectangle(0, 0, imgWidth, imgHeight))
    38. End Using
    40. ' neues Bitmap zurückgeben
    41. Return oImage
    42. Else
    43. ' unverändertes Originalbild zurückgeben
    44. Return oBitmap
    45. End If
    46. End Function
    48. Private Sub FileSystemWatcher1_Created(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
    49. 'Kurze Wartezeit, da sonst das Bild nicht geladen wird.
    50. Thread.Sleep(200)
    52. 'Bild laden (aus Function AutoSizeImage)
    53. 'Der Pfad kommt vom FileSystemwatcher
    54. Dim oStream As New System.IO.FileStream(FileSystemWatcher1.Path + "\" + e.Name.ToString, IO.FileMode.Open)
    55. Dim oBitmap As Bitmap
    56. oBitmap = New Bitmap(oStream)
    57. oStream.Close()
    59. ' Bild soll optimal an die Größe der PictureBox angepasst und angezeigt werden
    60. With thumbnail.PictureBox1
    61. .Image = AutoSizeImage(oBitmap, .ClientRectangle.Width, .ClientRectangle.Height)
    62. End With
    63. With fullscreen.PictureBox1
    64. .Image = AutoSizeImage(oBitmap, .ClientRectangle.Width, .ClientRectangle.Height)
    65. End With
    67. 'Bild um 180° drehen
    68. If thumbnail.CheckBox1.Checked = True Then
    69. Dim bild As Image
    71. bild = thumbnail.PictureBox1.Image
    72. bild.RotateFlip(RotateFlipType.Rotate180FlipNone)
    74. thumbnail.PictureBox1.Image = bild
    76. Threading.Thread.Sleep(100)
    77. thumbnail.PictureBox1.Refresh()
    79. bild = fullscreen.PictureBox1.Image
    80. bild.RotateFlip(RotateFlipType.Rotate180FlipNone)
    82. fullscreen.PictureBox1.Image = bild
    84. Threading.Thread.Sleep(100)
    85. fullscreen.PictureBox1.Refresh()
    87. End If
    89. End Sub

    Wenn dein Bitmap skaliert wird, und ein neues zurückgegeben wird, gibst du das alte nicht frei. Wenn die AutoSizeImage-Methode nirgendwo anders genutzt wird, solltest du vor Zeile 41 ​oBitmap.Dispose() aufrufen.
    Mit freundlichen Grüßen,
    Thunderbolt

    @ Thunderbolt: Habe oBitmap.Dispose() nun in Zeile 39 eingefügt. Sobald das erste Bild geladen wird schließt sich das Programm mit folgender Fehlermeldung.

    @ ErfinderDesRades: Das funktioniert aber leider auch nicht so, wie ich es mir gedacht habe. Die Bilder werden eigentlich alle verzehrt, egal was ich einstelle.
    Bilder

    • Unbenannt-1.jpg

      18,32 kB, 452×390, 114 mal angesehen

    RodFromGermany schrieb:

    Zurückgezogen, war inzwischen alles da.

    Aber ich glaube das funktioniert. Zumindest steigt der Arbeitsspeicherbedarf jetzt nicht mehr stark an.

    ErfinderDesRades schrieb:

    hmm - bei mir nicht. SizeMode.Zoom bewirkt die zentrierte Darstellung ohne jede Verzerrung, und Sizemode.StretchImage stretcht halt so, dass die gesamte Picturebox-Oberfläche bemalt ist.

    Stimmt hast recht. Keine Ahnung warum es neulich nicht funktioniert hat. Mit Zoom gehts. Aber löst die Problematik leider nicht und das Bild drehen funktioniert so auch nicht mehr.

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