TTS : les caractères accentués ne sont pas lus
config : W10, fr et code typhon (5.5)
j'utilise quasiment l'exemple donné sur le wiki Free Pascal
Voici le code sensiblement modifié (juste la chaine de caractère des phrases à lire)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
procedure TForm1.Button1Click(Sender: TObject);
var
SavedCW: Word;
SpVoice: Variant;
begin
SpVoice := CreateOleObject('SAPI.SpVoice');
// Change FPU interrupt mask to avoid SIGFPE exceptions
SavedCW := Get8087CW;
try
Set8087CW(SavedCW or $4);
SpVoice.Speak('Bonjour tout le monde', 0);
spVoice.Speak('Dessiné à la main');
finally
// Restore FPU mask
Set8087CW(SavedCW);
end;
end; |
La lecture de la première phrase est correcte, la seconde défectueuse du fait des caractères accentués.
Que faire pour remédier à cela ? Une idée ? d'avance merci :).