TActiveX() (play a video or sound)

[Antonio Linares]

Tambien puede servirte:

oActiveX : currentmedia:name

[acuellar]

Realmente perfecto.

Muchas gracias Antonio.

Casi listo mi Karaoke

Lo que me gustaría es mostrar el video en Full Screen sin el dialogo como cuando se da doble click.

Saludos,

Adhemar

[Antonio Linares]

Define asi el diálogo:

DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support" STYLE WS_POPUP

[acuellar]

Perfecto, se ve mejor.

Y para ocultar los controles?

Gracias, gracias.

Saludos,

Adhemar

[Antonio Linares]

oActiveX : player : uiMode = "none"

http://msdn.microsoft.com/en-us/library/windows/desktop/dd564089(v=vs.85).aspx

Windows Media Player is embedded without controls, and with only the video or visualization window displayed.

[acuellar]

Muchas gracias Antonio

Me quedo con oActiveX:uiMode = "none"
Tuve que aumentar
If Lastkey()=27
Exit
Endif
Para finalizar el video, el Lastkey se queda con 27 y ya no muestra otro video, cómo se inicializa? LO SOLUCIONE CON __KeyBoard(Chr(13))

Lo ideal seria que al pasar el mouse en la parte inferior muestre los controles así:

Mil gracias por tu invalorable tiempo.

Saludos,

Adhemar

[acuellar]

Sigo con el TActiveX

Como se puede saber cuando se pulsó el Botón Play y Stop


Quiero que al pulsar Play ejecute el audio donde está el puntero

Saludos,

Adhemar

[RodolfoRBG]

Hola Adhemar,

Podrias compartirnos las instrucciones que haz descubierto para trabajar videos usando:

oActiveX:=TActiveX():New( oWndV, "WMPlayer.OCX" )

De antemano, gracias.

[acuellar]

Rodolfo aquí un ejemplo

Code: Select all  Expand view  RUN

Function Main()
     Private oActiveX
     DEFINE DIALOG oDlgP TITLE UPPER(NOMBRE) STYLE WS_POPUP ; oDlgP:lHelpIcon := .F.
     ACTIVATE DIALOG oDlgP NOWAIT ON INIT PlayVideo() VALID (oActiveX:controls:Stop(),.T. )
 
Return nil
*
Function PlayVideo()
   
   oActiveX = TActiveX():New( oDlgP, "WMPlayer.OCX" )
    __KeyBoard(chr(13))
   oDlgP:oClient = oActiveX
   oDlgP:MAXIMIZE()

   oActiveX:Settings:Volume = 100
   oActiveX:StretchToFit = .T.
 
    oActiveX:url ="C:\VIDEOS\video1.avi"  // "C:\MUSICA\audio1.mp3"
    While oActiveX:Playstate != 1
      SysRefresh()
      If Lastkey()=27
         Exit
      Endif
    EndDo
    oDlp:End()
Return nil
 

Saludos,

Adhemar