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