TMsAgent v2.2 ya funciona en Windows 7

[AIDA]

Hola

El día de hoy descubrí que se puede usar de nuevo la TMsAgent v2.2 con la BalloonDialog en Windows 7
con solo usar un pequeño parche que bajas de microsoft

ya lo baje y por fin de nuevo pude tener el mago volando por toda mi aplicación

para los interesados

aqui esta la tmsagent 2.2 en cualquiera de las dos ligas
El creador de la clase es Juan Carlos Salinas Ojeda

http://www.mediafire.com/file/hobytshkx ... gent22.zip
http://www.mediafire.com/?hobytshkxbhqhbq


aqui solicitas el parche para windows 7
http://support.microsoft.com/hotfix/KBH ... 68&kbln=es

aqui puedes bajar el demo de la BalloonDialog© 6.5
http://www.sommytech.com.ar/downloads/b ... Dialog.exe

Esta es la pagina oficial de BalloonDialog© 6.5
http://www.sommytech.com.ar/balloondialog/Home.htm

Aqui estan los asistentes, puedes buscar en el google y probarlos uno por uno, algunos no son compatibles por los comandos que tienen para realizar ciertas actividades..
http://www.bellcraft.com/mash/chars.aspx

para poner la voz de la computadora en español RSSolo4Spanish voz femenina
http://www.megaupload.com/?d=5AX6972M

para poner la voz de la computadora en español RSSolo4Spanish voz masculina
http://www.filestube.com/34c13c5b24364e8603ea/go.html


Para Windows XP
En esta página se explica cómo se puede configurar MS agente y los componentes en su sistema y de ahí los pueden bajar.
http://moosenose.com/MsAgent.htm

CÓMO: Configurar y utilizar Texto a voz en Windows XP
http://support.microsoft.com/kb/306902/es

Herramienta para crear a los personajes
Microsoft Agent Character Editor
http://download.cnet.com/Microsoft-Agen ... 10178.html

Microsoft Agent Spanish Pack 3.12
http://microsoft-agent-spanish-pack.softonic.com/



Saluditos
[/url]

[AIDA]

Bueno con las aplicaciones ya compiladas si funciona

pero si las quieres poner al día con las ultimas fivewin sale un error

a ver si alguien me puede dar una ayuda dita

el error es el siguiente


Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C Agent.Control.2

Stack Calls
===========
Called from: => THROW(0)
Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW(346)
Called from: C:\FWH\PROMOT~1\PRG\TMSAGENT.PRG => TMSAGENT:NEW(238)
Called from: C:\FWH\PROMOT~1\PRG\POLIZARIUM.PRG => MAIN(591)



Saluditos

[AIDA]

Pues el problema esta en el codigo de mi programa

con otros programas compila y funciona muy bien el TMsAgent

seguiré checando


Saluditos

[QAZWSX2K]

hola aida, podrias enseñarme como hacerlo, no tengo idea de como empezar y siempre he querido hacerlo, gracias

[AIDA]

Si claro

Aun no soy una esperta pero ya me sale algo bien los monitos mSagent
lo que si necesitaras es todo el paquetito de la tmsagent22
creo que la liga de donde lo baje ya no funciona veré donde ponerlo para que lo bajes
para que puedas iniciar

Saluditos

[QAZWSX2K]

GRACIAS AIDA, yo creo ya tengo todo eso descargado, lo que no se es en el propio codigo de fivewin como llamo al agente, como le digo que decir y cuando?

gracias
alejandro patiño

[AIDA]

Aquí esta un ejemplo

Aqui estan los asistentes, puedes buscar en el google y probarlos uno por uno, algunos no son compatibles por los comandos que tienen para realizar ciertas actividades..

http://www.bellcraft.com/mash/chars.aspx


Saluditos

Code: Select all

#Include "FIVEWIN.CH"
#Include "TMSAGENT.CH"

STATIC oWndMain

//------------------//
FUNCTION Main()

LOCAL  cFileAgent:= ""
LOCAL       nAsis:= "1"
PUBLIC oAsis, Espera, Hablar

  RegistrarOCX()   // -> Aki va la rutina para registrar el archivo ocx que acompaña TMSAgent
  
  DO CASE          // -> Aki selecciono mediente un archivo INI para cada usuario el asistente con el cual trabajaran.
   CASE nAsis == "1"
        cFileAgent:= GetWinDir() + "\msagent\chars\Genie.acs"
   CASE nAsis == "2"
        cFileAgent:= GetWinDir() + "\msagent\chars\Merlin.acs"
   CASE nAsis == "3"
        cFileAgent:= GetWinDir() + "\msagent\chars\Peedy.acs"
   CASE nAsis == "4"
        cFileAgent:= GetWinDir() + "\msagent\chars\Robby.acs"
   CASE nAsis == "5"
        cFileAgent:= GetWinDir() + "\msagent\chars\Wabbit.acs"
   CASE nAsis == "6"
        cFileAgent:= GetWinDir() + "\msagent\chars\James.acs"
   CASE nAsis == "7"
        cFileAgent:= GetWinDir() + "\msagent\chars\Sam.acs"
   CASE nAsis == "8"
        cFileAgent:= GetWinDir() + "\msagent\chars\Hanz.acs"
   CASE nAsis == "9"
        cFileAgent:= GetWinDir() + "\msagent\chars\E-woman.acs"
   CASE nAsis == "10"
        cFileAgent:= GetWinDir() + "\msagent\chars\E-man.acs"
   CASE nAsis == "11"
        cFileAgent:= GetWinDir() + "\msagent\chars\Ben.acs"                                      
