لماذا لا يعمل ملف صوتى من على النت مثلآ
كود :
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
جميع الطرق كانت تعمل مسبقآ على نفس الملف لاكن الان لا يعمل اى طريقه فلى ماذا ؟
السلام عليكم ورحمة الله وبركاته
اظن والله اعلم بأن الكود الذي استعملته لا يشغل الملفات من على النت:confused:
حاول ان تستعمل أداة الويندوز ميديا بلير
كود :
On Error Resume Next
AxWindowsMediaPlayer1.URL = "http://fortext.webs.com/Music.wav"
AxWindowsMediaPlayer1.Ctlcontrols.play()
بالتوفيق
3amo كتب :السلام عليكم ورحمة الله وبركاته
اظن والله اعلم بأن الكود الذي استعملته لا يشغل الملفات من على النت:confused:
حاول ان تستعمل أداة الويندوز ميديا بلير
كود :
On Error Resume Next
AxWindowsMediaPlayer1.URL = "http://fortext.webs.com/Music.wav"
AxWindowsMediaPlayer1.Ctlcontrols.play()
بالتوفيق
هل يوجد شيئ غير WindowsMediaPlayer
محمد كتب :هل يوجد شيئ غير 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 لعرض النسبة المئوية للتحميل
ربما يفيدك أحد الأعضاء بطريقة أفضل..