Dernière mise à jour le : dimanche 26 août 2001

Utilisation de Microsoft Agent

Retour au sommaire

Leçon suivante

Comment faire parler le composant Agent

Ouvrez un nouveau projet.

Placez un composant Agent sur votre fiche

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;

Lancez votre programme (F9). Peedy vient se placer en haut à droite de votre écran.

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 !

A ce stade, le source de votre projet doit ressembler à : Source

Leçon suivante

Retour au sommaire