Bilder verkleinern und mit Logo versehen - Endet in Fehler

  • VB.NET

    Bilder verkleinern und mit Logo versehen - Endet in Fehler

    Hallo liebes Forum,

    ich habe eine Problem... Und zwar habe ich ein Programm geschrieben, was Bilder verkleinert und mit Logo versieht. Ich weiß, das mag etwas durcheinander aussehen, aber ich bin ja auch noch am lernen.

    Und zwar habe ich ein Problem. Das Programm soll die Bilder in einem Ordner mit einem Logo versehen und verkleinern. Das macht es bei meinen Computern auch einwandfrei, aber nicht bei Computern bei Freunden.

    Da erhalte ich abwechselnd 2 Fehler und ich hoffe ihr könnt mir vielleicht helfen.

    Fehler 1: Wenn ich so ca. 120 Bilder verkleiner erhalte ich den Fehler, dass nicht genügend Arbeitsspeicher vorhanden ist. Dabei haben alle getesteten PCs mind. 4 GB RAM


    Fehler 2:

    Informationen über das Aufrufen von JIT-Debuggen
    anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
    ************** Ausnahmetext **************
    System.Runtime.InteropServices.ExternalException: Allgemeiner Fehler in GDI+.
    bei Microsoft.VisualBasic.CompilerServices.Symbols.Container.InvokeMethod(Method TargetProcedure, Object[] Arguments, Boolean[] CopyBack, BindingFlags Flags)
    bei Microsoft.VisualBasic.CompilerServices.NewLateBinding.CallMethod(Container BaseReference, String MethodName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, BindingFlags InvocationFlags, Boolean ReportErrors, ResolutionFailure& Failure)
    bei Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)
    bei ILM_Uploadtool.Form1.MetroButton1_Click(Object sender, EventArgs e) in Pfad zu VB Datei auf meinem PC obwohl es auf einem anderen ausgeführt wird:Zeile 229.
    bei System.Windows.Forms.Control.OnClick(EventArgs e)
    bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
    bei System.Windows.Forms.Control.WndProc(Message& m)
    bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


    Das passiert nur beim Verkleinern der Bilder! Oder das Programm hängt sich bei der Arbeit einfach auf!

    Das mit den Bildern und Logos mache ich mit diesem Code:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim Folder As String = FolderBrowserDialog1.SelectedPath
    3. Button2.Enabled = False
    4. If Not IO.Directory.Exists(Folder & "/klein/") Then
    5. System.IO.Directory.CreateDirectory(Folder & "/klein/")
    7. End If
    9. For Each Files As String In Directory.GetFiles(Folder, "*.jpg")
    10. Dim FileName As String = IO.Path.GetFileName(Files)
    11. PictureBox1.Load(Folder & "\" & FileName)
    12. bildNachher = AutoSizeImage(PictureBox1.Image, 1024, 1536, False)
    14. bildNachher.Save(Folder & "/klein/" & FileName, Imaging.ImageFormat.Jpeg)
    15. Next
    19. For Each Files As String In Directory.GetFiles(Folder, "*.jpg")
    20. Dim FileName As String = IO.Path.GetFileName(Files)
    21. Dim Bild As Image = Image.FromStream(New MemoryStream(File.ReadAllBytes(FolderBrowserDialog1.SelectedPath & "/" & "klein" & "/" & FileName)))
    22. Dim Bild_wasserzeichen As Graphics = Graphics.FromImage(Bild)
    23. Dim wasserzeichen As Image = My.Resources.LemonbarWatermarkNEU
    25. Bild_wasserzeichen.DrawImage(wasserzeichen, New Rectangle(0, Bild.Height - (wasserzeichen.Height + 15), wasserzeichen.Width, wasserzeichen.Height), 0, 0, wasserzeichen.Width, wasserzeichen.Height, _
    26. GraphicsUnit.Pixel)
    27. Bild_wasserzeichen.CompositingQuality = CompositingQuality.HighQuality
    28. Bild.Save(FolderBrowserDialog1.SelectedPath & "/" & "klein" & "/" & FileName, Imaging.ImageFormat.Jpeg)
    29. Bild_wasserzeichen.Dispose()
    30. Next
    31. End Sub



    Und dazu gehört noch das:

    VB.NET-Quellcode

    1. Public Function AutoSizeImage(ByVal oBitmap As Image, _
    2. ByVal maxWidth As Integer, _
    3. ByVal maxHeight As Integer, _
    4. Optional ByVal bStretch As Boolean = False) As Image
    6. ' Größenverhältnis der max. Dimension
    7. Dim maxRatio As Single = maxWidth / maxHeight
    9. ' Bildgröße und aktuelles Größenverhältnis
    10. Dim imgWidth As Integer = oBitmap.Width
    11. Dim imgHeight As Integer = oBitmap.Height
    12. Dim imgRatio As Single = imgWidth / imgHeight
    14. ' Bild anpassen?
    15. If (imgWidth > maxWidth Or imgHeight > maxHeight) Or (bStretch) Then
    16. If imgRatio <= maxRatio Then
    17. ' Größenverhältnis des Bildes ist kleiner als die
    18. ' maximale Größe, in der das Bild angezeigt werden kann.
    19. ' In diesem Fall muss die Bildbreite angepasst werden.
    20. imgWidth = imgWidth / (imgHeight / maxHeight)
    21. imgHeight = maxHeight
    22. Else
    23. ' Größenverhältnis des Bildes ist größer als die
    24. ' maximale Größe, in der das Bild angezeigt werden kann.
    25. ' In diesem Fall muss die Bildhöhe angepasst werden.
    26. imgHeight = imgHeight / (imgWidth / maxWidth)
    27. imgWidth = maxWidth
    28. End If
    30. ' Bitmap-Objekt in der neuen Größe erstellen
    31. Dim oImage As New Bitmap(imgWidth, imgHeight)
    33. ' Bild interpolieren, damit die Qualität erhalten bleibt
    34. Using g As Graphics = Graphics.FromImage(oImage)
    35. g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
    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


    Würde mich sehr über Hilfe freuen.

    PS: Der MetroButton oben in dem Fehlerfeld ist schon entfernt und durch einen normalen ersetzt!

    EDIT: Habe inzwischen herausgefunden, dass das verkleinern das Problem ist... Auf einzelne Buttons aufgeteilt geht das mit den Wasserzeichen innerhalb von ein paar Sekunden, aber beim verkleinern springt der Form Titel direkt auf (keine Rückmeldung), macht aber trotzdem langsam seine Arbeit!

    Die Arbeitsspeicherauslastung ist irre hoch!



    mfg friloo

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „friloo“ ()

Facebook