Discussion :

[bihan]

bonjour,
avec Delphi 7 et Windows 10 est-il possible de programmer la synthèse de la parole pour un phrase contenue dans une chaîne de caractères ?
Avec Windows 10 existent des outils de synthèse de la parole mais je n'ai rien trouver pour intégrer cela dans un programme Delphi.
merci pour votre aide.

[SergioMaster]

Bonjour,
https://zewaren.developpez.com/delphi/ms-agents/ c'est vieux mais fonctionnait avec D7 maintenant MS_Agent est-il toujours dispo et fonctionnel avec W10 ?

[pprem]

effectivement, y a toujours ce bon vieux ms-agent, mais je crois que c'est à installer à part

sinon on peut toujours passer par les API (payantes) de Microsoft et Google qui proposent de la synthèse vocale par envoi d'un texte et retour d'un WAV

[bihan]

merci,
j'ai utilisé ms-agent avec Delphi 5 et Windows XP pour des applications qui ont fonctionné. Windows 10 ne supporte plus ces outils.
Les documents que j'ai trouvés se rapportent toujours à ms-agent.
bref, je rame...

[SergioMaster]

Bonjour,

je m'en doutais un peu, on ne tue pas une vache à lait

on peut toujours passer par les API (payantes) de Microsoft et Google

en googlant juste 2 minutes j'ai trouvé :
l'explication
une solution possible "vendu" pour Vista,Win 7 et Win8 en 32 et 64 bits, actif jusqu'en 2014 reste à tester pour w10 et nous faire un retour
Maintenant, sous windows 10 le service se nomme text-to-speech ou Narrator à partir de là des recherches avec les mots clé "windows 10 narrator api" devraient donner les bonnes pistes

Bonnes recherches et bon code

[bihan]

merci,
je vais essayer ces pistes sans précipitation.
c'est avec plaisir que je ferai part de mes trouvailles (s'il y en a).

[pprem]

Pendant que j'y pense tu peux aussi jouer avec les API/services de l'un des fournisseurs de voix : Acapella Group.
C'est payant, mais selon ce que tu veux faire, ça vaut le coup de s'y pencher car la qualité est vraiment au rendez-vous.
https://www.acapela-group.com/

[BeanzMaster]

Salut sur le forum Lazarus il y a eu une discussion similaire

Bonsoir en cherchant un peu, on trouve quelques références pour Delphi. Le mieux serait de récupérer les sources générées depuis Delphi et de les rendre compatible sous Lazarus, il ne devrait pas y avoir beaucoup de chose à modifier

http://www.blong.com/Conferences/DCo...SAPI51.htm#Top
http://delphi-kb.blogspot.com/2011/0...dd-simple.html
http://edn.embarcadero.com/article/29583

Si non j'ai trouvé ça encore pour Delphi, mais qui utilise les Api de Google

https://github.com/CHERTS/mspeech

En passant par SAPI sous windows

Petit test vite fait avec Lazarus (Mais pas très concluant)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ComObj, Variants;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
     SpVoice: Variant;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{ TForm1 }
{$R *.lfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SpVoice.Speak(Edit1.Text, SVSFDefault);
end;
 
 
//initialization
//  {$I unit1.lrs}
 
end.

Bonne soirée

[bihan]

à l'adresse :
http://delphipage.free.fr/sapiinstall.html

j'ai trouvé le code suivant qui fonctionne avec windows 10.
Il répond en partie à ma demande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var voix: variant;
begin
     voix:=CreateOLEObject('SAPI.SpVoice'); //Crée un objet unique non initialisé de la classe spécifiée par le paramètre 'SAPI.SpVoice'
     voix.Speak('Bonjour'); //L'ordinateur dit "Bonjour"
     voix:=UnAssigned; //Désassigne une valeur vierge à la variable de type variant
end;

Il y a probablement d'autres pistes à étudier mais pour le moment cela m'aide bien.
merci