تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرح برمجة مشغل افلام flv على الجهاز
#1

تحدثت بالموضوع التالي:
شرح بسيط كيفية تصميم ملف(swf) لتشغيل ملفات فيديو الفلاش flv

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

التعامل مع الفلاش في الويب مرن كثيرا فتستطيع تشغيل اي فيلم بالجهاز او بموقع آخر والرابطين فيهما الطريقة
___________________________
لكن لاتحدث عن كيف استخدم الملف player.swfفي تطبيق مكتبي؟
الامر بسيط جدا فقط يكفي متغير من نوع نص نسند له جملة الاتصال بلملف التشغيل player.swf
وحيث انني واجهت اشكال عدم تشغيل اي فيلم ليس مجاورا لملف التشغيل player.swf
اضطررت لحيلة وهي استخراج ملف التشغيل عند سرد كل مجلد
بمعنى لو حبيت اضيف كافة ملفات مجلد معين ضمن اداة القائمة listbox فاني بعدها ساستخرج ملف التشغيل player.swf الى ذلك المجلد واقوم بتخزين المسار الى متغير

الكود التالي يقوم باستعراض مجلد يختاره المستخدم ويسحب كافة اسماء الملفات التي بامتداد flv ويضيفها الى اداة القائمة

اولا نعرف متغير عمومي نصي
كود :
Dim swp As String


كود :
'getfilmsnames
        listoffilms.Items.Clear()
        Dim fbd As New FolderBrowserDialog

        If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If fbd.SelectedPath <> "" Then
                For Each fl In IO.Directory.GetFiles(fbd.SelectedPath & "\")
                    Dim fn As String = IO.Path.GetFileName(fl)
                    If fn.EndsWith(".flv") Then
                        listoffilms.Items.Add(fn)
                    End If

                Next

            End If
            My.Computer.FileSystem.WriteAllBytes(fbd.SelectedPath & "\player.swf", My.Resources.player, False)
            swp = fbd.SelectedPath & "\player.swf"
        End If

الكود التالي ضمن حدث نقر زر الفارة لاداة القائمة
كود :
Dim fp As String = IO.Path.GetFullPath(listoffilms.Text)
        If fp.EndsWith("flv") Then
            AxShockwaveFlash1.Movie = swp & "?file=" & listoffilms.Text

        Else
            MsgBox("NOOOOOOO", MsgBoxStyle.Critical)
        End If

الان كل مجلد افلام سيتم استخراج ملف التشغيل player.swf ليتم تشغيل الافلام به
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
شكراً جزيلا لك اخي سعود
جزاك الله كل خير
الرد }}}}
تم الشكر بواسطة:
#3
يسلموو اخ سعود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] أرجو التصويت لابدا شرح برمجة اطار محادثة بين طرف واطراف على الاتصال المحلي او العام سعود 13 3,649 21-06-16, 09:31 PM
آخر رد: سعود
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 413 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  [حصرياً] و لأول مرة : درس برمجة لعبة x-o أسامة أحمد 4 1,443 04-03-15, 12:46 PM
آخر رد: abulayth
  برمجة قواعد البيانات sql server + vb.net ابوهديل 1 5,822 13-02-14, 08:26 PM
آخر رد: Omar Mekkawy
  برمجة قواعد البيانات SQL Server + vb.net مع ابو عبد الرحمن مبرمج أوتار 3 2,459 07-06-13, 06:09 AM
آخر رد: مبرمج أوتار
  كود مشغل mp3 , wav , avi , asf , mdi ,wmv m.sami.ak 6 1,116 25-05-13, 01:13 PM
آخر رد: shaker.soft
  دروس فيديو لتعليم برمجة الاوتوكاد بالفيجوال دوت نت RaggiTech 5 1,003 03-10-12, 02:27 PM
آخر رد: RaggiTech
  برمجة سعيدة مع Implicit Line Continuation RaggiTech 0 420 03-10-12, 01:40 AM
آخر رد: RaggiTech
  الحلقة السابعة من السلسلة 167- استخراج جميع معلومات الجهاز RaggiTech 4 636 02-10-12, 04:28 PM
آخر رد: RaggiTech
  الآن تعلم برمجة مفتاح ساخن HotKey بالفيجوال بيسك دوت نت RaggiTech 0 751 02-10-12, 08:23 AM
آخر رد: RaggiTech

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


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