Bilder Auflösung ändern

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    Bilder Auflösung ändern

    Hallo,
    ich habe wieder mal ein kleines Problem:
    Ich habe einen Ordner in dem x Bilder mit verschiedenen Größen(Auflösungen)liegen und diese will ich jetzt jeweils auf eine Größe verkleinern bzw. vergrößern.
    Habs mit der Picturebox versucht doch leider ohne Erfolg.
    Das Bild wird abgespeichert nur in der selben Größe.

    VB.NET-Quellcode

    1. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim strPath As String = "C:\...\testpics"
    3. Dim newpic As String = "C:\...\testpics\neuebilder"
    5. For Each file In My.Computer.FileSystem.GetFiles(strPath)
    6. PictureBox1.Load(file)
    7. PictureBox1.Size = New Size(1280, 720)
    8. Dim filename As String = My.Computer.FileSystem.GetName(strPath)
    9. PictureBox1.Image.Save(newpic & "\" & filename & ".png")
    10. Next


    Danke schonmal :)

    lolpicturebox.
    Öffne jedes Bild in nem Stream, skalier es, und speicher es wieder ab.
    Vergiss nicht, die Interpolationsmethode etc. auf die höchste Qualität zu stellen, um Qualitätsverluste zu vermeiden und vergiss auch nicht, jede Bitmap wieder zu disposen, sonst crasht dein Programm nach den ersten ~100 Bildern mit ner OutOfMemory-Exception.

    1.Wie kann ich das jeweilige Bild denn skalieren?

    2.Im Stream öffnen, so?

    VB.NET-Quellcode

    1. For Each File In My.Computer.FileSystem.GetFiles(strPath)
    2. Dim str As New System.IO.FileStream(File, IO.FileMode.Open)
    3. Dim pic As Bitmap
    4. pic = New Bitmap(str)
    5. str.Close()
    7. Next

    Ich schätze mal, dass das nicht mit normalen Bildern funktioniert.
    Da brauchst du Vektro-Bilder.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Benutz "Using xyz as new stream/End Using" statt "dim xyz as new stream" und Close. Bei der Bitmap auch.
    Geh alle Dateien in ner For Each-Schleife durch, öffne es in nem Stream, erzeuge ein Bitmap-Objekt mit dem Stream, skalier die Bitmap und speicher sie in deinem Wunschformat (PNG) ab. (.Save)
    Hier C#-Code zum Skalieren einer Bitmap:

    C-Quellcode

    1. public static Bitmap ResizeImage(this Bitmap bm, int width, int height) {
    2. Bitmap result = new Bitmap(width, height, PixelFormat.Format24bppRgb);
    4. using (Graphics graphics = Graphics.FromImage(result)) {
    5. graphics.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighSpeed;
    6. graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic;
    7. graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
    9. graphics.DrawImage(bm, 0, 0, result.Width, result.Height);
    10. }
    12. return result;
    13. }


    Da brauchst du Vektro-Bilder.
    Purer Schwachsinn. Und was sollen bitte "Vektro-Bilder" sein? Ich kenn Vektorgrafiken, und die haben mit dem Thema nichts zu tun.

    Eigentlich kann ich mit dem C# Code nichts anfangen.
    Habe ihn aber in vb conventiert und versucht anzupassen ,doch PixelFormat und Graphics.DarwImage werden unterstrichen.

    Habe glaube ich alles integriert
    Geh alle Dateien in ner For Each-Schleife durch, öffne es in nem Stream,
    erzeuge ein Bitmap-Objekt mit dem Stream, skalier die Bitmap und
    speicher sie in deinem Wunschformat (PNG) ab. (.Save)
    Edit : Jetzt wird nur noch Graphics.DrawImage unterstrichen

    VB.NET-Quellcode

    1. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim strPath As String = "C:\...\testpics"
    4. For Each file As String In My.Computer.FileSystem.GetFiles(strPath)
    5. Dim filename As String = My.Computer.FileSystem.GetName(file)
    6. Using str As New System.IO.FileStream(file, IO.FileMode.Open)
    7. Dim pic As Bitmap
    8. pic = New Bitmap(str)
    9. End Using
    11. Dim bm As Bitmap
    12. Dim width As Integer
    13. Dim height As Integer
    14. Dim result As New Bitmap(width, height, Imaging.PixelFormat.Format24bppRgb)
    15. Using graphics__1 As Graphics = Graphics.FromImage(result)
    16. graphics__1.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighSpeed
    17. graphics__1.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
    18. graphics__1.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
    20. Graphics.DrawImage(bm, 0, 0, result.Width, result.Height)
    24. End Using
    25. result.Save("C:\...\testpics\neuebilder" & filename & ".png")
    27. Next
    29. End Sub

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

    Imports Gesetzt, und auch deklariert?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Natürlich musst du das erzeugte Graphics-Objekt benutzen und nicht direkt "Graphics". Bei dir wäre das "graphics__1" oder so.
    Und vergiss nicht, alle Bitmaps entweder manuell zu disposen oder für jede Bitmap (bis auf result, weil das per return weitergegeben wird) Using zu nutzen.

    Danke habs auch grade herausgefunden :D
    Der code Funktioniert soweit ,nur sind alle Bilder die vom Programm ausgegeben werden schwarz.

    EDIT: Hab den Code etwas geändert und jetzt funktionierts. :thumbsup:
    Danke Samus Aran ohne deine Hilfe hätte ich dafür galube ich noch vile länger gebraucht :thumbsup:
    Auf jedne Fall ein fettes DANKE!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim strPath As String = "C:\Users\Alexej\Desktop\testpics"
    6. For Each file As String In My.Computer.FileSystem.GetFiles(strPath)
    8. Dim filename As String = My.Computer.FileSystem.GetName(file)
    9. Using str As New System.IO.FileStream(file, IO.FileMode.Open)
    10. Dim bm As Bitmap = New Bitmap(str)
    13. Dim width As Integer = 1280
    14. Dim height As Integer = 720
    15. Dim result As New Bitmap(width, height, Imaging.PixelFormat.Format24bppRgb)
    16. Using graphics__1 As Graphics = Graphics.FromImage(result)
    17. graphics__1.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighSpeed
    18. graphics__1.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
    19. graphics__1.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
    21. graphics__1.DrawImage(bm, 0, 0, result.Width, result.Height)
    22. graphics__1.Dispose()
    25. result.Save("C:\Users\Alexej\Desktop\testpics\neuebilder" & "\" & filename & ".png")
    26. End Using
    27. End Using
    28. Next
    30. End Sub

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

Facebook
Telefonspende