Bytearray to Image / Image to Bytearray

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

'möglicher Aufruf:
'Dim ar() As Byte
'ar = clsMySnippets.Image2ByteArray(PictureBox1.Image, Imaging.ImageFormat.Bmp)
'PictureBox2.Image = clsMySnippets.ByteArray2Image(ar)

    Public Function Image2ByteArray(ByVal Bild As Image, ByVal Bildformat As System.Drawing.Imaging.ImageFormat) As Byte()
        Dim MS As New IO.MemoryStream
        Bild.Save(MS, Bildformat)
        MS.Flush()
        Return MS.ToArray
    End Function

  Public Function ByteArray2Image(ByVal ByAr() As Byte) As Image
        Dim img As Image
        Dim MS As New IO.MemoryStream(ByAr)
        
        'das TRY ist Notwending, da wenn ein ARRAY eingelesen wird, welches KEIN Bild war,
        'eine Exception auftritt!
        Try
            img = Image.FromStream(MS)
        Catch ex As Exception
            Return Nothing
        End Try

        Return img
    End Function

    'ohne ERROR Abfangtry, falls sich jemand seiner Sache sicher ist ;)
    Public Function ByteArray2Image(ByVal ByAr() As Byte) As Image
        Dim img As Image
        Dim MS As New IO.MemoryStream(ByAr)
        Return Image.FromStream(MS)
    End Function