Discussion :

[Ardely]

Bonjour,

J'ai un composant SpVoice (SAPI 5.1) ou je sauvegare un text fichier sous windows XP 32 qui fonction bien, malheureusement sous windows 7 64-bit je recois une erreur 'Floating point division by zero', j'ai chercher, fait des modifs, mais j'ai rien trouver qui puisse fonctionner...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 FileName := 'test1.wav';
 SpFileStream1 := TSpFilestream.Create(nil);
 SPVoice1 := TSpVoice.Create(nil);
 SpFileStream1.Open(FileName, SSFMCreateForWrite, False);
 SpVoice1.AudioOutputStream := SPFileStream1.DefaultInterface;
 SpVoice1.Speak('Hello world', SVSFDefault);
 SpVoice1.WaitUntilDone(Infinite);
 SPFileStream1.Close;
 SPVoice1.Free;
 
end;

Je vous remercie d'avance pour m'aider à faire une correction de cette procédure, merci

Salutation
Ardely

[Ardely]

Bonjour,
Je n'est pas encore pu résoudre mon problème...
Pouvez-vous me conseillé ou je puisse trouve une bonne documentation sur «*Text To Speech*»
Par exemple: comment trouver quel paramètre exit-il encore pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
SpVoice1.WaitUntilDone(Infinite);
SpVoice1.WaitUntilDone( ou ?);
 
SpFileStream1.Open(FileName, SSFMCreateForWrite, False);
SpFileStream1.Open(FileName, ou ?, False);

sans passer par Delphi Ctrl-Space ..

Je vous remercie pour les infos.

[ShaiLeTroll]

La MSDN Speech Synthesis (Microsoft.Speech) est déjà un début

SpVoice WaitUntilDone method (SAPI 5.3) et le SpVoice en général

SpFileStream Open Method (SAPI 5.3), SpeechStreamFileMode (SAPI 5.3) et plus généralement SpFileStream Interface (SAPI 5.3)