Info Delphi

La magia de la programación a tu alcance

Música, maestro

Hola a todos,

hoy voy a mostrar un pequeño truco para hacer más entretenidas vuestras aplicaciones, pero hay que tener cuidado con el, porque se puede pasar de algo discreto y elegante a algo hortera con una sola línea de código.

Vamos a agregar a nuestra aplicación una pieza musical, que se reproduzca mientras se encuentre activa.

Lo primero que hay que tener presente es que, ya que reproduciremos música, esta debe ser, o de libre distribución, o que no esté sujeta a copyright, dado que, al menos en España, este hecho está regulado legalmente.

Una vez encontrada nuestra pieza musical, deberemos copiarla en el directorio de nuestra aplicación.

Ahora agregamos al formulario un componente TMediaPlayer

La idea consiste en establecer alguna de sus propiedades en tiempo de diseño, de forma que cuando se inicie nuestra aplicación, o al efectuar alguna operación nuestro usuario, se ponga en marcha el reproductor.

La principal es la propiedad FileName que deberemos rellenar con el nombre del fichero a reproducir, incluida la ruta completa.

Debemos habilitar la propiedad AutoOpen a true y si queremos que se reproduzca de forma continua, poner a true la propiedad AutoRewind.

Cambiamos ahora la propiedad visible a false y ya solo nos queda, programar el evento con el cual se pone en marcha el reproductor, por ejemplo en el formCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Play;
end;

Recuerda poner a disposición del usuario alguna opción que le permita detener el reproductor (una opción del menú, o un botón pequeño), programando su evento así:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

Saludos

Jueves, 19 febrero 2009 Posted by | Delphi | Deja un comentario