Bonsoir tout le monde,
voila j'ai un tit probleme, j'ai fait une recherche sur google pour les synthèse vocale et j'ai trouvé les agents compagnon d'office
J'ai tout téléchargé comme il est dit dans le faq et j'ai télécharger des exemples
Voila le code source de l'exemple :
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
45
46
47
48
 
unit Unit1;
{Unité unique du project
Voir le DPR pour plus d'infos}
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls;
 
type
  TForm1 = class(TForm)
    Agent1: TAgent;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Peedy : IAgentCtlCharacterEx;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Agent1.Connected := true; //Se connecte au serveur MS Agent
  Agent1.Characters.Load('Peedy', 'Peedy.acs'); //Charge Peedy
  Peedy := Agent1.Characters.Character('Peedy'); //Assigne Peedy à la variable "Peedy"
  Peedy.LanguageID:=$40C; //Assigne le francais à Peedy
  Peedy.Show(false); //Affiche Peedy
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Peedy.Speak(Edit1.Text, ''); //Fait lire le contenu de Edit1 par Peedy
  //ATTENTION : ne rien mettre dans Edit1 genere une exception !
end;
 
end.
Mon soucis est le suivant, lors de la compilation j'ai ce message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
[Erreur] Unit1.pas(36): Types incompatibles : 'IAgentCtlCharacter' et 'IAgentCtlCharacterEx'
Merci d'avance all !!!