[الشاكي لله]

تفضلوا التطبيق

بما انه بالسي شارب سأضع الدالة الرئيسية لجلب الصوت وتشغيله >

PHP كود :

Private Sub DownloadAndPlay()
    Try
        'main delecration'
        Dim soundData As Byte()
        Dim url As String = String.Format("http://translate.google.com/translate_tts?tl={0}&q={1}", comboBox1.Text.ToLower(), textBox1.Text.Trim())

        'create requset'
        Dim rq As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
        rq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0"

        'read response'
        Dim response As HttpWebResponse = TryCast(rq.GetResponse(), HttpWebResponse)
        Using stream As New BinaryReader(response.GetResponseStream())
            soundData = stream.ReadBytes(CInt(response.ContentLength))
            stream.Close()
            response.Close()
        End Using


        'create voice file in windows-temprary folder'
        Dim tempFilePath As String = CreateTempFile(soundData)

        'play temprary-file sound'
        PlaySound(tempFilePath)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

Private Function CreateTempFile(data As Byte()) As String
    'sound format is mpeg'
    Dim soundFileName As String = System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".mpeg"
    File.WriteAllBytes(soundFileName, data)
    Return soundFileName
End Function

Private Sub PlaySound(file As String)
    'initlize player'
    Dim player As New WMPLib.WindowsMediaPlayer()
    player.settings.volume = 100
    player.settings.autoStart = True
    AddHandler player.PlayStateChange, AddressOf player_PlayStateChange
    player.URL = file
End Sub

Private Sub player_PlayStateChange(NewState As Integer)
    Application.DoEvents()
    If NewState = CInt(WMPLib.WMPPlayState.wmppsMediaEnded) Then
        'release everything'
        toolStripProgressBar1.Style = ProgressBarStyle.Blocks
    End If
End Sub 


طبعا لاتنسوا اضافة مكتبة Windows Media Player المسؤولة عن تشغيل الاصوات (موجود في تاب COM في Add Reference)