none
SAPI Text to Speech Stimme wechseln RRS feed

  • Frage

  • Je weiter ich komme umso mehr Fragen tauchen auf.

    Jetzt habe ich in einer ComoBox alle auf dem PC installierten SAPI-Synthesizer aufgelistet und möchte einen Text sprechen lassen.
    Das habe ich soweit hinbekommen, dass ich die Sprechgeschwindigkeit und Lautstärke geregelt kriege.

    Dim SAPI As Object
            SAPI = CreateObject("SAPI.spvoice")
            SAPI.Rate = Tb_SpeedRate.Value
            SAPI.Volume = Tb_Volume.Value
    
            VoicesLoad = ActiveVoice & Me.Cbo_Voice.SelectedItem.ToString()
            SAPI.Speak(VoicesLoad, SpeechLib.SpeechVoiceSpeakFlags.SVSFlagsAsync)

    Nun brauche ich noch Unterstützung bei folgenden Problemen:

    1. Eine andere Stimme auswählen. Aktuell spricht mein PC zwar den Text in der ComboBox aber immer mit der selben Stimme
    2. Stopp
    3.Pause
    4. Weiterreden
    5. Einen Satz vor oder zurück. 

    Ich glaube die Befehle wie SAPI.Stop(), SAPI.Pause(), SAPI.Resume(), SAPI.Skip("Sentence") gelesen zu haben, bekomme das aber ohne Hilfe nicht hin :-(

    Gruß

    Stefan


    Montag, 12. August 2019 19:47

Antworten

  • Also ein Großteil habe ich selbst lösen können:

    SAPI.Pause()
    SAPI.Resume()
    SAPI.Skip("Sentence",1) bzw. SAPI.Skip("Sentence", -1) wenn ein Satz zurück 

    habe ich gefunden und konnte ich umsetzen.

    Ich habe bei der gleichen Quelle auch:
    SAPI.Speack (String.Empty, SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) gefunden. Das geht aber nicht.

    • Als Antwort markiert Sirius32ds Mittwoch, 14. August 2019 13:22
    Montag, 12. August 2019 20:40