Reproducir una lista de MP3

[VOR]

Que Tal, mi duda es como puedo reproducir una lista de archivos MP3 en delphi y que me permita seguir ejecutando otras opciones de mi programa.

Probe con Tmediaplayer pero tengo que esperar a que terminen todos los archivos MP3 que le indique en el codigo para poder seguir usando mi programa.

Y lo que necesito es que reproduzca cada archivo de la lista pero que a la vez me permita seguir ejecutando otros modulos en el programa.

No se si se pueda, y de antemano agradezco su ayuda.

Saludos.

[JoseQ]

no conozco muxo ese componente, pero se me ocurre asi de repente que lo que podrias acer es tener el player como una aplicacion externa que cargas dsd otra ...asi, deberias tener un modulo central, una especie de menu, que carge los demas modulos segun se vaian necesitando

[Ricardosml]

Creo que no entiendo perfectamente cual es tu problema.
Pero se me ocurre que manejes manualmente la lista (usando una array de direcciones a reproducir) y que cuando se termine un tema recién reproduzcas el siguiente (usando el evento notify, si mal no recuerdo).
De todas maneras si es que no entendí bien el problema, repreguntame, aclarando que es lo que necesitas.

[VOR]

Que tal Ricardosml , antes que nada gracias por tu contestación, y el problema es que mientras este ejecutando la lista no podre usar ningun otro modulo de la aplicacion hasta que termine, y lo que quiero es precisamente eso que se ejecute la lista y seguir usando otros modulos del programa.

La unica opcion es lo que me dice JoseQ de tener este modulo de mp3 aparte, pero no se si si pueda en la misma aplicacion junto con los otros modulos.

[roman]

Yo sigo sin entender muy bien el problema. El MediaPlayer puede reproducir un archivo mientras se trabaja en otra cosa de la misma aplicación. ¿Cómo estás manejando la lista? ¿Qué tal que nos muestras algo de código?

// Saludos

[rzarrector]

bueno en realidad no es la misma duda pero si similar el problema eske tengo un TPlayer, un Directorylistbox, drivelistbox, filelistbox..estos estan bien programados para que encuentre mp3 y lo que quiero hacer es dar click sobre ellos y se reproduzcan en el Tplayer no se como hacerlo hasta ahora solo puedo reproducir los archivos seleccionados en la propiedad Filename del tplayer
es pekeño mi codigo pero logra hacer eso:

Dialogs, FileCtrl, StdCtrls, ExtCtrls, MPlayer;
type
TForm1 = class(TForm)
Bevel1: TBevel;
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
Panel1.Caption := Mediaplayer1.FileName;
end;
end.

[franklininiciad]

tapenas llebo programando delphi 3 dias y por suerte o nose el caso k ya ise lo que ocupas el problema k yo tengo es que no puedo o nose como aserle para reproducir los archivos uno despues del otro ya que al darle doble clic o presionar una tecla me reproduce el archivo *.mp3 pero para k vean mejor mi duda les mostrare el desastre k llebo en estos 3 dias de programar :...wait please

[franklininiciad]

bacicamente ocupas:

MediaPlayer1.Filename := FileListBox2.FileName;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.open;
MediaPlayer1.Play;

esto es lo k llebo echo yo en 3 dias pero algien me puede decir como aser k me muestre una lista de espera en similar al reproductor de windows yak si selecciono otro me bota el anterior ???:




unit freeplay;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls,jpeg, MPlayer;
type
TForm22 = class(TForm)
FileListBox2: TFileListBox;
Image1: TImage;
MediaPlayer1: TMediaPlayer;
cerrar: TButton;
Label1: TLabel;
Button1: TButton;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Label2: TLabel;
MediaPlayer2: TMediaPlayer;
Button2: TButton;
procedure FileListBox1DblClick(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure Button1KeyPress(Sender: TObject; var Key: Char);
procedure cerrarClick(Sender: TObject);
procedure FileListBox2KeyPress(Sender: TObject; var Key: Char);

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form22: TForm22; a,N:integer;
implementation
{$R *.dfm}

procedure TForm22.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if N<=0
then N:=N+1;
Label1.Caption := IntToStr(N);
if N>=1 then
N:=N+1;
Label1.Caption := IntToStr(N-1);
end;
procedure TForm22.cerrarClick(Sender: TObject);
begin
Close;
end;
procedure TForm22.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox2.Directory:=DirectoryListBox1.Directory;
FileListBox1.Directory:=DirectoryListBox1.Directory;
end;
procedure TForm22.FileListBox1DblClick(Sender: TObject);
begin
label2.Caption:=FileListbox1.filename;
end;
procedure TForm22.FileListBox2KeyPress(Sender: TObject; var Key: Char);
begin
if N>=1 then
N:= N-1;
MediaPlayer1.Filename := FileListBox2.FileName;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.open;
MediaPlayer1.Play;
Label1.Caption := IntToStr(N);
if N=1 then
Label1.Caption := IntToStr(N-1);
//
//MediaPlayer2.Filename := FileListBox2.FileName;
//MediaPlayer2.DeviceType := dtAutoSelect;
if N=0 then
MediaPlayer1.pause;
end;
end.

[franklininiciad]

no olvides poner el codigo en el evento dobleclic o en onkey pres como lo tengo jejeje pero prueba el mio ese si funciona lo k kieres aser bueno con doble clic o al selecionar el archivo y presionar una tecla te lo reproduce yo seguire invesstigando aver k mas el agrego

[franklininiciad]

es decir tu puedes reproducir la lista entera en el reproductor pero el programa no ase otra cosa asta terminar el proceso me podrias poner el codigo??

[DenisDiaz]

Disculpen mi ignorancia, trabajo con delphi 7 y no encuentro el componente MediaPlayer, me podrían orientar?
Muchas gracias.

[roman]

Debe estar en la pestaña System.

// Saludos

[DenisDiaz]

En cuanto pueda lo reviso.