FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Ayúdenme con el Microsoft Agent 2.0 ActiveX
Miren, socios de este importantísimo foro, se como utilizar la axtivex del agente de windows a la perfección casi, pero tengo un problema, tengo un form con dos botones y la activex que me carga el agente al mostrarse el form, quisiera que cuando diera clic en un botón el agente me hablara en español y cuando diera clic en el otro me hablara en inglés. Pienso que esto no sea tan difícil.
Espero con suerte respuestas, saludos a todos y gracias de antemano |
#2
|
||||
|
||||
Hola,
La verdad sea dicha, como dicen, no sé si lo que a continuación diré yo te servirá de algo o qué. Nunca he tratado con el "ActiveX" a que te refieres, y no sé si el componente Office Assistant, de DelphiArea podrá serte de alguna utilidad al menos para solucionar tu problema en concreto. Lo que me ha llevado a comunicarte la existencia del mencionado componente es lo que puede leerse en la descripción de sus características: Cita:
|
#3
|
||||
|
||||
Socio te diré que ese componente de el Sitio DelphiArea ya lo tengo pero el que utilizo es mucho mejor y es el siguiente: Microsoft Agent 2.0 ActiveX. Esta es una ActiveX que importo para Delphi, la misma se me instala en la paleta de componentes ActiveX y la utilizo casi a la perfección, pero no se como controlar mejor dicho, las librerías de gestión de voces, o sea, que me hable una frase en inglés mediante el clic en un botón en un form de mi aplicación y que me hable otra en español, al dar clic en otro botón
gracias nuevamente. |
#4
|
||||
|
||||
Se que no es lo ideal pero....
Cita:
Te doy una posible solución: 1. Antes que nada ocultas el globo de conversación. 2. Luego, para que las frases "suenen" en inglés, puedes ingeniártelas escribiendo en forma textual como debe sonar dicha palabra, es decir escribe fonéticamente. Por ejemplo, si quisieras que diga "hello", podrías poner algo como "gelou". ¿Me explico? Se que no es lo ideal pero... es algo... |
#5
|
||||
|
||||
kakesoft, dame un correo y te envio un proyecto que sabe dios de donde lo saqué.
Con él puedes elegir el motor de habla del msagent. En principio, tienes que bajarte los motores desde www.msagentring.org e instalarlos en el ordenador, a partir de aqui, y usando este programa, puedes elegir en qué idioma quieres que diga el texto. Además de la voz que quieres que use (Adult male Spanish, adult female Spanish, adult female English, adult male English) con distintos tonos de voz. Tiene la posiblidad de guardar el texto hablado en .wav o bien redirigirlo a los altavoces. Obviamente, si quieres que hable en ingles, el texto debe estar escrito en ese idioma, de lo contrario, hablará con el típico "guiri intentando hablar español" Edito: El control comentado por Dec, es Mejorado, en el que usas ahora, dudo que puedas incluir botones en los globos de ayuda para interactuar directamente con el Msagent. Por otra parte, esa suit de componentes es Freeware, el Microsoft Agent no lo puedes distribuir con tu aplicación de ninguna de las maneras, se debe descargar directamente de la web ya comentada, y como usuario final. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 14-07-2005 a las 12:23:04. |
#6
|
||||
|
||||
Cita:
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 14-07-2005 a las 12:39:48. |
#7
|
||||
|
||||
lepe, ahí va mi correo: kakesoft@yahoo.es, me interesa mucho ese ejemplo, pero la idea de DELPHIUS, no está nada mal, creo que con eso resuelvo el problema perfectamente, no obstante, LEPE mándame el ejemplito que tienes. GRACIASSSSSSSSSS a todos por orientarme y ayudarme
|
#8
|
|||
|
|||
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.
|
#9
|
||||
|
||||
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#10
|
|||
|
|||
Ya he estado buscando por el foro pero eske no saco nada en claro??? me podriais decir ke tengo ke instalar y como configurarlo??????
|
#11
|
||||
|
||||
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.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#12
|
||||
|
||||
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
|
#13
|
|||
|
|||
donde encuentro los dos ultimos archivos?
|
#14
|
|||
|
|||
MS agent cambio de idioma
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 |
|
|
|