Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
 
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?
On lance Delphi!
Première étape, on va importer la librairie Acapela pour pouvoir utiliser le contrôle ActiveX dans Delphi. Plus besoin de s'amuser à lire des headers en C et de tenter des les convertir, les interfaces simplifient grandement le travail.

images/articles/article785/003.png

Après avoir cliqué sur "Import ActiveX Control", il faut ensuite locliser la librairie d'Acapela dans la liste, à savoir ASASpeechCtl. Une fois cela fait, on clique ensuite sur "Create Unit" pour générer le code du composant permettant d'utiliser la librairie.

images/articles/article785/004.png

Comme pour ton nouveau composant Delphi, il faut maintenant l'installer dans un package et ensuite compiler et installer le package pour avoir accès au nouveau composant.

images/articles/article785/005.png

Code:
  1. type 
  3. // *********************************************************************// 
  4. // Forward declaration of types defined in TypeLibrary  
  5. // *********************************************************************// 
  6.   _IAASpeechCtrlEvents = dispinterface; 
  7.   IAAVoiceCtrl = interface; 
  8.   IAAVoiceCtrlDisp = dispinterface; 
  9.   IAASpeechCtrl = interface; 
  10.   IAASpeechCtrlDisp = dispinterface; 
  12. // *********************************************************************// 
  13. // Declaration of CoClasses defined in Type Library  
  14. // (NOTE: Here we map each CoClass to its Default Interface)  
  15. // *********************************************************************// 
  16.   AASpeechCtrl = IAASpeechCtrl; 
  17.   AAVoiceCtrl = IAAVoiceCtrl; 
  20. // *********************************************************************// 
  21. // DispIntf: _IAASpeechCtrlEvents 
  22. // Flags: (4096) Dispatchable 
  23. // GUID: {68C6D73C-A7EB-4899-BFA7-960793CF0EF6} 
  24. // *********************************************************************// 
  25.   _IAASpeechCtrlEvents = dispinterface 
  26.     ['{68C6D73C-A7EB-4899-BFA7-960793CF0EF6}'] 
  27.     procedure AudioOpen; dispid 1; 
  28.     procedure AudioClose; dispid 2; 
  29.     procedure TextStart(lTextId: Integer); dispid 3; 
  30.     procedure TextEnd(lTextId: Integer); dispid 4; 
  31.     procedure WordPosition(lTextId: Integer; lWordPos: Integer; lByteCount: Integer); dispid 5; 
  32.     procedure Phoneme(lTextId: Integer; sEnginePhoneme1: Smallint; sEnginePhoneme2: Smallint;  
  33.                       sIPAPhoneme1: Smallint; sIPAPhoneme2: Smallint; lDuration: Integer;  
  34.                       lByteCount: Integer); dispid 6; 
  35.     procedure AudioData(lTextId: Integer; lDataCount: Integer; lDataSize: Integer); dispid 7; 
  36.     procedure LastError(lErrorCode: Integer); dispid 8; 
  37.     procedure AcaPhoneme(lTextId: Integer; sEnginePhoneme1: Smallint; sEnginePhoneme2: Smallint;  
  38.                          sEnginePhoneme3: Smallint; sEnginePhoneme4: Smallint;  
  39.                          sIPAPhoneme1: Smallint; lDuration: Integer; lByteCount: Integer); dispid 9; 
  40.     procedure MouthPosition(lTextId: Integer; sIPAPhoneme1: Smallint; sMouthPos1: Smallint;  
  41.                             sMouthPos2: Smallint; sMouthPos3: Smallint; sMouthPos4: Smallint;  
  42.                             sMouthPos5: Smallint; sMouthPos6: Smallint; sMouthPos7: Smallint;  
  43.                             sMouthPos8: Smallint; lDuration: Integer; lByteCount: Integer); dispid 10; 
  44.   end; 
  46. // *********************************************************************// 
  47. // Interface: IAAVoiceCtrl 
  48. // Flags: (4416) Dual OleAutomation Dispatchable 
  49. // GUID: {B94DA5AB-91C0-4B1A-B0E4-E45A0075905F} 
  50. // *********************************************************************// 
  51.   IAAVoiceCtrl = interface(IDispatch) 
  52.     ['{B94DA5AB-91C0-4B1A-B0E4-E45A0075905F}'] 
  53.     function Get_Cmd: WideString; safecall; 
  54.     function Get_Gender: Smallint; safecall; 
  55.     function Get_Language: Integer; safecall; 
  56.     function Get_Speaker: WideString; safecall; 
  57.     function Get_Index: Smallint; safecall; 
  58.     function Get_Frequency: Integer; safecall; 
  59.     property Cmd: WideString read Get_Cmd; 
  60.     property Gender: Smallint read Get_Gender; 
  61.     property Language: Integer read Get_Language; 
  62.     property Speaker: WideString read Get_Speaker; 
  63.     property Index: Smallint read Get_Index; 
  64.     property Frequency: Integer read Get_Frequency; 
  65.   end; 
  67. // *********************************************************************// 
  68. // DispIntf: IAAVoiceCtrlDisp 
  69. // Flags: (4416) Dual OleAutomation Dispatchable 
  70. // GUID: {B94DA5AB-91C0-4B1A-B0E4-E45A0075905F} 
  71. // *********************************************************************// 
  72.   IAAVoiceCtrlDisp = dispinterface 
  73.     ['{B94DA5AB-91C0-4B1A-B0E4-E45A0075905F}'] 
  74.     property Cmd: WideString readonly dispid 1; 
  75.     property Gender: Smallint readonly dispid 3; 
  76.     property Language: Integer readonly dispid 4; 
  77.     property Speaker: WideString readonly dispid 5; 
  78.     property Index: Smallint readonly dispid 6; 
  79.     property Frequency: Integer readonly dispid 7; 
  80.   end; 
  82. // *********************************************************************// 
  83. // Interface: IAASpeechCtrl 
  84. // Flags: (4416) Dual OleAutomation Dispatchable 
  85. // GUID: {543BD792-CB83-4E88-8868-FC8392ABD9D6} 
  86. // *********************************************************************// 
  87.   IAASpeechCtrl = interface(IDispatch) 
  88.     ['{543BD792-CB83-4E88-8868-FC8392ABD9D6}'] 
  89.     function ConnectEngine(nConnectionMode: SYSINT; nPort: SYSINT;  
  90.                            const bstrServerAddress: WideString): Integer; safecall; 
  91.     function DisconnectEngine: Integer; safecall; 
  92.     function Enumerate: Integer; safecall; 
  93.     function Load(const bstrCmd: WideString): Integer; safecall; 
  94.     function Unload: Integer; safecall; 
  95.     function Speak(const bstrText: WideString; lTextId: Integer): Integer; safecall; 
  96.     function Stop: Integer; safecall; 
  97.     function Pause: Integer; safecall; 
  98.     function Resume: Integer; safecall; 
  99.     function EventMask(ulEvtMask: Integer): Integer; safecall; 
  100.     function GetVarAudioData(vData: OleVariant): Integer; safecall; 
  101.     function GetAudioData(var pData: Integer; lDataSize: Integer): Integer; safecall; 
  102.     function Get_Voice(nIndex: SYSINT): IAAVoiceCtrl; safecall; 
  103.     function Get_CurrentVoice: IAAVoiceCtrl; safecall; 
  104.     function Get_VoiceCount: Smallint; safecall; 
  105.     function Get_Output: Smallint; safecall; 
  106.     procedure Set_Output(pVal: Smallint); safecall; 
  107.     function Get_FileName: WideString; safecall; 
  108.     procedure Set_FileName(const pbstrFileName: WideString); safecall; 
  109.     function Get_Volume: Smallint; safecall; 
  110.     procedure Set_Volume(pVal: Smallint); safecall; 
  111.     function Get_Pitch: Smallint; safecall; 
  112.     procedure Set_Pitch(pVal: Smallint); safecall; 
  113.     function Get_Speed: Smallint; safecall; 
  114.     procedure Set_Speed(pVal: Smallint); safecall; 
  115.     function Get_Status: Smallint; safecall; 
  116.     function Get_LastError: Integer; safecall; 
  117.     procedure Set_OEMKey(const Param1: WideString); safecall; 
  118.     procedure ServerShutdown(nState: SYSINT); safecall; 
  119.     property Voice[nIndex: SYSINT]: IAAVoiceCtrl read Get_Voice; 
  120.     property CurrentVoice: IAAVoiceCtrl read Get_CurrentVoice; 
  121.     property VoiceCount: Smallint read Get_VoiceCount; 
  122.     property Output: Smallint read Get_Output write Set_Output; 
  123.     property FileName: WideString read Get_FileName write Set_FileName; 
  124.     property Volume: Smallint read Get_Volume write Set_Volume; 
  125.     property Pitch: Smallint read Get_Pitch write Set_Pitch; 
  126.     property Speed: Smallint read Get_Speed write Set_Speed; 
  127.     property Status: Smallint read Get_Status; 
  128.     property LastError: Integer read Get_LastError; 
  129.     property OEMKey: WideString write Set_OEMKey; 
  130.   end; 
  132. // *********************************************************************// 
  133. // DispIntf: IAASpeechCtrlDisp 
  134. // Flags: (4416) Dual OleAutomation Dispatchable 
  135. // GUID: {543BD792-CB83-4E88-8868-FC8392ABD9D6} 
  136. // *********************************************************************// 
  137.   IAASpeechCtrlDisp = dispinterface 
  138.     ['{543BD792-CB83-4E88-8868-FC8392ABD9D6}'] 
  139.     function ConnectEngine(nConnectionMode: SYSINT; nPort: SYSINT;  
  140.                            const bstrServerAddress: WideString): Integer; dispid 1; 
  141.     function DisconnectEngine: Integer; dispid 2; 
  142.     function Enumerate: Integer; dispid 3; 
  143.     function Load(const bstrCmd: WideString): Integer; dispid 4; 
  144.     function Unload: Integer; dispid 5; 
  145.     function Speak(const bstrText: WideString; lTextId: Integer): Integer; dispid 6; 
  146.     function Stop: Integer; dispid 7; 
  147.     function Pause: Integer; dispid 8; 
  148.     function Resume: Integer; dispid 9; 
  149.     function EventMask(ulEvtMask: Integer): Integer; dispid 10; 
  150.     function GetVarAudioData(vData: OleVariant): Integer; dispid 11; 
  151.     function GetAudioData(var pData: Integer; lDataSize: Integer): Integer; dispid 12; 
  152.     property Voice[nIndex: SYSINT]: IAAVoiceCtrl readonly dispid 13; 
  153.     property CurrentVoice: IAAVoiceCtrl readonly dispid 14; 
  154.     property VoiceCount: Smallint readonly dispid 15; 
  155.     property Output: Smallint dispid 16; 
  156.     property FileName: WideString dispid 17; 
  157.     property Volume: Smallint dispid 18; 
  158.     property Pitch: Smallint dispid 19; 
  159.     property Speed: Smallint dispid 20; 
  160.     property Status: Smallint readonly dispid 21; 
  161.     property LastError: Integer readonly dispid 22; 
  162.     property OEMKey: WideString writeonly dispid 23; 
  163.     procedure ServerShutdown(nState: SYSINT); dispid 24; 
  164.   end; 
  167. // *********************************************************************// 
  168. // OLE Control Proxy class declaration 
  169. // Control Name : TAASpeechCtrl 
  170. // Help String : AASpeechCtrl Class 
  171. // Default Interface: IAASpeechCtrl 
  172. // Def. Intf. DISP? : No 
  173. // Event Interface: _IAASpeechCtrlEvents 
  174. // TypeFlags : (2) CanCreate 
  175. // *********************************************************************// 
  176.   TAASpeechCtrlTextStart = procedure(ASender: TObject; lTextId: Integer) of object; 
  177.   TAASpeechCtrlTextEnd = procedure(ASender: TObject; lTextId: Integer) of object; 
  178.   TAASpeechCtrlWordPosition = procedure(ASender: TObject; lTextId: Integer; lWordPos: Integer;  
  179.                                                           lByteCount: Integer) of object; 
  180.   TAASpeechCtrlPhoneme = procedure(ASender: TObject; lTextId: Integer; sEnginePhoneme1: Smallint; 
  181.                                                      sEnginePhoneme2: Smallint;  
  182.                                                      sIPAPhoneme1: Smallint;  
  183.                                                      sIPAPhoneme2: Smallint; lDuration: Integer;  
  184.                                                      lByteCount: Integer) of object; 
  185.   TAASpeechCtrlAudioData = procedure(ASender: TObject; lTextId: Integer; lDataCount: Integer;  
  186.                                                        lDataSize: Integer) of object; 
  187.   TAASpeechCtrlLastError = procedure(ASender: TObject; lErrorCode: Integer) of object; 
  188.   TAASpeechCtrlAcaPhoneme = procedure(ASender: TObject; lTextId: Integer;  
  189.                                                         sEnginePhoneme1: Smallint;  
  190.                                                         sEnginePhoneme2: Smallint;  
  191.                                                         sEnginePhoneme3: Smallint;  
  192.                                                         sEnginePhoneme4: Smallint;  
  193.                                                         sIPAPhoneme1: Smallint; lDuration: Integer;  
  194.                                                         lByteCount: Integer) of object; 
  195.   TAASpeechCtrlMouthPosition = procedure(ASender: TObject; lTextId: Integer;  
  196.                                                            sIPAPhoneme1: Smallint;  
  197.                                                            sMouthPos1: Smallint;  
  198.                                                            sMouthPos2: Smallint;  
  199.                                                            sMouthPos3: Smallint;  
  200.                                                            sMouthPos4: Smallint;  
  201.                                                            sMouthPos5: Smallint;  
  202.                                                            sMouthPos6: Smallint;  
  203.                                                            sMouthPos7: Smallint;  
  204.                                                            sMouthPos8: Smallint;  
  205.                                                            lDuration: Integer; lByteCount: Integer) of object; 
  207.   TAASpeechCtrl = class(TOleControl) 
  208.   private 
  209.     FOnAudioOpen: TNotifyEvent; 
  210.     FOnAudioClose: TNotifyEvent; 
  211.     FOnTextStart: TAASpeechCtrlTextStart; 
  212.     FOnTextEnd: TAASpeechCtrlTextEnd; 
  213.     FOnWordPosition: TAASpeechCtrlWordPosition; 
  214.     FOnPhoneme: TAASpeechCtrlPhoneme; 
  215.     FOnAudioData: TAASpeechCtrlAudioData; 
  216.     FOnLastError: TAASpeechCtrlLastError; 
  217.     FOnAcaPhoneme: TAASpeechCtrlAcaPhoneme; 
  218.     FOnMouthPosition: TAASpeechCtrlMouthPosition; 
  219.     FIntf: IAASpeechCtrl; 
  220.     function  GetControlInterface: IAASpeechCtrl; 
  221.   protected 
  222.     procedure CreateControl; 
  223.     procedure InitControlData; override; 
  224.     function Get_Voice(nIndex: SYSINT): IAAVoiceCtrl; 
  225.     function Get_CurrentVoice: IAAVoiceCtrl; 
  226.   public 
  227.     function ConnectEngine(nConnectionMode: SYSINT; nPort: SYSINT;  
  228.                            const bstrServerAddress: WideString): Integer; 
  229.     function DisconnectEngine: Integer; 
  230.     function Enumerate: Integer; 
  231.     function Load(const bstrCmd: WideString): Integer; 
  232.     function Unload: Integer; 
  233.     function Speak(const bstrText: WideString; lTextId: Integer): Integer; 
  234.     function Stop: Integer; 
  235.     function Pause: Integer; 
  236.     function Resume: Integer; 
  237.     function EventMask(ulEvtMask: Integer): Integer; 
  238.     function GetVarAudioData(vData: OleVariant): Integer; 
  239.     function GetAudioData(var pData: Integer; lDataSize: Integer): Integer; 
  240.     procedure ServerShutdown(nState: SYSINT); 
  241.     property  ControlInterface: IAASpeechCtrl read GetControlInterface; 
  242.     property  DefaultInterface: IAASpeechCtrl read GetControlInterface; 
  243.     property Voice[nIndex: SYSINT]: IAAVoiceCtrl read Get_Voice; 
  244.     property CurrentVoice: IAAVoiceCtrl read Get_CurrentVoice; 
  245.     property VoiceCount: Smallint index 15 read GetSmallintProp; 
  246.     property Status: Smallint index 21 read GetSmallintProp; 
  247.     property LastError: Integer index 22 read GetIntegerProp; 
  248.     property OEMKey: WideString index 23 write SetWideStringProp; 
  249.   published 
  250.     property Anchors; 
  251.     property  TabStop; 
  252.     property  Align; 
  253.     property  DragCursor; 
  254.     property  DragMode; 
  255.     property  ParentShowHint; 
  256.     property  PopupMenu; 
  257.     property  ShowHint; 
  258.     property  TabOrder; 
  259.     property  Visible; 
  260.     property  OnDragDrop; 
  261.     property  OnDragOver; 
  262.     property  OnEndDrag; 
  263.     property  OnEnter; 
  264.     property  OnExit; 
  265.     property  OnStartDrag; 
  266.     property Output: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False; 
  267.     property FileName: WideString index 17 read GetWideStringProp write SetWideStringProp stored False; 
  268.     property Volume: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False; 
  269.     property Pitch: Smallint index 19 read GetSmallintProp write SetSmallintProp stored False; 
  270.     property Speed: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False; 
  271.     property OnAudioOpen: TNotifyEvent read FOnAudioOpen write FOnAudioOpen; 
  272.     property OnAudioClose: TNotifyEvent read FOnAudioClose write FOnAudioClose; 
  273.     property OnTextStart: TAASpeechCtrlTextStart read FOnTextStart write FOnTextStart; 
  274.     property OnTextEnd: TAASpeechCtrlTextEnd read FOnTextEnd write FOnTextEnd; 
  275.     property OnWordPosition: TAASpeechCtrlWordPosition read FOnWordPosition write FOnWordPosition; 
  276.     property OnPhoneme: TAASpeechCtrlPhoneme read FOnPhoneme write FOnPhoneme; 
  277.     property OnAudioData: TAASpeechCtrlAudioData read FOnAudioData write FOnAudioData; 
  278.     property OnLastError: TAASpeechCtrlLastError read FOnLastError write FOnLastError; 
  279.     property OnAcaPhoneme: TAASpeechCtrlAcaPhoneme read FOnAcaPhoneme write FOnAcaPhoneme; 
  280.     property OnMouthPosition: TAASpeechCtrlMouthPosition read FOnMouthPosition write FOnMouthPosition; 
  281.   end; 
  283. // *********************************************************************// 
  284. // The Class CoAAVoiceCtrl provides a Create and CreateRemote method to  
  285. // create instances of the default interface IAAVoiceCtrl exposed by  
  286. // the CoClass AAVoiceCtrl. The functions are intended to be used by  
  287. // clients wishing to automate the CoClass objects exposed by the  
  288. // server of this typelibrary.  
  289. // *********************************************************************// 
  290.   CoAAVoiceCtrl = class 
  291.     class function Create: IAAVoiceCtrl; 
  292.     class function CreateRemote(const MachineName: string): IAAVoiceCtrl; 
  293.   end;

