Componente Media player no Delphi

[jefersonap]

Bom minha dúvida é simples, estou querendo fazer um player só pra mp3 no delphi e o unico componente disponivel pra essa aplicação é o media player, mas só consigo usar ele pra tocar 1 musica por vez, não consigo colocar um playlist pra ele poder ir tocando e ir pulando de musica em musica até o final do playlist.

Existe alguma propriedade ou evento do media player que me permite fazer isso?

[jefersonap]

Ninguém?

[Gabriel-bhz-]

SALVE!!

Crie um vetor para armazenar os diretórios das mídias, depois cria uma função para controlar se a musica atual terminou...

Tipo:

var
  Form1: TForm1;
  //Guarda os diretórios das músicas
  ListDir: array [0..5] of string = ('','','','','','');
  //Guarda o índice da faixa atual
  FxAtual: integer = 0;

implementation

{$R *.dfm}
//Carrega a Lista
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if OpenDialog1.Execute
     then for i := 0 to 5 do
             if ListDir[i] = ''
                then begin
                       ListDir[i] := OpenDialog1.FileName;
                       ListBox1.Items.Add(OpenDialog1.FileName);
                       Break;
                     end;
end;
//Verifica se é ou não o fim da faixa
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MediaPlayer1.Position = MediaPlayer1.Length
     then begin
            MediaPlayer1.Close;
            MediaPlayer1.FileName := ListDir[FxAtual + 1];
            MediaPlayer1.Open;
            MediaPlayer1.Play;
          end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  MediaPlayer1.Close;
  Mediaplayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];
  MediaPlayer1.Open;
  Timer1.Enabled := True;
end;

Você deve setar o Timer na propriedade Enabled como False...

Uma base deste programa seu seria esta...

[jefersonap]

Grande Gabriel-bhz-

Sua dica foi de grande ajuda, o meu problema era exatamente quando saber se a música acabou e pular para próxima,eu estava usando

if MediaPlayer1.track.Position = MediaPlayer1.track.Length

não estava dando certo de jeito nenhum.

Estou agora completando o programa quando eu estiver pronto posto aqui.

Valeu!

[Visitante: Gabriel Trindas]

Olá companheiros...

Aproveitando este tópico se vocês puderem me ajudar...Bem segui as dicas do meu chara ai em cima, mas gostaria de saber como usar esses códigos sem usar o TMediaPlayer e sim TActiveMovie...Alguem sabe...Preciso rodar uma playlist...valeu!!!!

[Visitante: jaydee]

Bom dia.

estou tentando fazer com que uma lista de mp3 e video clipes toque automáticamente com delphi, poderia me ajudar? ou indicar alguem que possa me dar algumas aulas particulares?

obrigado

[Visitante: jaydee]

Boa tarde Gabriel.

por favor, me tira uma dúvida

eu fiz o player que voce demosntrou no forum e acontece um probleminha.

quando mando tocar ele toca a primeira musica, depois ele vai para a segunda musica e aí quando a segunda musica acaba ao invés de ir para a terceira ele toca a segunda musica novamente e fica repetindo ela sempre

voce sabe o que pode ser?

Preciso saber como ocultar as extensões dos arquivos em um listbox e filelistbox

gostaria de saber como rodar arquivos mpg no delphi?

por favor, se puderem me ajudar.

como rodar programas desenvolvidos no delphi em um computador com windows xp onde não tem delphi instalado?