topic-26565

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TActiveX()
Posted: Tue Jun 18, 2013 06:50 PM

Tambien puede servirte:

oActiveX : currentmedia:name

regards, saludos

Antonio Linares
www.fivetechsoft.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TActiveX()
Posted: Tue Jun 18, 2013 07:17 PM

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

Saludos,

Adhemar C.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TActiveX()
Posted: Tue Jun 18, 2013 07:42 PM

Define asi el diálogo:

DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support" STYLE WS_POPUP

regards, saludos

Antonio Linares
www.fivetechsoft.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TActiveX()
Posted: Tue Jun 18, 2013 07:58 PM

Perfecto, se ve mejor.

Y para ocultar los controles?

Gracias, gracias.

Saludos,

Adhemar

Saludos,

Adhemar C.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TActiveX()
Posted: Tue Jun 18, 2013 10:47 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TActiveX() (play a video or sound)
Posted: Wed Jun 19, 2013 01:29 PM

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

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TActiveX() (play a video or sound)
Posted: Thu Aug 29, 2013 07:32 PM

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

Saludos,

Adhemar C.

RodolfoRBG

Posts: 257

Joined: Tue May 16, 2006 04:46 PM

Re: TActiveX() (play a video or sound)
Posted: Wed Sep 18, 2013 05:52 PM

Hola Adhemar,

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

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

De antemano, gracias.

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TActiveX() (play a video or sound)
Posted: Wed Sep 18, 2013 08:37 PM

Rodolfo aquí un ejemplo

Code (fw): Select all Collapse

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

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion