ActiveX Microsoft Agent en Delphi

[[Lepe]]

Al final vamos a hacer que baile y todo

He encontrado alguna cosita más sobre el bichito, así, que aquí estoy de nuevo .
Merlin, debe estar declarado como IAgentCtlCharacter o tambien usa la opción
de Buscar y Reemplazar de Delphi:

Busca: Merlin
Sustituye por : Agent1.Characters['Merlin']

Se trata de usar "etiquetas" dentro del texto que ha de hablar.
No modifica la configuración predefinida, sólo el texto que se esté enviando
en el comando Speak.

Con estas etiquetas puedes:
- Modificar el volumen con el que habla.
- Cambiar la forma de hablar: entre susurro, modo normal y monótono.
- Cambiar el número de palabras por minuto que ha de hablar.
- Mostrar y Ocultar el personaje sin animación.
- Poder realizar un Diccionario personalizado, así cuando le envies
el texto "Mb" pronuncie "Megabait"
- Realizar una Pausa mientras está hablando.


Pega este codigo dentro de un botón y verás el resultado.
Lo he puesto en varias líneas, para que puedas ejecutarlas independientemente.

(He cortado las lineas de texto porque son muy grandes)

Código Delphi [-]
    Merlin.Show(false); // Mostrar CON animacion
    Merlin.Speak('quillo, mira, soy el hombre invisible','');
    Sleep(3500);
    Merlin.Hide(true);
    Sleep(600);
    Merlin.Show(true); // Mostrar sin animacion
    Sleep(600);
    Merlin.Hide(true);
    Sleep(600);
    Merlin.Show(true); // Mostrar sin animacion
    Sleep(600);

 Merlin.Speak('\Chr="Whisper"\ no le cuentes a nadie esto','');
 // susurro
 Merlin.Speak('\Rst\ \Chr="Normal"\ juas, que creías?'+
 'que te iba a contar algo?',''); 
// hablar normal

 Merlin.Speak('Mira lo que me han enseñado','');
 Merlin.Speak('\Chr="Whisper"\ahora sé susurrar'+
'  \Chr="Normal"\ tambien hablo como debe ser.\Chr="Monotone"\ '+
' Y por supuesto hablar de forma monótona para agobiar '+
' al mas pintado',''); 

// Mezclando las 3 formas de hablar que existe.


 Merlin.Speak('Ahora sé pronunciar algunas cositas, pero muestro otro texto'+
 'en el globo. ¿que tal un \Map="uisky J B"="JB"\ ahora?',''); 
// ballon debe estar activado
// Diccionario personalizado \Map=" lo_que_ha_de_pronunciar"=" 
// lo_que_ha_de_poner_en_el_globo"\ 


 Merlin.Speak('\Chr="Monotone"\ no sé pero esto no va bien, algo me pasa','');
 // hablar de forma monotona
 Merlin.Speak('algunas veces, no sé por qué, pero me quedo groki, mira mi '+
' cara\Pau=2500\ ¿será porque fumo eucalipto?',''); 
// pausa 2500 milisegundos

 Merlin.Speak('\Rst\ \vol=45000\También he estado con Carlos Sainz un '+ 
' tiempecito de copiloto.\Pau=350\ \spd=200\Curva derecha en 3 a foondo,'+ 
' freena 2, curva izquierda rasaante, \Vol=65535\ cuidado aaagua\Rst\ '+
' \spd=100\ quillo carlos, que extressss',''); 
// cambiar la velocidad del habla \spd=nº de palabras por minuto\
// cambiar el volumen  \Vol=nº\   el número puede ir de 0 a 65.536
// \Rst\  resetea los tag anteriores que haya.

 Merlin.Hide(False);

A disfrutar con el agonía este jejejejeje.

Saludos

[German]

Bailar... no se... pero hacerle cantar "cumpleaños feliz" ¡¡¡seguro!!!:

Merlin.Speak('\chr="monotone"\\spd=130\\pit=65\Cuuum\pit=65\plee\pit=83\aaaaaaa\pit=65\ñoooos...\spd =55\\pit=87\feeeee\pit=82\liiiiiiz.')



Salu2.

[[Lepe]]

Por petición de un compañero del foro, he creado un proyecto al completo donde reuno todo lo hablado hasta ahora (excepto las animaciones)

Lo único imprescindible, es tener el control ActiveX disponible en la paleta de delphi.

Saludos

[DarkByte]

Muchísimas gracias, Lepe, yo estaba muy interesado en el proyecto. Cuando necesites algo, ya sabes, aquí estoy.

[[Lepe]]

Nuevas noticias
http://www.delphiforfun.org/Programs/TextToSpeech.htm

No perdais de vista esta web con fuentes en delphi para poder elegir el tipo de voz e idioma de nuestros Personajes, permite adulto espanol masculino y femenino y muchos otros en ingles.

Gracias a Neftali por dar este Link. En realidad lo dio para un hilo donde se hablaba de algoritmos de cortes (carpinteria). Pero ha sido muy grato encontrar tambien este tema.

Saludos de nuevo.