在 SAPI 文本到语音 VB.Net 之前先播放 MediaPlayer 声音答案

【问题标题】：Play MediaPlayer sound first before SAPI text to speech VB.Net在 SAPI 文本到语音 VB.Net 之前先播放 MediaPlayer 声音
【发布时间】：2017-10-03 01:11:42
【问题描述】：

我们使用 Vb.net 2015 和 SQL SERVER 2012 创建了一个排队系统

我们希望程序首先播放叮咚声（通知等待队列），然后播放文本到语音以读取号码并计数器服务它。然而，输出变得相反。它在播放叮咚声之前首先播放文本到语音 [SAPI]。我还注意到，当 SAPI 正在“阅读”文本时，在阅读时时间会冻结。

这是我的代码：

 'play ding dong sound
    Dim fileLoc As String = Application.StartupPath & "\" & "ding dong queue.mp3" '"Reminder.wav" '

    Me.AxWindowsMediaPlayer1.URL = fileLoc

    If (Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying) Then

        'playStateLabel.Text = "Windows Media Player is playing!"

    Else
        Dim tempString As String = ""

        For Each element As Char In lblTicketNoShow.Text 'seperate each number for tts ex. "1 0 0 1"
            tempString = tempString & element & vbTab
        Next


        Dim tts = CreateObject("SAPI.spvoice")
        tts.rate = -4
        tts.volume = 100
        tts.speak("NOW SERVING " & tempString & " on Counter " & lblCounterNo.Text)


    End If

我的代码有什么问题。我错过了什么吗？

【问题讨论】：

标签： vb.net text-to-speech vb.net-2010 sapi windows-media-player

【解决方案1】：

顺便说一句，我想说你不是在等待叮声完成播放。

正如它所写的那样，您在媒体播放器对象上设置 URL，然后立即告诉 SAPI 说话。这是一种竞争条件，显然 SAPI 的速度要快一些，从而导致您看到的行为。

您需要AxWindowsMediaPlayer1 上的PlayStateChange 事件处理程序；当您从PlayStateChange 处理程序获得MediaEnded 事件时，您可以告诉SAPI 读取下一个事件。（您可能还需要一个 SAPI 事件处理程序来告知 SAPI 何时完成。）

【讨论】：

【解决方案2】：

感谢 Eric Brown 我更新了我的代码：

我将事件处理程序添加到我的 AxWindowsPlayer1。这样系统就可以在使用SAPI读取文本之前先判断叮当声是否完成。

Public Sub player_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

    ' Test the current state of the player, display a message for each state.
    Select Case e.newState

        Case 0 ' Undefined
            'currentStateLabel.Text = "Undefined"

        Case 1 ' Stopped
           ' currentStateLabel.Text = "Stopped"

        Case 2 ' Paused
          '  currentStateLabel.Text = "Paused"

        Case 3 ' Playing
           ' currentStateLabel.Text = "Playing"

        Case 4 ' ScanForward
           ' currentStateLabel.Text = "ScanForward"

        Case 5 ' ScanReverse
           ' currentStateLabel.Text = "ScanReverse"

        Case 6 ' Buffering
            'currentStateLabel.Text = "Buffering"

        Case 7 ' Waiting
           ' currentStateLabel.Text = "Waiting"

        Case 8 ' MediaEnded
            'currentStateLabel.Text = "MediaEnded"
            Dim tempString As String = ""

            For Each element As Char In lblTicketNoShow.Text 'seperate each number for tts ex. "1 0 0 1"
                tempString = tempString & element & vbTab
            Next


            Dim tts = CreateObject("SAPI.spvoice")
            tts.rate = -4
            tts.volume = 100
            tts.speak("NOW SERVING " & tempString & " on Counter " & lblCounterNo.Text)

            Dim controls As WMPLib.IWMPControls3 = Me.AxWindowsMediaPlayer2.Ctlcontrols

            ' Check first to be sure the operation is valid. 
            If (controls.isAvailable("play")) Then

                controls.play()

            End If

        Case 9 ' Transitioning
           ' currentStateLabel.Text = "Transitioning"

        Case 10 ' Ready
            'currentStateLabel.Text = "Ready"

        Case 11 ' Reconnecting
            'currentStateLabel.Text = "Reconnecting"

        Case 12 ' Last
            'currentStateLabel.Text = "Last"

        Case Else
            'currentStateLabel.Text = ("Unknown State: " + e.newState.ToString())

    End Select

End Sub

【讨论】：