تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها
#1
السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين
الرد
تم الشكر بواسطة:
#2
(21-02-21, 11:40 AM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

وعليكم السلام ورحمة الله وبركاته
هذا الكود استخدمته من قبل وهو يعمل جيدا
هناك اكواد اخرى تقوم بالمطلوب
لكن هذا ميزته السرعة

كود :
Dim w As New WMPLib.WindowsMediaPlayer
   Dim m As WMPLib.IWMPMedia ' = w.newMedia(file)

OpenFileDialog1.Title = "اختر ملفا صوتيا"
       OpenFileDialog1.Multiselect = True
       OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|"
       OpenFileDialog1.FileName = "*.mp3"

If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
           Cursor = Cursors.WaitCursor
           Application.DoEvents()
           '  TimerDuration.Enabled = True
           For Each file As String In OpenFileDialog1.FileNames
             
               m = w.newMedia(file)
               If m IsNot Nothing Then
                   Duration = m.durationString
                   Durationa = m.duration
               End If
               w.close()
   
 Lst = ListView1.Items.Add(IO.Path.GetFileName(file))
                Lst.SubItems.Add(Duration)
           Next
End If
واسند الناتج الى ليست فيو
الرد
تم الشكر بواسطة: asmarsou , ابو روضة , ابو روضة
#3
(21-02-21, 12:36 PM)alfaiz678 كتب :
(21-02-21, 11:40 AM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

وعليكم السلام ورحمة الله وبركاته
هذا الكود استخدمته من قبل وهو يعمل جيدا
هناك اكواد اخرى تقوم بالمطلوب
لكن هذا ميزته السرعة

كود :
Dim w As New WMPLib.WindowsMediaPlayer
   Dim m As WMPLib.IWMPMedia ' = w.newMedia(file)

OpenFileDialog1.Title = "اختر ملفا صوتيا"
       OpenFileDialog1.Multiselect = True
       OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|"
       OpenFileDialog1.FileName = "*.mp3"

If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
           Cursor = Cursors.WaitCursor
           Application.DoEvents()
           '  TimerDuration.Enabled = True
           For Each file As String In OpenFileDialog1.FileNames
             
               m = w.newMedia(file)
               If m IsNot Nothing Then
                   Duration = m.durationString
                   Durationa = m.duration
               End If
               w.close()
   
 Lst = ListView1.Items.Add(IO.Path.GetFileName(file))
                Lst.SubItems.Add(Duration)
           Next
End If
واسند الناتج الى ليست فيو
تمام التمام ...اتم الله عليك بوافر النعم و كفاك شر النقم كلانا وكل من اتبع قائلا آمين
الف شكر اخي الكريم
الرد
تم الشكر بواسطة: ابو روضة



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


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