[سعود]

السلام عليكم ورحمة الله وبركاته

كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج لنعرضها في مربع صورة

احاول محاكاة مشغل خاص

 لا اقصد جمع صور لصورة متحركة لا

وانما دمج عدة صور   اود تخزينها جميعا بملف واحد وعند نقر زر تشغيل يتم استعراض الصور باي طريقة المهم كيف البداية.

شكر الله لكم

[silverlight]

غالبا مع هذا الاسلوب أنت لا تحتاج ان تحفظ اسم ملف الصورة
في مشروع منفصل عليك إضافة الصور بالترتيب الذي تحدده أنت الي مصفوفة List (of Byte ()) بحيث أن كل صورة تكون عبارة عن مصفوفة بايت
وتحفظ المصفوفة list نفسها فقط في ملف
ثم تأخذ هذا الملف و تضيفه الي مشروعك الرئيسي ثم تقرأ الملف و تسترجع المصفوفة أو تقرأ المصفوفة و تحولها الي مجموعة صور

أو إن كنت تريد ان تحفظ اسم الصورة أيضا هنا يمكنك أن تحفظ الصور علي هيئة Dictionary (Of String, Byte()) و تحفظها و تقرأها بنفس الأسلوب

[سعود]

كود :

Dim lst As New List(Of Byte())
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dir As New DirectoryInfo("pics")
       For Each fl As FileInfo In dir.GetFiles
           lst.Add(My.Computer.FileSystem.ReadAllBytes(fl.FullName))
       Next
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim data As Byte()
       data = lst.SelectMany(Function(x) x).ToArray()
       My.Computer.FileSystem.WriteAllBytes("pics\b.sa", data, True)
   End Sub

الان ملف b.sa 
كيف استخلص محتوياته او كيف ارجعه كملفات صور
هذا اذا كانت الطريقة صحيحة هذه.

[سعود]

لم اتمكن من:

إقتباس :وتحفظ المصفوفة list نفسها فقط في ملف

إقتباس :ثم تقرأ الملف و تسترجع المصفوفة أو تقرأ المصفوفة و تحولها الي مجموعة صور

ما المطلوب حتى اتم هذا الامر.

[silverlight]

ما تحفظ الصور في ملف داتابيز حتي تستريح من الطريق الطويل هذا

[سعود]

(05-08-17, 12:19 PM)silverlight كتب : ما تحفظ الصور في ملف داتابيز حتي تستريح من الطريق الطويل هذا

اظن فعلا سالجا للطريقة هذي.
بارك الله فيك