Ayúdenme con el Microsoft Agent 2.0 ActiveX

[Urathion]

HOla, me he instalado el esclavo 1.2 y el personaje no me habla (no se escucha, ni en ingles ni en español ni na de na) me he descargado "Microsoft Agent 2.0 ActiveX" pero no instala ningun tipo de programa. ke tengo ke poner a part de eso????? ,(tb he instalado el dragon naturally speaking (para el reconocimiento de voz, pero tampoco me la reconoce). gracias por contestar.

[[Lepe]]

Lo que instala es un ActiveX, que puede ser importado desde delphi para programar lo que debe hacer/decir/mostrar.

Si buscas por Microsoft Agent en el foro, encontrarás nuevos hilos.

Saludos

[Urathion]

Ya he estado buscando por el foro pero eske no saco nada en claro??? me podriais decir ke tengo ke instalar y como configurarlo??????

[[Lepe]]

En este hilo viene todo paso a paso.

En ese hilo adjuntaba un proyecto en delphi, pero he perdido los fuentes en algún formateo de windows, si encuentro algo te lo haré saber.

Saludos.

[courtois]

Requieres:
-Microsoft Agent 2.0
-TTS3000 de Lernout & Hauspie Español (voz español)
-Learn & Hauspie TrueVoice Amer. Eng. TTS Eng. (voz en ingles)
Adicionalmente reqieres:
-Agent International DLL installation script for language 040C
-Agent International DLL installation script for language 0C0A

Código Delphi [-]
//Para que hable en español
Agente1.Set_LanguageID($C0A);
//En Inglés
Agente1.Set_LanguageID($409);

[Urathion]

donde encuentro los dos ultimos archivos?

[Ernesto Storch]

Hola,

Necesito de vuestra ayuda!.

Cómo puedo asignar al MS-AGENT Charlie que habla actualmente en español, la voz de Mary en Inglés?

Alguien tiene algún otro ejemplo de código para poder asignar correctamente el TTS y el idioma?...

Con el MS-Agent Properties viewer 3.1 obtengo las siguientes propiedades:

Character Details
------------------
Name: Charlie.
guid: {20E18DC3-EBE4-11D3-BE2A-C1646EB21146}
TTsModeID: {2CE326E0-A935-11D1-B17B-0020AFED142E}
LanguageID: 3082
Version: 2.00


Voice Detail
--------------
ModeName: Mary
ModeID:= {c77c5170-2867-11d0-847B-444553540000}
Speaker: Product Name: Default female voice
LanguageID: 1033


cuando se ejecuta el siguiente código da una excepción "access violation at ...."


{ set default language in English for listening}
myAgent.LanguageID:=1033; // ********** access violation ******
myAgent.SRModeID:=('{77C5170-2867-11D0-847B-444553540000}'); //se que no es el correcto...pero el error lo da en la asignación del idioma...

UTILIZO EL SIGUIENTE CODIGO extraido de un ejemplo
(DELPHI6, MS AGENT 2.0, SAPI 5.0)

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, AgentObjects_TLB, StdCtrls, ExtCtrls, Buttons;

type
TForm1 = class(TForm)
SpeakEnglish: TSpeedButton;
Agent: TAgent;
procedure FormCreate(Sender: TObject);
procedure SpeakEnglishClick(Sender: TObject);
private
{ Private declarations }
myAgent: IAgentCtlCharacterEx;
myAgentRequests:IAgentCtlRequest;

bAgentListen,bAgentDialoog:Boolean;
sDefaultLanguage,sText:string;

procedure AgentLoad;
procedure AgentShow;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
sDefaultLanguage:='ENGLISH'; // or 'ENGLISH'
{ create agent}
AgentLoad;
AgentShow;

end;

procedure TForm1.AgentLoad;
var
myAgentID:string;
myAgentPath:string;
begin
{ load agent}
myAgentID:='Charlie';
myAgentPath:='c:\localizacion\Agents\'+myAgentID+'.acs';

Agent.Characters.Load(myAgentID,myAgentPath);
myAgent:=Agent.Characters.Item[myAgentID];

{ set default language in English for listening}
myAgent.LanguageID:=1033; //***************access violation***
myAgent.SRModeID:=('{77C5170-2867-11D0-847B-444553540000}'); //mary

{====== init charlie ============}
{ remove any existing commands}
myAgent.Commands.RemoveAll;
{ set menu caption}
myAgent.Commands.Caption:='Listen Charlie';
{ add commands }
myAgent.Commands.Add('charlie','Charlie is listening','Charlie*',True,True);
{ Show captions in pop-up menu }
myAgent.Commands.Visible:=True;
end;

procedure TForm1.AgentShow;
var p1:TPoint;
begin
with myAgent do begin
MoveTo(400,500,0);
show(0);
Speak('HELLO, I AM SPEAKING IN ENGLISH?','');
end;
end;

Gracias!.
Saludos!

Ernesto