Bild in Base64

  • VB.NET

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

    Bild in Base64

    Hallo Forum, ich habe irgendwo in den tiefen des Internets eine Funktion gefunden mit der man Bilder in einen Base64 String und wieder zurück umwandeln kann. Mein Problem ist, das wenn ich ein Bild vorweg in eine PictureBox lade und es konvertiere gibt es keinen Fehler, wenn ich aber ein Bild mit einem OpenFileDialog öffne und das Bild dann konvertieren will gibt es einen Fehler. Und zwar diesen:



    -> hier das umwandeln:

    VB.NET-Quellcode

    1. Dim S As String
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIMGtoBase.Click
    3. S = ImageToBase64(PictureBox1.Image)
    4. TextBox1.Text = S
    5. End Sub


    -> und hier die dazugehörige Funktion:

    Der Fehler tritt übrigens in dieser Funktion auf (markierte Zeile)

    VB.NET-Quellcode

    1. Public Function ImageToBase64(ByVal oImage As Image) As String
    2. If oImage IsNot Nothing Then
    3. With New System.Drawing.ImageConverter
    4. ' Image in Byte-Array umwandeln
    5. /////////////////////////
    6. Dim nBytes() As Byte = CType(.ConvertTo(oImage, GetType(Byte())), Byte())
    7. /////////////////////////
    9. ' Byte-Array in Base64-codierten String umwandeln
    10. Return (Convert.ToBase64String(nBytes, _
    11. Base64FormattingOptions.InsertLineBreaks))
    12. End With
    13. Else
    14. ' Leerstring zurückgeben
    15. Return ("")
    16. End If
    17. End Function


    Das Bild lade ich so:

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
    2. OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"
    4. Dim FilePath As String
    5. If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    6. FilePath = OpenFileDialog1.FileName
    7. PictureBox1.Load(FilePath)
    8. End If
    9. End Sub


    Ich hoffe jemand kann mir einen Tipp geben wieso das auf diese Art und Weise nicht geht,
    schönen Tag allen noch =) .

    Ist das der Code der funktioniert? Also beim Button Click wird das Bild aus der PictureBox umgewandelt und das funktioniert ja?

    Wie meinst du das mit dme OpenFileDialog? Es direkt umzuwandeln ohne es vorher in die Picturebox zu laden?

    Zudem kann man dein Code noch kürzen, du hast unnötige Variablen deklariert. FilePath und S brauchst du nicht.

    VB.NET-Quellcode

    1. PictureBox1.Load(OpenFileDialog1.FileName)


    und

    VB.NET-Quellcode

    1. TextBox1.Text = ImageToBase64(PictureBox1.Image)


    Sparst du 4 Zeilen Code.

    Erstmal Danke für die Antwort :) , ja das ist der Code der funktioniert.
    FilePath konnt ich wegkürzen aber S brauch ich um es wieder zu einem Bild zu machen.
    Wenn ich Vorweg im Designer ein Bild hinein lade, klappt das.
    Wenn ich jetzt aber ein Bild mit einem Dialog lade und dann, siehe
    Button2 Click dieses in Base64 umwandeln will bekomme ich den Fehler in der Funktion.

    Ok hab jetzt folgendes:


    VB.NET-Quellcode

    1. Dim S As String
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIMGtoBase.Click
    3. 'Bild zu Base64:
    4. S = ImageToBase64(PictureBox1.Image)
    5. TextBox1.Text = ImageToBase64(PictureBox1.Image)
    6. End Sub


    und

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBasetoIMG.Click
    2. ' Base 64 zum Bild:
    3. PictureBox2.Image = Base64ToImage(S)
    4. End Sub


    Die beiden Funktionen:

    VB.NET-Quellcode

    1. Public Function ImageToBase64(ByVal oImage As Image) As String
    2. If oImage IsNot Nothing Then
    3. With New System.Drawing.ImageConverter
    4. ' Image in Byte-Array umwandeln
    5. Dim nBytes() As Byte = CType(.ConvertTo(oImage, GetType(Byte())), Byte())
    7. ' Byte-Array in Base64-codierten String umwandeln
    8. Return (Convert.ToBase64String(nBytes, _
    9. Base64FormattingOptions.InsertLineBreaks))
    10. End With
    11. Else
    12. ' Leerstring zurückgeben
    13. Return ("")
    14. End If
    15. End Function
    16. ''' <summary>
    17. ''' Konvertiert einen Base64-codierten String in ein Image-Objekt
    18. ''' </summary>
    19. ''' <param name="sData">Base64-codierter String</param>
    20. ''' <returns>Image-Objekt</returns>
    21. Public Function Base64ToImage(ByVal sData As String) As Image
    22. Dim oImage As Image = Nothing
    24. If sData.Length > 0 Then
    25. ' String decodieren und in Byte-Array umwandeln
    26. Dim nBytes() As Byte = Convert.FromBase64String(sData)
    27. If nBytes IsNot Nothing AndAlso nBytes.Length > 0 Then
    28. ' Byte-Array in Image-Objekt umwandeln
    29. With New System.Drawing.ImageConverter
    30. oImage = CType(.ConvertFrom(nBytes), Image)
    31. End With
    32. End If
    33. End If
    34. Return (oImage)
    35. End Function


    Ich versteh nicht so richtig wo der Unterschied ist, ob ich ein Bild vorweg oder mit einem Dialog lade :o .
    Bin aber offen für Tipps.

    Hab eine Lösung gefunden

    VB.NET-Quellcode

    1. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaden.Click
    2. Dim Pfad As String
    3. If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    4. Pfad = OpenFileDialog1.FileName
    5. PictureBox1.Image = Image.FromFile(Pfad)
    6. End If
    7. End Sub


    So funktioniert es jedenfalls, danke dir =), schönen Tag.

    Edit//

    Hm so gehts auch ;D

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Tony-S“ ()

    Also bei mir funktioniert das. Hier mein kompletter Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Function ImageToBase64(ByVal oImage As Image) As String
    3. If oImage IsNot Nothing Then
    4. With New System.Drawing.ImageConverter
    5. ' Image in Byte-Array umwandeln
    6. Dim nBytes() As Byte = CType(.ConvertTo(oImage, GetType(Byte())), Byte())
    8. ' Byte-Array in Base64-codierten String umwandeln
    9. Return Convert.ToBase64String(nBytes, Base64FormattingOptions.InsertLineBreaks)
    10. End With
    11. Else
    12. ' Leerstring zurückgeben
    13. Return Nothing
    14. End If
    15. End Function
    16. ''' <summary>
    17. ''' Konvertiert einen Base64-codierten String in ein Image-Objekt
    18. ''' </summary>
    19. ''' <param name="sData">Base64-codierter String</param>
    20. ''' <returns>Image-Objekt</returns>
    21. Public Function Base64ToImage(ByVal sData As String) As Image
    22. Dim oImage As Image = Nothing
    24. If sData.Length > 0 Then
    25. ' String decodieren und in Byte-Array umwandeln
    26. Dim nBytes() As Byte = Convert.FromBase64String(sData)
    27. If nBytes IsNot Nothing AndAlso nBytes.Length > 0 Then
    28. ' Byte-Array in Image-Objekt umwandeln
    29. With New System.Drawing.ImageConverter
    30. oImage = CType(.ConvertFrom(nBytes), Image)
    31. End With
    32. End If
    33. End If
    34. Return oImage
    35. End Function
    37. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    38. TextBox1.Text = ImageToBase64(PictureBox1.Image)
    39. End Sub
    41. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    42. PictureBox2.Image = Base64ToImage(TextBox1.Text)
    43. End Sub
    45. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    46. OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"
    48. If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    49. Dim img As New Bitmap(OpenFileDialog1.FileName)
    50. PictureBox1.Image = img
    51. End If
    52. End Sub
    53. End Class

Facebook
Telefonspende