Einen text vorlesen lassen

Hallo,
ich will mich jetzt mal versuchen, meinem Computer das sprechen bei zubringen. Habe mir Treiber dafür mal runtergeladen und installiert.

Jetzt habe ich ein Programm geschrieben, was einen bestimmten Text aus einer Textbox lesen soll, bekomme aber stattdessen folgenden Fehler:

Die Methode 'Speak' für das Objekt 'ITextToSpeech' ist fehlgeschlagen!

Ich hoffe ihr könnt mir weiterhelfen....

Die Treiber : http://filebeam.de/user/metin2hacks/spchapi.exe
Das Programm(Quellcode (VB6)): http://filebeam.de/user/metin2hacks/Neuer_Ordner.zip

MFG
PL-q

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 93488

Url: https://administrator.de/contentid/93488

Ausgedruckt am: 22.11.2024 um 09:11 Uhr

6 Kommentare

Neuester Kommentar

Hallo PL-q

Ich hätte hier nen Link, zu nem Tut, der mir sehr geholfen hat. http://www.vbarchiv.net/tipps/details.php?id=1101

mfg vbmaxi

Oh cool, danke. Hat mir sehr geholfen. Funkt jetzt super!

Noch eine Frage:

Ich möchte jetzt noch eine Spracherkennung einbauen:

Quellcode:

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
MsgBox Phrase
End Sub
Private Sub Form_Load()
DirectSR1.GrammarFromFile App.Path & "\SpeechFile.txt"
DirectSR1.GrammarFromString (totaldata)
DirectSR1.Activate
DirectSR1.Listen
End Sub

SpeechFile.txt:

[Grammar]
type=cfg
[<Start>]
<start>=Test

Funktioniert aber nicht! Egal was ich ins Micro reinspreche.....

Hab es doch noch selber mit der Spracherkennung hinbekommen. Mein Problem ist aber, das alles auf Englisch ist! Gibt es irgendein Modul oder sowas, der alles ins Deutsche übersetzt??
Habe auch bei Google gesucht, leider nichts gefunden!
Hoffe ihr könnt mir weiterhelfen....