تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال كفية تحويل الصور الى بايت فى ملف و استرجع لصوره مره اخرى
#1
السلام عليكم
اوريد معرفة كيف تحويل الصور الى بايت و حفظها فى ملف Notepad و استرجع الصوره مره اخرى من البايت من ملف Notepad

:confused:
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد }}}}
تم الشكر بواسطة:
#2
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 يحمل الصورة التي يتم حفظها أو عرضها
الرد }}}}
تم الشكر بواسطة:
#3
يعطيك العافية
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
اعملها serialize علشان لو فتحت النوتة تلاقي كلام لو حفظته مرة تانية ميأثرش علي الملف و يبوظ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال حول DataGridView dubai.eig 2 40 منذ 3 ساعة مضت
آخر رد: dubai.eig
  سؤال فى حضور و انصراف الموظفين salah mansour 1 35 أمس, 11:25 PM
آخر رد: salah mansour
  سؤال بسيط في ال count khaled12345 2 71 27-05-17, 06:52 PM
آخر رد: khaled12345
  سؤال فى ثيمات المشروع salah mansour 10 116 27-05-17, 01:53 PM
آخر رد: محمود بكرى
  سؤال في ريبورت فيو زيد زينوبي 2 79 24-05-17, 01:29 PM
آخر رد: صبري زينوبي
  سؤال فى ادوات الديف اكسبريس salah mansour 4 90 24-05-17, 10:55 AM
آخر رد: salah mansour
  سؤال فى الداتا جريد salah mansour 1 100 21-05-17, 12:09 AM
آخر رد: boudyonline
  سؤال مهم فى اجازت العاملين salah mansour 8 143 17-05-17, 01:07 AM
آخر رد: salah mansour
Exclamation سؤال حول طباعة تقارير RDLC ndjakoub 1 45 16-05-17, 12:45 AM
آخر رد: alma2
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 66 16-05-17, 12:29 AM
آخر رد: alma2

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم