تقييم الموضوع :
  • 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
يسلموو اخ سعود
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] اضافة ملف مشغل لصفحة html و جافاسكريبت و سي اس اس بفيجوال بيسك.(قد لا اكون اصبت بالتع سعود 1 917 17-04-23, 08:31 AM
آخر رد: سعود
  الحلقة السابعة من السلسلة 167- استخراج جميع معلومات الجهاز RaggiTech 5 4,494 29-06-21, 05:29 AM
آخر رد: kebboud
  [VB.NET] برمجة dynamic Buttons مع قواعد البيانات mgr21002100 1 2,853 13-08-19, 05:36 PM
آخر رد: asemshahen5
Information [VB.NET] برمجة dynamic Buttons mgr21002100 2 2,698 13-08-19, 05:00 AM
آخر رد: mgr21002100
  [مقال] برمجة إتصال TCP عبر الشبكة المحلية Fantastico 1 2,432 09-11-17, 04:57 PM
آخر رد: Amir_Alzubidy
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 3,333 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  [حصرياً] و لأول مرة : درس برمجة لعبة x-o أسامة أحمد 4 5,508 04-03-15, 12:46 PM
آخر رد: abulayth
  برمجة قواعد البيانات sql server + vb.net ابوهديل 1 9,282 13-02-14, 08:26 PM
آخر رد: Omar Mekkawy
  برمجة قواعد البيانات SQL Server + vb.net مع ابو عبد الرحمن مبرمج أوتار 3 6,613 07-06-13, 06:09 AM
آخر رد: مبرمج أوتار
  كود مشغل mp3 , wav , avi , asf , mdi ,wmv m.sami.ak 6 3,628 25-05-13, 01:13 PM
آخر رد: shaker.soft

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


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