Microsoft Speech API en Delphi

12/09/2003

Par Yoann
 

Cet article a pour but de montrer l'utilisation de Microsoft Speech API en Delphi

Uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var voix: variant;
begin
  //Crée un objet unique non initialisé de la classe spécifiée par le paramètre 'SAPI.SpVoice';
  voix:=CreateOLEObject('SAPI.SpVoice');
  //L'ordinateur dit "Bonjour"
  voix.Speak('Bonjour');
  //Assigne une valeur vierge à la variable de type variant
  voix:=UnAssigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //L'ordinateur dit "Bonjour"
  SpVoice1.Speak('Bonjour',SVSFDefault);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Volume du son (de 0 à 100)
  SpVoice1.Volume:=TrackBar1.Position;
  //Vitesse de lecture (de -10 à 10)
  SpVoice1.Rate:=TrackBar2.Position;
  //L'ordinateur lit le texte contenu dans le memo
  SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);
  // "SVSFlagsAsync" permet de travailler avec le composant de manière asynchrone.
  // Ceci permet d'afficher dans le Memo2, la phonétique pendant la lecture non à
  // la fin de la lecture
  //Donne la focalisation au contrôle (pour que l'on puiss sélectionné le texte
  // qui est en train d'être lu)
  Memo1.SetFocus;
end;

procedure TForm1.SpVoice1Word(Sender: TObject; StreamNumber: Integer;
     StreamPosition: OleVariant; CharacterPosition, Length: Integer);
begin
  //Sélectionne le mot qui est en train d'être lu
  Memo1.SelStart:=CharacterPosition; //Position du premier caractère
  Memo1.SelLength:=Length; //Position du dernier caractère
end;

Uses ActiveX;

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")
begin
  //Si la phonétique n'est pas un espace (le caractère "_" correspond à un espace)
  if CurrentPhoneId<>7 then
    //Ajoute la phonétique (#32 correspond à un espace)
    Memo2.Text:=Memo2.Text+Phonetic[CurrentPhoneId]+#32;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SpVoice1.Speak(Memo1.Text,SVSFIsXML); //Lit le texte du memo
end;