Faire parler votre application Delphi avec Acapela Multimedia

Publié le 07/06/2006 Dans Programmation

1. Installation
2. On lance Delphi!
3. » Et si on codait?
4. Et ça donne?

Et si on codait?

On est donc parti! On va donc commencer par créer le composant dans le FormCreate.

Le ConnectEngine est obligatoire pour pouvoir commencer à utiliser Acapela. Les 3 paramètres sont obligatoires et ne peuvent être que ces valeurs, pas trop de problème donc pour le moment.

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
FSpeech := TAASpeechCtrl.Create(self);
if FSpeech.ConnectEngine(1, 0, '') <> 0 then
raise Exception.Create('Unable to connect to the API');
FSpeechVoice := -1;
end;

Après création du contrôle, on peut maintenant faire la liste des voix disponibles. Pour la démonstration, seules les voix francophones ont été installées, mais il existe des dizaines de voix dans toutes les langues les plus courantes.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
case FSpeech.Enumerate of
EAS_NOT_CONNECTED:
raise Exception.Create('API Not connected');
EAS_NOT_ENOUGH_MEMORY:
raise Exception.Create('Not enough memory');
EAS_SRV_NOTRUNNING:
raise Exception.Create('SRV Not Running');
end;
for i:=0 to FSpeech.VoiceCount-1 do
ListBox1.Items.Add(FSpeech.Voice[ i ].Speaker);
end;

Si tout s'est bien déroulé jusqu'ici, il ne reste maintenant plus qu'à faire parler notre application... Et rien de plus simple à vrai dire.

On sélectionne tout d'abord la voix dans la listbox et on utilise le .cmd au lieu du .speaker. Une fois la voix chargée, il suffit d'utiliser la fonction speak avec le texte à annoncer.

Code:

procedure TForm1.Button2Click(Sender: TObject);
begin
if ListBox1.ItemIndex = -1 then
raise Exception.Create('Please select a voice first');
if FSpeechVoice <> ListBox1.ItemIndex then
begin
if FSpeechVoice <> -1 then
FSpeech.Unload;
FSpeechVoice := ListBox1.ItemIndex;
FSpeechVoiceID := FSpeech.Load(FSpeech.Voice[FSpeechVoice].Cmd);
end;
FSpeech.Speak(Memo1.Text, FSpeechVoiceID);
end;

Pour être un tant soit peu soigneux, il ne faudrait pas non plus oublier d'unloader de moteur TTS (Text To Speech), d'appeler la méthode de fermeture du moteur et de le libérer.

Code:

procedure TForm1.FormDestroy(Sender: TObject);
begin
FSpeech.Unload;
FSpeech.DisconnectEngine;
FreeAndNil(FSpeech);
end;

C'était un bref aperçu, on peut utiliser ce code pour commencer à faire parler son application Delphi, mais il est encore possible de paramétrer pleins de choses comme la vitesse, le pitch, le volume et de réagir à toute une série d'événement pour savoir quand le TTS a terminé de parler, etc, etc...

Tout cela est parfaitement documenté dans le fichier AcaMul-ActiveX-6.pdf d'Acapela.

Plus d'articles dans cette catégorie

23/01/2023 @ 09:56:23
Mesure d'énergie électrique et transmission radio DASH7

20/01/2014 @ 23:10:59
Du changement dans la gamme Small Business de CISCO.

11/11/2013 @ 21:21:35
Test de Embarcadero Studio RAD XE5

26/04/2011 @ 10:16:00
Votre première application Android en 5 minutes avec Flex

12/11/2008 @ 22:33:41
Protection d'application, un système de licence simple

15/11/2007 @ 14:47:59
Intégration de la carte d'identité électronique EID dans une page web

19/09/2007 @ 18:56:16
6 conseils pour écrire du meilleur code

09/11/2006 @ 20:04:30
Test de Borland Turbo Delphi!

05/09/2006 @ 18:25:38
Créer un PDC avec Samba

14/03/2006 @ 17:42:38
Programmation d'un lecteur de carte d'identité belge en Delphi, l'ACR38U

Commentaires

Faire parler votre application Delphi avec Acapela Multimedia

Caroline et Pierre peuvent aller se rhabiller, c'est trop naze :rofl:

Mais Bruno et Claire wouw p'tain respect, on dirait des vrais :prosterne:

Par ovh, Publié le 07/06/2006 @ 20:56:17

Faire parler votre application Delphi avec Acapela Multimedia

Ce sont des voix haute qualité bruno et claire. Claire est réellement... claire :grin:

C'est assez impressionant à écouter et à faire parler sur sa propre machine. Dommage que l'on ne puisse s'amuser que 30 jours avec ce petit jouet sinon je me ferais un plaisir de programmer l'un ou l'autre automatisme pour m'annoncer des événements. (en gros comme le nabaztag, mais sur ma machine :joce: