Komprimieren und ersetzten

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von marci1997.

    Komprimieren und ersetzten

    hallo, ich arbeite an einem Programm, dass alle Bilderformate einliest, in einer listbox speichert und komprimiert es dann.
    Das einlesen und komprimieren klappt alles wunder bar, aber ich will das wenn ich das bild kompriemer nicht neu speicher, sondern
    mit dem eben komrpimiert bild ersetzt. hier mein quelcode von komprimieren
    kann mir jemand helfen, bitte ?

    VB.NET-Quellcode

    1. PictureBox1.ImageLocation = "c:\bild.jpg"
    2. Dim bSuccess As Boolean = ConvertImage("c:\bild.jpg", _
    3. 200, ImageFormat.Jpeg, "c:\bild.jpg")

    ich versteh es nicht

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Imaging
    4. Public Class Form1
    6. Private Function ConvertImage(ByVal sFile As String, _
    7. ByVal nWidth As Integer, ByVal nFormat As ImageFormat, _
    8. ByVal sNewFile As String) As Boolean
    10. ' Bildgröße errechnen.
    11. ' Hierbei wird die Originalbreite des Bildes ermittelt,
    12. ' durch sich selbst geteilt und dann mit dem ausgewählten Wert
    13. ' aus(der) Combobox multipliziert.
    14. ' Die Original-Bildhöhe wird nun durch die Original-Bildbreite
    15. ' geteilt und dann ebenfalls mit dem ausgewählten Wert der Combobox
    16. ' multipliziert.
    17. ' So bleibt das Grössenverhältnis von Höhe und Breite erhalten.
    19. ' Originalbild laden
    20. Dim originalBild As Image = Image.FromFile(sFile)
    22. ' Neues Bild-Objekt in der neu berechneten Breite und Höhe erstellen
    23. Dim neuesBild As Image
    24. With originalBild
    25. neuesBild = New Bitmap(CInt(.Width / .Width * nWidth), _
    26. CInt(.Height / .Width * nWidth))
    27. End With
    29. ' Bild in der neuen Größe zeichnen
    30. Dim destGraphic As Graphics = Graphics.FromImage(neuesBild)
    31. With neuesBild
    32. destGraphic.DrawImage(originalBild, 0, 0, .Width + 1, .Height + 1)
    33. End With
    35. Try
    36. ' Neues Bild im gewünschten Form speichern
    37. neuesBild.Save(sNewFile, nFormat)
    38. destGraphic.Dispose()
    39. Return True
    41. Catch ex As Exception
    42. destGraphic.Dispose()
    43. Return False
    44. End Try
    45. End Function
    46. 'Beispiel für den Aufruf der Funktion
    48. ' Bild "d:\bild1.bmp" mit neuer fixer Breite von
    49. ' 200 Pixel als JPG-Datei speichern
    52. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    54. End Sub
    56. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    57. Dim lbfile As String = ListBox1.SelectedItem
    58. Dim Bildfromlb As Image = Image.FromFile(ListBox1.SelectedItem)
    60. Dim bSuccess As Boolean = ConvertImage(ListBox1.SelectedItem, _
    61. 200, ImageFormat.Jpeg, "c:\bild.bmp")
    62. Bildfromlb.Dispose()
    64. IO.File.Delete(ListBox1.SelectedItem)
    65. End Sub
    68. End Class


    es kommz imer nich der zugriffs fehler

    Füg mal zwischen "Return False" (Zeile 43) und "End Try" (Zeile 44) Folgendes ein:

    VB.NET-Quellcode

    1. Finally
    2. neuesBild.Dispose()
    3. originalBild.Dispose()
    Außerdem kannst du

    VB.NET-Quellcode

    1. Dim Bildfromlb As Image = Image.FromFile(ListBox1.SelectedItem)
    2. ' und
    3. Bildfromlb.Dispose()
    weglassen.

    Dann sollte es funktionieren.