MICROSOFT AGENT FAITES PARLER VOS APPLICATIONS DELPHI

Ajoutez la déclaration de la variable Peedy comme suit:

var
  Form1: TForm1;
  Peedy:IAgentCtlCharacterEx;

[--------------------------------------]

Faire apparaître le personnage
La première chose à demander à notre composant Agent est de charger un personnage nommé Peedy et dont les caractéristiques se trouvent dans le fichier 'Peedy.acs'. Puis, de lui demander de se montrer. On peut, par exemple, implémenter l'événement OnShow de la Form1 ainsi : 

procedure TForm1.FormShow(Sender: TObject);
begin
  Agent1.Connected:=True;  
  Agent1.Characters.Load('Peedy', 'Peedy.acs');// chargement du personnage Peedy
                                               // (Characters en anglais veut dire Personnages)
  Peedy:=IAgentCtlCharacterEX(Agent1.Characters.Character('Peedy'));
// Ainsi Peedy représentera, parmi tous les personnages que contient Agent1
                                               // le personnage Peedy chargé précédemment
  Peedy.Show(False);                           // Pour le faire apparaître. 
end;

[-----------------------------------]

Faire parler le personnage
Il faut indiquer à Peedy le langage à utiliser :

Ajouter, toujours dans l'événement OnShow, la ligne suivante :

Peedy.LanguageID:=$40C;//ou $409 pour l'anglais US
Attention à choisir un langage dont vous avez téléchargé le TextToSpeech sur le site Microsoft.

 

Ajoutez un bouton sur votre fiche et implémentez son événement OnClick ainsi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Peedy.Speak('Bonjour monde !','');
end;

Lancez le programme cliquez sur votre bouton, Peedy parle !

-------------------------------------------------------------------
Mise a jour du dimanche :-P
-------------------------------------------------------------------

// pour syncroniser avec des action, 
{Ajoutez la déclaration de la variable Requete1 sous la déclaration de Peedy }

Peedy: IAgentCtlCharacterEx;
Requete1:IAgentCtlRequest;

{ Puis dans le code : }
begin
{code}
  Peedy.Speak('Bonjour monde','');
  Requete1:=Peedy.Speak('Hello word !','');// on identifie ce "Speak"
  genie.wait (requete1) ;

{SUite du code ...
end ;