Como crear una lista de reproducción (play list)

[Lucass]

ok buenisimo pero no responde a mi duda, lo que quiero hacer es que los archivos que seleccione cargarlos en la lista

[dec]

Hola,

Hay que revisar la ayuda Lucass. Ahí encontrarás todas las propiedades conque cuenta un componente "TOpenDialog", todos sus eventos, métodos, etc. En todo caso, fíjate que no es complicado lo que necesitas. Todo se basa en la propiedad "Files" del "TOpenDialog":

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
begin
  // Creamos una instancia de "TOpenDialog"
  with TOpenDialog.Create(nil) do
  try
    // Permitiremos seleccionar varios archivos
    Options := Options+[ofAllowMultiSelect];
    // "Ejecutamos" (mostramos) el diálogo
    if Execute() then begin
      // Y recorremos su propiedad "Files"...
      for i := 0 to Files.Count-1 do begin
        // Que contiene los archivos elegidos
        ListBox1.Items.Add(Files[i]);
      end;
    end;
  finally
    Free();
  end;
end;

[Lucass]

amigazo!

va como piña lo que me pasaste!!

muchas gracias

todavia queda mucho por hacer, les voy a ir comentando como va evolucionando..

[Khronos]

Podrias hacer mas, yo tambien estoy haciendo un reproductor multimedia

Lo que hice yo es:
Al abrir el opendialog, que cargue los datos de las canciones sobre un listview con 3 campos:
1º campo: Nombre de la cancion con la funcion ExtractFileName.
2º campo: Duracion de la cancion con una sencilla funcion manejando la propiedad length del mediaplayer
3º campo: Direccion completa de la cancion.

Ademas, guardo la lista de reproduccion en un .phx y la carga automaticamente

Si necesitas ayuda mandame un mp o sigue en este hilo.

Salu2

[[Lepe]]

Yo más bien daría 2 opciones:
- Abrir mp3s (tal y como lo has implementado)
- Abrir Carpeta (con opción de recursividad)

La segunda opción llamas a shBrowseForFolder (lo digo de memoria el api) que te abre el dialogo de abrir carpeta de windows, supongo es más cómodo para el usuario final.

En fin ya tú verás

Saludos

[Lucass]

buen dia para todos!

el tema de la lista ya esta todo bien, lo que me esta pasando ahora es que salta error cuando quiero que muestre la duracion de la cancion..

'No MCI device open'

que puede ser??

[[Delphius]]

Ummm... hace ya mucho que no empleo el TMediaPlayer... y el reproductor que hice fue a parar al olvido.

¿Por casualidad antes de dar la orden Play, le das Open?
Porque para ejecutarlo correctamente debes primero abrirlo y luego ejecutar.
Es decir:

Código Delphi [-]
MediaPlayer1.Open;
MediaPlayer1.Play;

Recuerdo una vez que ese error me apareció aun cuando tenía hecho como en el código anterior. El error se debía a que no le de daba suficientemente para abrirlo. Lo solucioné poniendo un sleep en el medio.

Recuerda que primero debes "leer" el archivo (para ello es el open) y luego disfrutar del sonido.

Saludos,