Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como crear una lista de reproducción (play list) (https://www.clubdelphi.com/foros/showthread.php?t=48558)

Lucass 27-09-2007 20:05:07

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

mi consulta se debe a que en mi reproductor de musica que estoy desarrollando quisiera elegir varios archivos para reproducir pero solamente puedo elegir de a uno..
una vez elegidos los quiero agregar en una lista de reproduccion.

espero ser claro..graciass!!

poliburro 27-09-2007 20:12:08

Pues, algo sencillo y rápido sería ir colocando los archivos a reproducir en un INI. :).

Lucass 27-09-2007 20:13:52

gracias, pero seria la unica forma de hacerlo?

poliburro 27-09-2007 20:20:22

nop, no es la única, tu inventiva decidirá las maneras.

Uso de Inis.
USo de una tabla de access
Uso de un archivo binario
Uso del registro
USo de un csv
Uso de un txt
.........................

Lucass 27-09-2007 20:23:50

me parece que no me exprese bien entonces, lo que quiero hacer es seleccionar varios archivos cuando hago el openDialog y lo que me esta pasando es que puedo seleccionar de a uno...

sigue siendo esa tu respuesta?

poliburro 27-09-2007 20:33:38

Cita:

Empezado por Lucass (Mensaje 234436)
me parece que no me exprese bien entonces, lo que quiero hacer es seleccionar varios archivos cuando hago el openDialog y lo que me esta pasando es que puedo seleccionar de a uno...

sigue siendo esa tu respuesta?


Exacto jajaja, hay que pulirnos un poco más en nuestras preguntas.

En el Componente dialog, en su propiedad options debes habilitar el multiselect

Delphius 28-09-2007 07:58:56

Hola Lucass, veo que eres nuevo en los foros. Aqui tratamos de inculcar la costumbre de que se debe buscar primero y luego preguntar. El tema se ha tratado en varias ocasiones, asi que con una simple búsqueda obtendrás muchos resultados.

Por otro lado te recomiendo que hagas una leída a la guia de estilo. Ya que como te han recomendado, hay que pulir mejor tu pregunta. Si puedes darnos mayores detalles sobre el tema te podremos dar respuestas más precisas.

Como yo digo: ante una pregunta general, una respuesta general. Y asi fue. El buen amigo poliburro te ha dado las opciones ¿Por cual de ellas te decides? Hay otras alternativas... todo dependerá de lo que realmente deseas conseguir.

Saludos,

Lucass 28-09-2007 14:40:21

Gracias amigos!

ya puedo seleccionar varios archivos con el openDialog, ahora lo que quisiera hacer es poder cargar estos archivos seleccionados en un TListBox..

espero que me tengan paciencia!!jejee

Lepe 28-09-2007 15:01:23

Lucas, abajo del todo tienes los temas relacionados, y uno de los hilos que apunta es este

Saludos

Lucass 28-09-2007 15:48:00

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

dec 28-09-2007 19:27:41

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 28-09-2007 20:03:41

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 28-09-2007 20:22:02

Podrias hacer mas, yo tambien estoy haciendo un reproductor multimedia :D

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 :D

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

Salu2 ;)

Lepe 01-10-2007 12:11:09

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 01-10-2007 15:28:18

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 01-10-2007 15:56:24

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,

Lucass 01-10-2007 16:08:13

tal cual amigo!

ya no aparece el error, lo voy a ver ahora es descomponer el numero que me da, en mm:ss..

Lucass 01-10-2007 17:29:17

esto ya va tomando forma!!

ahora me quiero meter con el volumen..alguna pista para darme??


La franja horaria es GMT +2. Ahora son las 08:23:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi