6
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 93488
Url: https://administrator.de/contentid/93488
Printed on: April 16, 2024 at 23:04 o'clock
6 Comments
Latest comment
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
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.....
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....
Habe auch bei Google gesucht, leider nichts gefunden!
Hoffe ihr könnt mir weiterhelfen....
Hallo,
kleine frage könntest du mir das Porgramm mal per Email schicken?
Zu deiner Frage mit dem Deutsch:
im [Grammar]-Abschnitt einsetzten:
mfg maxi
kleine frage könntest du mir das Porgramm mal per Email schicken?
Zu deiner Frage mit dem Deutsch:
im [Grammar]-Abschnitt einsetzten:
langid = 1031mfg maxi
Danke für den Tipp!
und hats funktioniert???
mfg Maxi
mfg Maxi
