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
