Discussion :

[tutorial]

https://stackoverflow.com/questions/...mport-sapi-5-1

J'ai trouvé ce programme qui me semble intéressant :

Code Delphi :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SpeechLib_TLB, StdCtrls;
 
const SP_GETWHOLEPHRASE = -1;
 
type
  TForm3 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    SpSharedRecoContext1: TSpSharedRecoContext;
    MyGrammar : ISpeechRecoGrammar;
    procedure SpSharedRecoContext1Recognition(ASender: TObject;
                                              StreamNumber: Integer;
                                              StreamPosition: OleVariant;
                                              RecognitionType: SpeechRecognitionType;
                                              const Result: ISpeechRecoResult);
    procedure SpSharedRecoContext1Hypothesis(ASender: TObject;
                                             StreamNumber: Integer;
                                             StreamPosition: OleVariant;
                                             const Result: ISpeechRecoResult);
    { Public-Deklarationen }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 SpSharedRecoContext1.Free;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  SpSharedRecoContext1 := TSpSharedRecoContext.Create(self);
  SpSharedRecoContext1.OnRecognition   := SpSharedRecoContext1Recognition;
  SpSharedRecoContext1.OnHypothesis    := SpSharedRecoContext1Hypothesis;
  MyGrammar := SpSharedRecoContext1.CreateGrammar(0);
  MyGrammar.DictationSetState(SGDSActive);
end;
 
procedure TForm3.SpSharedRecoContext1Recognition(ASender: TObject;
                                                 StreamNumber: Integer;
                                                 StreamPosition: OleVariant;
                                                 RecognitionType: SpeechRecognitionType;
                                                 const Result: ISpeechRecoResult);
begin
 Caption := '';
 Memo1.Lines.Add(Result.PhraseInfo.GetText(SP_GETWHOLEPHRASE,SP_GETWHOLEPHRASE,true));
end;
 
procedure TForm3.SpSharedRecoContext1Hypothesis(ASender: TObject;
                                                StreamNumber: Integer;
                                                StreamPosition: OleVariant;
                                                const Result: ISpeechRecoResult);
begin
 Caption := 'I am listening...';
end;
 
 
end.

Il se compile bien sous Delphi 7 mais en le lançant, il affiche :

"Project raised exception class EOleSysError with message 'Classe non enregistrée'. Process stopped. Use step or Run to Continue."

Tout ce qui touche SpeechLib_TLB aboutit toujours à 'Classe Non Enregistrée'. Et pourtant j'ai enregistré toutes les DLL possibles avec REGSVR32. J'ai SAPI 5.1 sur mon ordinateur. Je n'arrive pas à trouver SAPI 5.4. Je suis sous Windows XP et j'ai essayé sur Windows 8.1 et c'est le même problème. Quelqu'un a-t-il une solution svp ?

N.B. : J'ai essayé la solution de StackOverFlow et c'est toujours un échec. Que faut-il faire ?

[der§en]

Peut-être que la classe dont il est question dans le message d’erreur, et la classe Delphi produite à partir de tes DLL et pas l’enregistrement des DLL dans le système .

[Invité]

Si tout est installé correctement, importer la version installée à partir de : "Projet->Importer une bibliothèque de type" sélectionner Microsoft Speech Object ..

Après cliquer sur "Créer l'unité"

Ainsi tu auras la version présente sur le PC .

[tutorial]

Peut-être que la classe dont il est question dans le message d’erreur, et la classe Delphi produite à partir de tes DLL et pas l’enregistrement des DLL dans le système .

Est-il possible d'expliciter votre réponse et me donner une solution complète, pas à pas, car je ne suis pas très bon dans ce domaine.

[XeGregory]

Est-il possible d'expliciter votre réponse et me donner une solution complète, pas à pas, car je ne suis pas très bon dans ce domaine.

J'ai trouvé ce programme qui me semble intéressant

Le copier-coller en programmation, c’est comme tricher à un examen : tu obtiens une réponse, mais tu ne comprends rien.

En programmation, le vrai apprentissage vient de la compréhension : savoir pourquoi une ligne de code fonctionne, ce qu’elle fait, et comment elle interagit avec le reste du programme. Copier sans réfléchir peut fonctionner temporairement, mais cela freine la progression et la capacité à résoudre des problèmes par soi-même.