Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System
- Imports System.IO
- Imports System.Drawing
- Imports System.Imaging
- Public Class ImageConverter
- Public Static Function ImageToBytes(ByVal img As Image) As byte()
- If img Is Nothing Then
- Return Nothing
- Else
- Dim memstream As New MemoryStream()
- img.Save(memstream, img.RawFormat)
- Dim img_raw As byte() = memstream.ToArray()
- memstream.Dispose()
- return img_raw
- End If
- End Function
- Public Static Funtion BytesToImage(ByVal img_raw As byte()) As Image
- If img_raw Is Nothing Then
- Return Nothing
- End If
- Dim memstream As New MemoryStream(img_raw)
- Dim img As New Image = Image.FromStream(memstream)
- memstream.Dispose()
- Return img
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement