MediaPlayer.MediaPlayer.1

[ochacon]

Buenas compañeros..

Mi pregunta es la Siguiente..

Tengo un arreglo con 5 .avis y deseo controlar que cuando un play se termine cargar el siguiente video del arreglo no tengo mucha esperiencia en activex asi que agradezco ayudas, y por otro lado como se puenden cambiar de los headers de un Xbrowse CON UN FONT DIFERENTE.

Aqui dejo algo que encontre por el foro, trabaja de mil maravillas.. solo falta recargar un nuevo video cuando termina..

Agardesco las ayudas o ideas,.,..

Busmatic de Costa Rica.


FUNCTION ESTREMOS()
lOCAL oDlgeNT,nItem3 :=1

aCarga:={".\VIDEOS\video1.avi",".\VIDEOS\video2.avi",".\VIDEOS\video3.avi",".\VIDEOS\video4.avi",".\VIDEOS\video5.avi"}

DEFINE DIALOG oDlgeNT RESOURCE "DLG1"


REDEFINE ACTIVEX oActiveX2 ID 4001 of oDlgeNT PROGID "MediaPlayer.MediaPlayer.1"


ACTIVATE DIALOG oDlgeNT ON INIT( ARRANCAACTIVEX()) CENTER

RETURN


FUNCTION ARRANCAACTIVEX()

oActiveX2:ShowControls :=.f.
oActiveX2:PlayCount :=1
oActiveX2:SendMouseClickEvents :=.f.
oActiveX2:ClickToPlay:=.f.
oActiveX2:DisplaySize:=7
oActiveX2:VideoBorder3D:=.t.
oActiveX2:oClient := oDlgeNT

oActiveX2:SetProp( "FileName",aCarga[ nItem3 ] )

oActiveX2:bOnEvent = { | event, aParams | EventInfo( oDlgeNT,event, aParams ) }

RETURN

function EventInfo( oDlgeNT,event, aParams )

local cMsg := "Event: " + cValToChar( event ) + CRLF + CRLF
local n

cMsg += "Params: "

for n = 1 to Len( aParams )
cMsg += cValToChar( aParams[ n ] ) + CRLF
if cValToChar( aParams[ n ] )=="0" ***********************************> aki si es cero termino el play de avi, o video
nItem3+=1
if nItem3==6
nItem3:=1
endif

oActiveX2:DO( "Stop" ) **************************************** haber no tebngo idea de como hacer esto , se me ocurrio , pero se mentiene el mismmo video
oActiveX2:SetProp( "FileName",aCarga[ nItem3 ] ) no cambio por el viodoe seguiente
oActiveX2:DO( "Play" )
endif
next


return oActiveX2ochacon

Mensajes: 1
Registrado: Dom Dic 26, 2010 7:18 pm