Sprachausgabe
Hallo,
ich möchte eine Programm erstellen in dem man einen Text eingeben kann und ihn sich dann vorlesen lassen kann. Mein Problem ist die Sprachausgabe. Habe zwar schon rumgesucht und was gefunden und einiges runtergeladen aber irgenwie verstehe ich das net :gruebel: Gibt es nicht eine einfache Kompo die Sprache ausgeben kann? Danke im Voraus :cheers: |
Re: Sprachausgabe
Mal geschaut ? Sprachausgabe :gruebel:
Wie und was verstehst du denn nicht ? //sorry, zu früh senden an stelle von vorschau ;) |
Re: Sprachausgabe
Also eine englische Sprachausgabe ist nicht das Problem:Text vorlesen lassen :wink:
|
Re: Sprachausgabe
Das hier geschilderte Programm habe ich runtergeladen und Installiert. Das gibt es zwar Beispiele aber nur in CS und VB. Mein Problem das kann ich nich. Und wirklich was mit Sprachausgabe habe ich nicht gefunden.
|
Re: Sprachausgabe
danke Konda jetzt weiss ich. :thumb:
Nachtrag: Und das mit den ganzen text vorlesen ist auch einfach:
Delphi-Quellcode:
function ReadText(Text: TStrings): Boolean; stdcall;
var i: integer; Line: string; Voice: OLEVariant; begin try Voice := CreateOLEObject('SAPI.SpVoice'); for i:=0 to Text.Count-1 do begin Line:=Text.Strings[i]; Voice.Speak(Line, 0); end; Result:=True; finally Result:=False; end; end; |
Re: Sprachausgabe
Hi,
Zitat:
cu |
Re: Sprachausgabe
schaue mal hier:
http://www.webspeech.de/index1.php die haben auch komponenten für delphi! hatte mal mit denen mailkontakt! |
Re: Sprachausgabe
verdammt ich bin so ein idiot das muss natürlich except heissen und nich finally!
Delphi-Quellcode:
das funzt aber nur wenn Voice eine Exception ausgibt.
function ReadText(Text: TStrings): Boolean; stdcall;
var i: integer; Line: string; Voice: OLEVariant; begin try Voice := CreateOLEObject('SAPI.SpVoice'); for i:=0 to Text.Count-1 do begin Line:=Text.Strings[i]; Voice.Speak(Line, 0); end; Result:=True; except //<------ Result:=False; end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz