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)
La lecture de la première phrase est correcte, la seconde défectueuse du fait des caractères accentués.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Que faire pour remédier à cela ? Une idée ? d'avance merci .
Partager