Reproducir video...

En respuesta a la pregunta que dejaron en el chat :)

Como no tengo el Delphi 6, pues el siguiente ejemplo lo hice en Turbo Delphi explorer. Asi es que espero y estos componentes ya existian en el Delphi 6....

La forma mas facil y rapida es la siguiente:

1.- Crea un proyecto de tipo VCL Forms Application - win 32 (en delphi 6 solo crea un proyecto nuevo).

2.- De la paleta de componentes y de la pestaña System, localiza y arrastra a la forma el componente llamado TMediaPlayer

3.- De la paleta de componentes y de la pestaña Dialogs, arrastra un componente TOpenDialog.

4.- De la paleta de componentes y de la pestaña Standar arrastra y coloca un componente TPanel.

5.- De la paleta de componentes, en la pestaña Additional, arrastra y coloca dos componentes TBitBtn en la forma, al primero le pones de caption &Open, al segundo busca la propiedad Kind cambiale a bkClose y solo se pondra el caption y tambien el bitmap de Close.

6.- Selecciona el componente MediaPlayer1 y establece las siguientes propiedades: Display -> Panel1, o sea a la propiedad Display asignale el Panel1.

7.- Selecciona el componente OpenDialog1 y establece las propiedades como muestra la imagen debajo y que estan en un rectangulo rojo.

8.- Haz doble click sobre el boton 1, y escribe el siguiente codigo:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName ;
    MediaPlayer1.Open ;
  end;
end;

9.- Compila y corre el programa (F9), dale clic al boton abrir, selecciona un archivo de video y dale ok, dale click a la flecha de Play en el componente MediaPlayer y disfruta el video... Para salir del programa solo dale clic al boton Close

 

Claro, no es un quicktime player, ni un windows media player o un winamp, simplemente es lo mas basico y que funciona para aplicaciones que solo quieran mostrar algun video, de introduccion por ejemplo...

Saludos!