ENDCASE

IF !FILE(cFileAgent)
   msginfo("El Sistema no puede encontar el archivo que hace referencia al Asistente Animado Seleccionado."+CRLF+CRLF+"Se intentará Iniciar Sesión y Trabajar con el Asistente Predetermiando de "+cVersion+"..."+CRLF+CRLF+CRLF+"SOLUCIÓN:"+CRLF+CRLF+"Reinstale los Asistentes Animados del Sistema desde el Disco de Instalación de SISA2008.", "Microsoft Agent")
ENDIF

oAsis:= TMsAgent():New("MsAgent",.T.,cFileAgent)


  IF !oAsis:lOk   // hay que verificar si se puede usar el agente
    MsgInfo( "No se pudo iniciar MsAgent","Aviso" )
    // Si el agente no pudo iniciarse, los métodos NO tendrán efecto, NO habrá errores en tiempo de ejecución
  ENDIF

  
  IF oAsis:UsedByOtherApps() // habrá otras aplicaciones usándolo?
     MsgInfo( "MsAgent es usado por otras aplicaciones", "Cuidado" )
  ENDIF

  oAsis:lWait   := Espera

// ***********************************************************************
oAsis:lSpeechInPopups := Hablar // Nuevo en la versión 2.2 
// ************************************************************************

// Distintos sonidos
oAsis:cSoundInfo     := ".\aviso.wav"
oAsis:cSoundStop     := ".\error.wav"
oAsis:cSoundQuestion := ".\pregunta.wav"

DEFINE   WINDOW  oWndMain  TITLE     "Pruebas con TMSAgent"
ACTIVATE WINDOW  oWndMain  MAXIMIZED ON INIT (PostCarga()); 
                                     VALID (oAsis:wYesNo( "¿Deseas Terminar tu Sesión de Trabajo?", "Confirme" ))
                                     
oAsis:Hide()                                                                      
oAsis:END() 
QuitarRegistroOCX() 

RETURN nil                                     


//------------------//
STATIC FUNCTION PostCarga()

LOCAL   XPos:= 825   //-> Aki recupero la posición X donde deje el asistente, y donde kiero que vuelva a aparecer
LOCAL   YPos:= 545   //-> Aki recupero la posición Y donde deje el asistente, y donde kiero que vuelva a aparecer
LOCAL lAsist:= "1"   //-> Dentro del archivo INI guardo si el asistente es visible (1) o si esta oculto (0) 
LOCAL nSpeed:= "120" //-> Aki defino cuantas palabras va a decir el asistente

    IF lAsist == "1"  
       oAsis:Show()     
       oAsis:Move(XPos,YPos,25)
ELSEIF lAsist == "0"
       oAsis:Hide()
ENDIF

IF lAsist == "1" 
   oAsis:SAY("\Spd="+nSpeed+"\Hola Bienvenido a TMSAgent 2.2 ")
ENDIF

RETURN nil


//------------------//
STATIC FUNCTION RegistrarOCX()
       //Aki agregas la clave al registro para registrar tu OCX
RETURN NIL


//------------------//
STATIC FUNCTION QuitarRegistroOCX()
       //Aki quitas la clave al registro para que no usen tu OCX
RETURN NIL

[QAZWSX2K]

muy agradecido, pruebo y si no me sale te molesto un ratico mas, jejeje

[AIDA]

Hola

En el ejemplo anterior estan estas lineas

Code: Select all

//------------------//
STATIC FUNCTION RegistrarOCX()
       //Aki agregas la clave al registro para registrar tu OCX
RETURN NIL


//------------------//
STATIC FUNCTION QuitarRegistroOCX()
       //Aki quitas la clave al registro para que no usen tu OCX
RETURN NIL

espero conseguir la manera de aplicarlas es importante, no creen
si alguien sabe como se aplican le agradeceria su ayuda

Saluditos

[Andrés González]

AIDA, perfecto y funcionando. Lo había intentado en otras ocasiones y me faltaba información. Lo que has expuesto está completísimo. Ahora me falta interactuar con el TTS, ya que tengo un montón de voces funcionando. Voy a ver que tal sale y luego miro de incorporarlo a las aplicaciones. Sabes como se crean los personajes? Tenemos un buho como logotipo y me gustaría hacerlo.

[Andrés González]

AIDA, un 10 por tu aportación. Ya he visto que has incorporado lo de crear el personaje y como interactuar con las diferentes voces. Buen trabajo. Mañana me toca trabajar y espero tener tiempo para dedicarme a crear el Buho. Te comento.

[VeRCE]

Dios !!!

No puedo creer que mi vieja y querida clase TMSAGENT siga viva !!!!!
Gracias AIDA..... te importaria mantenerme al tanto de tus
modificaciones (si las ha habido) ??


Gracias.

[VeRCE]

Estimados esto me motiva mucho....

Dentro de poco subire nuevamente mi clase a un servidor junto con el nuevo VERCE que
amablemente esta modificando mi amigo William..

Un abrazo y seguimos en contacto!!!

[AIDA]

Holaaaaaaaa Juan Carlos

Estoy usando tu clase 100% sin modificarla

espero me puedas ayudar en algunas cositas en donde estoy atoradita

te comento que me encanta tu clase MUCHOS TENQUIUS


Muchos Saluditos

[VeRCE]

Con gusto Aida..... búscame por MSN para charlar por ahi.
jcso "@" hotmail


Saludos.