[محمد]

لماذا لا يعمل ملف صوتى من على النت مثلآ

كود :

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

جميع الطرق كانت تعمل مسبقآ على نفس الملف لاكن الان لا يعمل اى طريقه فلى ماذا ؟

[3amo]

السلام عليكم ورحمة الله وبركاته
اظن والله اعلم بأن الكود الذي استعملته لا يشغل الملفات من على النت: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

[Aly El-Haddad]

محمد كتب :هل يوجد شيئ غير 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 لعرض النسبة المئوية للتحميل



ربما يفيدك أحد الأعضاء بطريقة أفضل..