شرح برمجة مشغل افلام flv على الجهاز

تحدثت بالموضوع التالي:
شرح بسيط كيفية تصميم ملف(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 ليتم تشغيل الافلام به