تقييم الموضوع :
  • 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 علشان لو فتحت النوتة تلاقي كلام لو حفظته مرة تانية ميأثرش علي الملف و يبوظ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 72 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  سؤال حول Combobox noway 2 52 06-12-16, 04:26 AM
آخر رد: amgad525
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 118 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 151 06-11-16, 07:51 PM
آخر رد: العواد الصغير
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 124 02-11-16, 04:15 PM
آخر رد: salhigc
  [VB.NET] تحويل التاريخ لسلسلة نصية tifagreet 1 92 01-11-16, 01:28 PM
آخر رد: ممدوح
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 169 25-10-16, 03:20 PM
آخر رد: a_abdullah
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 71 22-10-16, 11:49 PM
آخر رد: 3msoft
  سؤال بسيط في فصل التاريخ عن الوقت فراس صلاح 3 137 19-10-16, 04:17 AM
آخر رد: mhmd_911
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 124 13-10-16, 04:40 AM
آخر رد: abid

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


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