1 2 3 4 5 6 7 8 9 10 11
|
procedure TForm1.SpVoice1Phoneme(Sender: TObject; StreamNumber: Integer; StreamPosition: OleVariant; Duration: Integer; NextPhoneId: Smallint; Feature: TOleEnum; CurrentPhoneId: Smallint);
const Phonetic: array[1..49] of String=(
'-','!','&',',','.','?','_','1','2','aa','ae','ah','ao','aw',
'ax','ay','b','ch','d','dh','eh','er','ey','f','g','h','ih','iy',
'jh','k','l','m','n','ng','ow','oy','p','r','s','sh','t','th',
'uh','uw','v','w','y','z','zh');
//Cela correspond à la phonétique de la langue anglaise
// (voir l'aide de Microsoft Speech API à "phoneme") |
Partager