[Aly El-Haddad]

alimse كتب :السلام عليكم
اوريد معرفة كيف تحويل الصور الى بايت و حفظها فى ملف Notepad و استرجع الصوره مره اخرى من البايت من ملف Notepad

:confused:

و عليكم السلام
أستخدم هذا الكود:

كود :

Public Class Form1

    Dim myImg As Image = Image.FromFile(Application.StartupPath & "\myImg.jpg")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.WriteAllBytes(Application.StartupPath & "\myImg.txt", ImageToByteArray(myImg))
        MsgBox("Saved!")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Image = ByteArrayToImage(System.IO.File.ReadAllBytes(Application.StartupPath & "\myImg.txt"))
        MsgBox("Loaded!")
    End Sub

    Public Shared Function ImageToByteArray(ByVal img As System.Drawing.Image) As Byte()
        On Error Resume Next
        Dim MS As New System.IO.MemoryStream()
        img.Save(MS, Imaging.ImageFormat.Png)
        Return MS.ToArray()
    End Function

    Public Shared Function ByteArrayToImage(ByVal arr As Byte()) As System.Drawing.Image
        On Error Resume Next
        Dim MS As New System.IO.MemoryStream(arr)
        Return System.Drawing.Image.FromStream(MS)
    End Function
End Class

حيث Button1 لحفظ الصورة في ملف txt و Button2 لعرض الصورة في PictureBox1
و المتغير myImg يحمل الصورة التي يتم حفظها أو عرضها