السلام عليكم ورحمة الله وبركاته
كيف .ندمج صور متعددة بملف واحد ثم نقوم باستخراجها فقط وقت تشغيل البرنامج لنعرضها في مربع صورة
احاول محاكاة مشغل خاص
لا اقصد جمع صور لصورة متحركة لا
وانما دمج عدة صور اود تخزينها جميعا بملف واحد وعند نقر زر تشغيل يتم استعراض الصور باي طريقة المهم كيف البداية.
شكر الله لكم
غالبا مع هذا الاسلوب أنت لا تحتاج ان تحفظ اسم ملف الصورة
في مشروع منفصل عليك إضافة الصور بالترتيب الذي تحدده أنت الي مصفوفة 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 نفسها فقط في ملف
إقتباس :ثم تقرأ الملف و تسترجع المصفوفة أو تقرأ المصفوفة و تحولها الي مجموعة صور
ما المطلوب حتى اتم هذا الامر.
ما تحفظ الصور في ملف داتابيز حتي تستريح من الطريق الطويل هذا
(05-08-17, 12:19 PM)silverlight كتب : [ -> ]ما تحفظ الصور في ملف داتابيز حتي تستريح من الطريق الطويل هذا
اظن فعلا سالجا للطريقة هذي.
بارك الله فيك