Se podra ver una secuencia de videos con "MediaPlayer.MediaP

[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 viodeo 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 oActiveX2

[jll-fwh]

Hola Echacon:

Aqui tienes los parametros para el ActiveX.

http://msdn.microsoft.com/en-us/library/ms930698.aspx

un saludo
JLL
MSN: fwh-jll@hotmail.es