Feedback

VB - Bytearray to Image / Image to Bytearray

Veröffentlicht von am 19.11.2007
(1 Bewertungen)
Wiedereinmal DANKE an Jan Welker.
Das Image2Bytearray ist eine Convertierung seines C# Codes.
Die Bytearray2Image Funktion ist eigenkreation ;)
'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

Abgelegt unter Bytearray, Image, Bild, Bild in Bytearray.

1 Kommentare zum Snippet

Günther Foidl schrieb am 24.09.2008:
Geht auch mit der ImageConverter-Klasse (sogar einfacher)
 

Logge dich ein, um hier zu kommentieren!