السلام عليكم
اوريد معرفة كيف تحويل الصور الى بايت و حفظها فى ملف Notepad و استرجع الصوره مره اخرى من البايت من ملف Notepad
:confused:
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 يحمل الصورة التي يتم حفظها أو عرضها
اعملها serialize علشان لو فتحت النوتة تلاقي كلام لو حفظته مرة تانية ميأثرش علي الملف و يبوظ