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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج (/showthread.php?tid=21284)

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

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


شكر الله لكم

RE: كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج - silverlight - 05-08-17

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

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

RE: كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج - سعود - 05-08-17

كود :
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 
كيف استخلص محتوياته او كيف ارجعه كملفات صور
هذا اذا كانت الطريقة صحيحة هذه.

RE: كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج - سعود - 05-08-17

لم اتمكن من:
إقتباس :وتحفظ المصفوفة list نفسها فقط في ملف
إقتباس :ثم تقرأ الملف و تسترجع المصفوفة أو تقرأ المصفوفة و تحولها الي مجموعة صور
ما المطلوب حتى اتم هذا الامر.

RE: كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج - silverlight - 05-08-17

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

RE: كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج - سعود - 05-08-17

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

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