تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ظهور خطاء عند تشغيل ملف صوتى
#1
لماذا لا يعمل ملف صوتى من على النت مثلآ
كود :
My.Computer.Audio.Play("http://fortext.webs.com/Music.wav")
و هذا
      My.Computer.Audio.Play("http://fortext.webs.com/Music.wav",AudioPlayMode.BackgroundLoop)
و ايضآ هذا
        Try
            Dim a As New Media.SoundPlayer("http://fortext.webs.com/Music.wav")
            a.Play()
        Catch ex As Exception

        End Try
جميع الطرق كانت تعمل مسبقآ على نفس الملف لاكن الان لا يعمل اى طريقه فلى ماذا ؟
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اظن والله اعلم بأن الكود الذي استعملته لا يشغل الملفات من على النت:confused:
حاول ان تستعمل أداة الويندوز ميديا بليرBig Grin
كود :
On Error Resume Next
        AxWindowsMediaPlayer1.URL = "http://fortext.webs.com/Music.wav"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
3amo كتب :السلام عليكم ورحمة الله وبركاته
اظن والله اعلم بأن الكود الذي استعملته لا يشغل الملفات من على النت:confused:
حاول ان تستعمل أداة الويندوز ميديا بليرBig Grin
كود :
On Error Resume Next
        AxWindowsMediaPlayer1.URL = "http://fortext.webs.com/Music.wav"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
بالتوفيق
هل يوجد شيئ غير WindowsMediaPlayer
الرد }}}
تم الشكر بواسطة:
#4
محمد كتب :هل يوجد شيئ غير WindowsMediaPlayer

هناك طريقة أخرى لكنها مملة قليلاً، و هي أن تقوم بتحميل الملف و من ثم تشغيله

يمكنك القيام بذلك بالكود التالي:
كود :
Imports System.Net
Imports System.IO
Imports System.Media

Public Class Form1

    Const URL As String = "http://fortext.webs.com/Music.wav"
    Private WithEvents client As New WebClient
    Private file As Byte()
    Private fileStream As MemoryStream
    Private player As SoundPlayer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        client.DownloadDataAsync(New Uri(URL))
    End Sub

    Private Sub client_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs) Handles client.DownloadDataCompleted
        Me.file = e.Result
        Me.fileStream = New MemoryStream(Me.file)
        player = New SoundPlayer(Me.fileStream)
        player.Play()
    End Sub

    Private Sub client_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
        Label1.Text = e.ProgressPercentage & "%"
    End Sub
End Class
Button1 لبدئ التحميل و تشغيل الملف فور الأنتهاء منه
Label1 لعرض النسبة المئوية للتحميل



ربما يفيدك أحد الأعضاء بطريقة أفضل..
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 672 14-12-23, 12:07 PM
آخر رد: asmarsou
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 238 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  استفسار عن تشغيل قاعدة البيانات بالبرنامج عند العميل محمد ابوخليل 1 335 10-09-23, 07:09 PM
آخر رد: Asem2
Rainbow ظهور البيانات كامله محمد مسافر 2 352 16-08-23, 01:40 AM
آخر رد: Taha Okla

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


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