Club Builder

[Juan M Castillo]

Hola,

Bueno, el caso es que ando bastante apurado de tiempo, lo demas no haria esta consulta.

Necesito poder reproducir formato *.AVI de la siguiente manera:

Pulso a un botón y visualizo un video AVI que esta contenido en una especie de pantalla (como una de cine). La pantalla inicialmente esta en blanco, y cuando se pulsa el boton empieza a verse, cuando llega al final se para por si solo y la pantalla se vuelve a quedar en blanco...

Creo que esto se hace con el TMediaPlayer, pero, repito, ando muy mal de tiempo para ver como funciona, y este no es mi fuerte.

Muchas gracias de antemano y un saludo,

Juan.

[_Leo]

Hola Juan,

Añade un TMediaPlayer y un TPanel al Form y
pon las siguientes propiedades del MediaPlayer:

AutoOpen = true;

Display = Panel1; //que es donde se visualizara el video, vale cualquier componente derivado de TWinControl

FileName = c:\directorio\video.avi

y simplemente ejecutalo.

Luego si quieres ocultar el MediaPlayer y arrancarlo por código o pararlo y demas tienes:

MediaPlayer1->Play();
MediaPlayer1->Stop();
etc...

y si quieres recibir un aviso al finalizar el video, puedes utilizar el evento OnNotify del mismo, para habilitarlo tienes que poner

MediaPlayer1->Notify = true;

aunque este evento no solo indica que se ha acabado el video sino realmente que se ha completado una operacion dada, como Play, Eject, etc...
si despues de que se dispara el evento quieres seguir recibiendo las proximas veces el evento tienes que poner dentro del mismo evento de nuevo MediaPlayer1->Notify = true;

...espero que sea lo que necesitas.

Saludos.
_Leo