[Aly El-Haddad]

السلام عليكم، إليك دالة تحول من صورة إلى Byte Array و الأخرى تحول من Byte Array إلى صورة

كود :

[b]
Public Function ImageToByteArray(ByVal img As System.Drawing.Image) As Byte()
          Dim MS As New System.IO.MemoryStream()
          img.Save(MS, System.Drawing.Imaging.ImageFormat.Jpeg)
          Return MS.GetBuffer()
      End Function
[/b]

كود :

[b]
Public Function ByteArrayToImage(ByVal arr As Byte()) As System.Drawing.Image
          Dim MS As New System.IO.MemoryStream(arr)
          Return System.Drawing.Image.FromStream(MS)
      End Function[/b]