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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation سؤال حول المعامل Ctype ndjakoub 2 57 أمس, 10:54 AM
آخر رد: silverlight
  سؤال محمد بن عطية 3 89 13-01-17, 12:10 AM
آخر رد: مساعدة
  [VB.NET] مشكلة تحويل من 32بت الى 64 بت yemen1 3 92 08-01-17, 01:23 PM
آخر رد: yemen1
  [VB.NET] سؤال في text box engmedomed@gmail.com 1 76 31-12-16, 07:20 PM
آخر رد: مساعدة
  [VB.NET] سؤال في الرسم البياني engmedomed@gmail.com 0 60 27-12-16, 11:42 PM
آخر رد: engmedomed@gmail.com
  .سؤال محيرني.. محمد 2017 4 151 25-12-16, 10:02 PM
آخر رد: محمد 2017
  اول سؤال لي في منتداكم الرائع ..... من اين ابداء وبما ابداء البرمجة zin1zamanh 16 320 23-12-16, 06:45 PM
آخر رد: zin1zamanh
  [VB.NET] مساعدة في تحويل كود من php الى vb.net dubai.eig 8 147 23-12-16, 01:29 AM
آخر رد: dubai.eig
  [نقاش] هل من مناقش- سؤال خاص بالباركود وال كيوار كود لو تكرمتم اخواني الكرام zinom 6 173 21-12-16, 07:02 PM
آخر رد: mohamed haroon
  سؤال بخصوص الكرستال ريبورت hglogtd 10 464 19-12-16, 04:12 PM
آخر رد: وائل القطاوي

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


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