ActiveX Microsoft Agent en Delphi

[comodoro]

saludos compñeros;

Soy nuevo en el foro, pero viejo programando en Delphi. recien he estado trabajando sobre este Tema de MSAgent para usarlo en nuestras aplicaciones. En fin busque y busque, y las busquedas resultaban infructuosas hasta que llegue a la documentación de Microsoft sobre MSAgent y alli encontre como, bueno tuve que leer y traducir y probar, hacer que nuestros personajes hablen en español y no con acento ingles.

Aqui les dejo el codigo, yo lo coloque en el FormCreate, deseo que les sirva de provecho como fue para mi.

Se parte del supuesto que tienen instalado todo lo necesario para trabajar con MSAgent
...
Agent1.Connected := True;
Agent1.Characters.Load('Lorito', 'Peedy.acs');

//ESTO COLOCA EL IDIOMA EN ESPAÑOL

//Para establecer el Idioma;
Agent1.Characters.Character('Lorito').Set_LanguageID($0C0A);

//Para establecer el ID del TTS en español, es la Voz de Julio
Agent1.Characters.Character('Lorito').TTSModeID := '{2CE326E1-A935-11d1-B17B-0020AFED142E}';
// Associar o agente à variável Agente
Agente := Agent1.Characters['Lorito'];
....


"El Hombre Inteligente no es aquel que lo sabe todo sino aquel que sabe aplicar lo poco que sabe"
Silver Stone