ByteArry zu Image umwandeln.

  • VB.NET

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

    ByteArry zu Image umwandeln.

    Hi,

    ich möchte ein Bild über eine TCP Verbindung übertragen, dazu müchte ich das Bild zu einem ByteArry zerlegen dieses in ein String umwandeln, diesen versenden, den empfangenen String wieder zu einem ByteArry zusammenlegen und aus dem ByteArry wieder ein Image machen. Habe dafür 4 Methoden geschrieben, alle funktionieren, bis auf das Umwandeln von ByteArry zu Image. Der Fehler ist "Ungültiger Parameter."

    Das ist der Quellcode:

    VB.NET-Quellcode

    1. Public Function BytesToImage(ByVal ImageBytesArry() As Byte) As Image
    2. Try
    3. Dim imgNew As Image
    4. Dim memImage As New System.IO.MemoryStream(ImageBytesArry)
    5. imgNew = Image.FromStream(memImage) 'An dieser Stelle tritt der Fehler auf.
    6. Return imgNew
    7. Catch ex As Exception
    8. MsgBox(ex.Message, MsgBoxStyle.Critical)
    9. End Try
    10. End Function

    Ich weis aber nicht, woran es liegt und wie man es lösen kann.


    Alle 4 Methoden
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Functions
    2. Public Function BytesToImage(ByVal ImageBytesArry() As Byte) As Image
    3. Try
    4. Dim imgNew As Image
    5. Dim memImage As New System.IO.MemoryStream(ImageBytesArry)
    6. imgNew = Image.FromStream(memImage)
    7. Return imgNew
    8. Catch ex As Exception
    9. MsgBox(ex.Message, MsgBoxStyle.Critical)
    10. End Try
    11. End Function
    13. Public Function ImageToBytes(ByVal Image As Image) As Byte()
    14. Dim memImage As New System.IO.MemoryStream
    15. Dim bytImage() As Byte
    17. Image.Save(memImage, Image.RawFormat)
    18. bytImage = memImage.GetBuffer()
    20. Return bytImage
    21. End Function
    23. Public Function StrToByteArray(ByVal str As String) As Byte()
    24. Dim encoding As New System.Text.ASCIIEncoding()
    25. Return encoding.GetBytes(str)
    26. End Function
    27. Public Function ByteArryToStr(ByVal ByteArry() As Byte) As String
    28. Dim enc As New System.Text.ASCIIEncoding()
    29. Return enc.GetString(ByteArry)
    30. End Function
    31. End Module


    #EDIT#
    Korrektur, habe herausgefunden, dass es nicht an dieser Methode liegt, da das Umwandeln von Img zu ByteArry zu Img funktioniert, das Problem liegt entweder in ByteArry to String oder String to ByteArry.
    ###############################Lösung####################################
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Functions
    2. Public Function BytesToImage(ByVal ImageBytesArry() As Byte) As Image
    3. Try
    4. Dim imgNew As Image
    5. Dim memImage As New System.IO.MemoryStream(ImageBytesArry)
    6. imgNew = Image.FromStream(memImage)
    7. Return imgNew
    8. Catch ex As Exception
    9. MsgBox(ex.Message, MsgBoxStyle.Critical)
    10. End Try
    11. End Function
    13. Public Function ImageToBytes(ByVal Image As Image) As Byte()
    14. Try
    15. Dim memImage As New System.IO.MemoryStream
    16. Dim bytImage() As Byte
    17. '(1366x768)
    18. 'Gif 1,4MB, 355KB
    19. 'Jpeg 823KB, 98KB
    20. 'Png 1MB, 1MB
    21. 'Tiff 980KB, 1,09MB
    22. Image.Save(memImage, Image.RawFormat.Jpeg) 'Empfohlen
    23. 'Icon verboten
    24. 'Emf verboten
    25. 'Exif verboten
    26. 'MemoryBmp verboten
    27. 'Wmf verboten
    28. bytImage = memImage.GetBuffer()
    30. Return bytImage
    31. Catch ex As Exception
    32. MsgBox(ex.Message, MsgBoxStyle.Critical)
    33. End Try
    34. End Function
    35. Public Function SaveImage(ByVal Image As Image, ByVal Filename As String) As Boolean
    36. Image.Save(Filename)
    37. If System.IO.File.Exists(Filename) Then
    38. Return True
    39. Else
    40. Return False
    41. End If
    42. End Function
    43. Public Function StrToByteArray(ByVal Text As String) As Byte()
    44. Return System.Text.Encoding.Default.GetBytes(Text)
    45. End Function
    46. Public Function ByteArryToStr(ByVal ByteArray() As Byte) As String
    47. Try
    48. Return System.Text.Encoding.Default.GetString(ByteArray)
    49. Catch ex As Exception
    51. End Try
    52. End Function
    53. Public Function GetScreenShot() As Image
    54. Dim Btm As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
    55. Dim Grp As Graphics = Graphics.FromImage(Btm)
    56. Grp.CopyFromScreen(0, 0, 0, 0, Btm.Size)
    57. Grp.Dispose()
    58. Return Btm
    59. End Function
    61. Public Function StringToByteArray(ByRef str As String) As Byte()
    62. Try
    63. Return Convert.FromBase64String(str)
    64. Catch ex As Exception
    65. End Try
    66. End Function
    68. Public Function ByteArrayToString(ByRef Barr() As Byte) As String
    69. Try
    70. Return Convert.ToBase64String(Barr)
    71. Catch ex As Exception
    72. End Try
    73. End Function
    74. Public Function TextStringToByteArray(ByRef str As String) As Byte()
    75. Dim enc As System.Text.Encoding = System.Text.Encoding.Default
    77. Return enc.GetBytes(str)
    78. End Function
    80. Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
    81. Dim enc As System.Text.Encoding = System.Text.Encoding.Default
    82. Return enc.GetString(Barr)
    83. End Function
    85. End Module

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ViktorS“ ()

    So geht es auch^^, aber habe es jetzt auch so geschafft zu lösen^^

    Lösung:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Functions
    2. Public Function BytesToImage(ByVal ImageBytesArry() As Byte) As Image
    3. Try
    4. Dim imgNew As Image
    5. Dim memImage As New System.IO.MemoryStream(ImageBytesArry)
    6. imgNew = Image.FromStream(memImage)
    7. Return imgNew
    8. Catch ex As Exception
    9. MsgBox(ex.Message, MsgBoxStyle.Critical)
    10. End Try
    11. End Function
    13. Public Function ImageToBytes(ByVal Image As Image) As Byte()
    14. Dim memImage As New System.IO.MemoryStream
    15. Dim bytImage() As Byte
    17. Image.Save(memImage, Image.RawFormat)
    18. bytImage = memImage.GetBuffer()
    20. Return bytImage
    21. End Function
    23. Public Function StrToByteArray(ByVal Text As String) As Byte()
    24. Return System.Text.Encoding.Default.GetBytes(Text)
    25. End Function
    26. Public Function ByteArryToStr(ByVal ByteArray() As Byte) As String
    27. Return System.Text.Encoding.Default.GetString(ByteArray)
    28. End Function
    29. End Module



    Wörde aber dennoch gerne wissen, wie es mit dem GraphicsStream funktioniert.

    Das mit dem Bild => ByteArray => String klappt nicht bei jedem Bild, sondern nur bei 8Bit Bildern.

    Wie geht das mit dem GraphicsStream ?

    Könnte es jemand an einem Quellcode mit Kommentaren vorführen, wenn es keine Umstände macht?

    So inetwa?

    VB.NET-Quellcode

    1. Public Sub SendImage(ByVal Image As Image)
    2. StreamWriter.Write(Image)
    3. StreamWriter.Flush()
    4. End Sub

    VB.NET-Quellcode

    1. Public Sub SendFile(ByVal FilePath As String)
    2. Dim Reader As StreamReader
    3. Reader = New StreamReader(FilePath)
    4. Do Until Reader.EndOfStream
    5. StreamWriter.Write(Reader.Read())
    6. StreamWriter.Flush()
    7. Loop
    8. End Sub


    Ganze Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.Net
    4. Imports System.IO
    5. Public Class TCP_Listener
    6. Private TcpListener As TcpListener
    7. Private TcpClient As New TcpClient
    8. Private Stream As Stream
    9. Private StreamWriter As StreamWriter
    10. Private StreamReader As StreamReader
    12. Public Sub Start(ByVal Port As Integer)
    13. TcpListener = New TcpListener(System.Net.IPAddress.Any, Port)
    14. TcpListener.Start()
    15. TcpClient = New TcpClient
    16. TcpClient = TcpListener.AcceptTcpClient
    17. Stream = TcpClient.GetStream
    18. StreamWriter = New StreamWriter(Stream)
    19. StreamReader = New StreamReader(Stream)
    20. End Sub
    21. Public Sub SendText(ByVal Text As String)
    22. StreamWriter.Write(Text)
    23. StreamWriter.Flush()
    24. End Sub
    25. Public Sub SendImage(ByVal Image As Image)
    26. StreamWriter.Write(Image)
    27. StreamWriter.Flush()
    28. End Sub
    29. Public Sub SendFile(ByVal FilePath As String)
    30. Dim Reader As StreamReader
    31. Reader = New StreamReader(FilePath)
    32. Do Until Reader.EndOfStream
    33. StreamWriter.Write(Reader.Read())
    34. StreamWriter.Flush()
    35. Loop
    36. End Sub
    37. End Class

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

Facebook