FiveTech Software tech support forums

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

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