Page 2 of 2
Re: TActiveX()
Posted:
Tue Jun 18, 2013 6:50 pm
by Antonio Linares
Tambien puede servirte:
oActiveX : currentmedia:name
Re: TActiveX()
Posted:
Tue Jun 18, 2013 7:17 pm
by 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
Re: TActiveX()
Posted:
Tue Jun 18, 2013 7:42 pm
by Antonio Linares
Define asi el diálogo:
DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support" STYLE WS_POPUP
Re: TActiveX()
Posted:
Tue Jun 18, 2013 7:58 pm
by acuellar
Perfecto, se ve mejor.
Y para ocultar los controles?
Gracias, gracias.
Saludos,
Adhemar
Re: TActiveX()
Posted:
Tue Jun 18, 2013 10:47 pm
by Antonio Linares
oActiveX : player : uiMode = "none"
http://msdn.microsoft.com/en-us/library/windows/desktop/dd564089(v=vs.85).aspxWindows Media Player is embedded without controls, and with only the video or visualization window displayed.
Re: TActiveX() (play a video or sound)
Posted:
Wed Jun 19, 2013 1:29 pm
by 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
Re: TActiveX() (play a video or sound)
Posted:
Thu Aug 29, 2013 7:32 pm
by 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
Re: TActiveX() (play a video or sound)
Posted:
Wed Sep 18, 2013 5:52 pm
by RodolfoRBG
Hola Adhemar,
Podrias compartirnos las instrucciones que haz descubierto para trabajar videos usando:
oActiveX:=TActiveX():New( oWndV, "WMPlayer.OCX" )
De antemano, gracias.
Re: TActiveX() (play a video or sound)
Posted:
Wed Sep 18, 2013 8:37 pm
by acuellar
Rodolfo aquí un ejemplo
- Code: Select all Expand view
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