Reproducir video

[lKinGl]

Salu2 amigos foristas, quisiera saber como se reproduce un video desde delphi

ya que estoy desarrollando un programa que quiero que el manual sea estilo videotutorial y quiero que cuando se pulse un boton se ejecute 1 solo video solo eso.... espero me puedan ayudar

puedo adaptar el video a avi o mpg o como sea para que funcione dentro de delphi con total video converter

P.D. si no se puede en delphi 7 no importa si se abre el reproductor de windows media y que lo reproduzca tambien sirve

Gracias adelantadas

[[Delphius]]

Hola lKinGl,
Delphi, en la pestaña System tiene un componente llamada TMediaPlayer. Con dicho componente puedes reproducir los formatos de video avi y mpg.

Para visualizarlos debes asociar en la propiedad Display a un Panel o algún elemento en donde se visualizará el video.

Saludos,

[lKinGl]

gracias por responder amigo delphius, pero que codigo debo usar para reproducir "videotutorial1.avi".

inserté un olecontainer y el tmediaplayer creo que vi en algun lado que con el olecontainer se podia ver videos pero si tienen mejor opcion se agradeceria muchisimo

ahhh y en la propiedad display del tmediaplayer puse olecontainer1

[[Delphius]]

lKinGl,
No he visto el OleContainer.

La manera en que se usa el TMediaPlayer es sencilla:

1. En la propiedad FileName se establece el path completo del archivo.
2. En Display, el control en donde se verá el video.
3. Invocar el comando Open.
4. Invocar el comando Play.

Hay una propiedad que determina el formato o configuración del modo de reproducción... en este momento no recuerdo el nombre de la propiedad. Por defecto viene establecido para que de forma automática se configure cuando se establece el archivo en FileName; por lo que por lo general no es necesario cambiarla, pero en caso de ser necesaria o si lo consideras apropiado establece la configuración adecuada.

En este momento no tengo Delphi a mano. Presiona F1 y ve la ayuda sobre el componente. Allí está aclarado el tema. Por cierto, en otras oportunidades se habló de este componente.

Saludos,

[lKinGl]

Listo Delphius muchas gracias funcionó como dijiste