[Agents services] Erreur de types imcompatibles

Version imprimable

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:

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:

1
2
 
[Erreur] Unit1.pas(36): Types incompatibles : 'IAgentCtlCharacter' et 'IAgentCtlCharacterEx'

Merci d'avance all !!!

14/04/2005, 00h11
Laurent Dardenne

Salut,
essaie un transtypage ?
14/04/2005, 09h32
Thierry Laborde

Salut,

Comme le dit laurent il faut que tu fasses un transtypage.

Donc en fait au lieu de :

Code:

Peedy := Agent1.Characters.Character('Peedy');

il faut que tu fasses :

Code:

Peedy := IAgentCtlCharacterEX(Agent1.Characters.Character('Peedy'));

D'ailleurs tu trouveras sur le site un très bon tutoriel sur les agents microsoft :

http://bvermersch.developpez.com/agents/
14/04/2005, 14h04
ApollloCrid

Merci je n'avais pas trouvé cette faq !

Re, ca veut donc dire que si l'utilisateur n'installe pas tout ca
Code:

1 2 3 4 5 6 7 8 - Microsoft Agent 2.0 (392 Ko) - Text to speech fr : voix du personnage - SpeechApi Une fois que tous les composants sont installés, il nous reste plus qu'à installer Microsoft Agent dans Delphi
IL n'aurat pas Merlin en francais et tou ?

14/04/2005, 15h02
ApollloCrid

Donc a l'installation du programe il faut que je les copie :s

Sinon je cherche des MS agents enfin d'autre que ce qu'il y a sur le iste que vous m'avez filé vous avez des adresses ?
14/04/2005, 17h06
Thierry Laborde

Il faut en effet installer tout ce que tu cites au dessus.
A toi de l'inclure dans tes install. Sachant que :

Microsoft Agent 2.0 (392 Ko)

et

SpeechApi

Sont normalement installé par defaut avec XP.
Pour trouver des agents, tu devrais trouver ton bonheur la dessous :

http://www.msagentring.org/chars.aspx

A+
14/04/2005, 19h47
ApollloCrid

Meric !!!!!!!! ca fait plaisir
Je devrais copier en fait juste le personnage que je veux utiliser :)
Résolu :d