Suivant  Précédent
Plus d'articles dans cette catégorie
Programmation 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
Editer  Citer
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
Editer  Citer
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: )
Par zion, Publié le 07/06/2006 @ 20:58:27
Editer  Citer
Faire parler votre application Delphi avec Acapela Multimedia
lol Caroline et Pierre :grin:

Ca me rapelle la lecture audio de texte sur les macs.
Ca existe tjrs dans OS X ?
Par didix, Publié le 07/06/2006 @ 21:22:31
Editer  Citer
Faire parler votre application Delphi avec Acapela Multimedia
Et ou on trouve l'API ? :heink:
Par cauet, Publié le 17/10/2006 @ 01:29:14

Poster un commentaire
Vous devez être identifié pour accéder à cette fonctionnalité

Utilisateur
Mot de passe
 
 Forum - Derniers messages
Bavardages
Aujourd'hui, je rénove ou je construis ^^
Software
problème sur windows 10
Réseaux et Télécom
Administrateur Réseau - Cisco
Réseaux et Télécom
Problème wifi (POE)
Software
Postfix - Need help
Bavardages
Oh râge oh désespoir !
Programmation
Enregistrement client et envoi mail
Software
SÉCURITÉ MACBOOK
Hardware
conseil matos réseau?
Hardware
nVidia Shield Android TV
  Actualités - Archives
Jeux Vidéos Jeux Vidéos
Test Mario & Luigi - L'épopée fraternelle (Nintendo Switch) - Prêt à lever l'encre ?
Jeux Vidéos Jeux Vidéos
Tomb Raider II est porté sur Sega Saturn par un fan
Vidéo Vidéo
YouTube prendra à l'avenir des mesures drastiques contre les titres et les miniatures clickbait
Programmation Programmation
Les voitures autonomes causent beaucoup moins d’accidents que les humains
Windows Windows
Microsoft confirme une nouvelle publicité dans Windows - pour le jeu "Call of Duty"
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?