Encadenar sonidos????

[[seoane]]

Empezado por mancurnino

¿Hay alguna forma de que estos sonidos que se han añadido a la lista de reproduccion, se reproduzcan uno detras de otro en modo asincrono? Ya que asi, tengo que esperar a que acaben todas las canciones para poder seguir trabajando en la ventana en la que estoy, y me gustaria estar en mi ventana haciendo cosas mientras se va escuchando la lista de reproduccion.

Luego he tenido que poner el metodo Execute en la parte publica porque sino no puedo llamarlo desde otra Unit no?

A las dos preguntas te respondo con la misma respuesta, la clase TSound que pongo de ejemplo es descendiente de TThread, por lo tanto el método Execute no lo tienes que llamar tu, si no que se llama de forma automática y además se ejecuta en un hilo diferente al principal por lo que es imposible que bloquee ninguna ventana.

Si usas el código tal como lo pongo en el ejemplo no tendrás ningún problema.

[mancurnino]

Vale, muchas gracias jeje. Me va bien, creia que para poner la lista en marcha habia que hacer el .execute pero lo hace directamente al añadir una canción y lo ejecuta de forma asincrona y puedo seguir trabajando en la ventana.

Ahora tengo otra pregunta: El caso es que tengo en un resource varias canciones de varios cds; pongo un cd en cada panel y segun elija el cd, me sale un panel u otro con las canciones de ese cd. Bien, por ejemplo en un panel tengo 14 canciones. y cada cancion tiene un boton asociado, es decir:

procedure TV_Principal.Button1Click(Sender: TObject);
var
  ListaReprod: TSound;
begin
  ListaReprod:= TSound.Create;
  ListaReprod.Add('CD1_1');
  ListaReprod.Add('CD1_2');
  ....
  ListaReprod.Add('CD1_14');
end;

Aqui lo que hace, es algo asi como el reproductor Windows Media Player, que pones una cancion de un cd, y escuchas esa primero, y luego el resto del cd, dando la vuelta como si fuese un loop y volviendose a ejecutar todas las canciones, asi que si por ejemplo pones la cancion 5, te ejecuta desde la 5 hasta la 14 y luego desde la 1 hasta la 5 de nuevo. En el ejemplo que pongo, es la cancion 1, y por lo tanto añado las 14 canciones a la lista, empezando por la 1, pero si hubiese puesto la cancion 5 seria asi:

procedure TV_Principal.Button5Click(Sender: TObject);
var
  ListaReprod: TSound;
begin
  ListaReprod:= TSound.Create;
  ListaReprod.Add('CD1_5');
  ListaReprod.Add('CD1_6');
  ....
  ListaReprod.Add('CD1_14');
  ListaReprod.Add('CD1_1');
  ListaReprod.Add('CD1_2');
  ListaReprod.Add('CD1_3');
  ListaReprod.Add('CD1_4');
end;

Nose si me explico jeje, supongo que si. El caso es que quiero que haga como el windows media player, que si ejecuto esta cancion numero 5, me ejecute las 14 empezando desde la 5, y cuando me ejecute la ultima, que seria la 4, vuelva a empezar desde la 5, como si iciese otro click en esta cancion numero 5, y que fuese un loop que se repitiese hasta que hiciese click en otra canción.

Haber si puedes ayudarme, gracias¡

[mancurnino]

Hola de nuevo, he estado investigando, y me sale algun error:

Por ejemplo al ejecutar una cancion lo que quiero es lo que te he comentado en el comentario anterior, que me pare la lista de reproduccion que se estaba ejecutando (si es que se estaba ejecutando alguna), y que me ejecute la nueva lista relacionada con la cancion de ese boton, por ejemplo la lista que empieza por la cancion numero 5.

¿Como hago para que la lista que se estaba ejecutando, si es que habia alguna, se pare al cambiar de cancion (button), y luego me ejecute la lista de esa cancion?

Hasta ahora lo que he hecho es declarar la lista arriba del todo, y que sea global para toda la unit principal que tengo, de modo que al ejecutar cualquier cancion, ace sus efectos en la misma lista. Ejemplo, las canciones numero 2 y 7:

 
procedure TV_Principal.CD1_2Click(Sender: TObject);
begin
  ListaReprod.Terminate;
  ListaReprod:= TSound.Create;
  ListaReprod.Add('CD1_2');
  ListaReprod.Add('CD1_3');
  ListaReprod.Add('CD1_4');
  ListaReprod.Add('CD1_5');
  ListaReprod.Add('CD1_6');
  ListaReprod.Add('CD1_7');
  ListaReprod.Add('CD1_8');
  ListaReprod.Add('CD1_9');
  ListaReprod.Add('CD1_10');
  ListaReprod.Add('CD1_11');
  ListaReprod.Add('CD1_12');
  ListaReprod.Add('CD1_13');
  ListaReprod.Add('CD1_14');
  ListaReprod.Add('CD1_1');
end;
 
procedure TV_Principal.CD1_7Click(Sender: TObject);
begin
  ListaReprod.Terminate;
  ListaReprod:= TSound.Create;
  ListaReprod.Add('CD1_7');
  ListaReprod.Add('CD1_8');
  ListaReprod.Add('CD1_9');
  ListaReprod.Add('CD1_10');
  ListaReprod.Add('CD1_11');
  ListaReprod.Add('CD1_12');
  ListaReprod.Add('CD1_13');
  ListaReprod.Add('CD1_14');
  ListaReprod.Add('CD1_1');
  ListaReprod.Add('CD1_2');
  ListaReprod.Add('CD1_3');
  ListaReprod.Add('CD1_4');
  ListaReprod.Add('CD1_5');
  ListaReprod.Add('CD1_6');
end;

Algo asi es lo que tengo, pero me lo hace mal. La primera vez que pulso un boton, por ejemplo el de la cancion 2, si que me hace la lista y me la reproduce, pero cuando ejecuto la 7 por ejemplo, no me para la lista anterior, y no se me reproduce la nueva. Para pararla pongo .terminate al principio de cada boton, tb he probado con .destroy pero tampoco me va bien, lo que quiero es que el sonido se pare, y se sigue ejecutando, no sé bien que procedure utilizar o como modificar el codigo para que haya una especie de procedure "Stop". Y aparte necesito saber como se puede repetir esta lista de cada boton hasta que cambie de cancion, es decir, que si pulso el boton 2 que me ejecuta la lista de 14 canciones empezando por la 2, me ejecute las 14 una vez, y otra, y otra...

Gracias por la ayuda