Tocar 3 músicas MP3 em seqüencia com o MPlayer

Delphi

15/07/2006

Olá colegas...

Preciso tocar 3 músicas (MP3) em seqüencia
utilizando o componente MPlayer.

Preciso no caso saber se a música (Ex: musica1.mp3) foi finalizada...
para só aí poder carregar e tocar a (Ex: musica2.mp3)...
e assim sucessivamente.

Resumindo:

Tem algum EVENTO no MPLAYER que eu possa utilizar...
para checar se uma determinada música (MP3)...
ainda está sendo tocada...
para que eu possa escolher...
entre dar uma PAUSA na música atual...
ou carregar o arquivo do HD (Ex:musicaX.mp3)...
o qual seria a música seguinte a ser tocada?

Obrigado desde já.

* Tocar 3 músicas MP3 em seqüencia com o MPlayer


Userba

Userba

Curtidas 0

Respostas

Ranyeryfip

Ranyeryfip

15/07/2006

Olá amigo, nunca fiz isto antes, mas como vi sua pergunta fiquei curioso e fiz o codigo abaixo, tah feio, mas é um exemplo, hehehe, teste ai pra ver se serve para o seu caso.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Musica: String;
  Musica1: String = ´C:\aa.mp3´;
  Musica2: String = ´C:\bb.mp3´;
  Musica3: String = ´C:\cc.mp3´;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.Notify := false;
  MediaPlayer1.FileName := Musica;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then begin

if (Musica = Musica3) then begin
MediaPlayer1.Close;
exit;
end;

if (Musica = Musica2) then begin
Musica := Musica3;
button1.Click;
end;

if (Musica = Musica1) then begin
Musica := Musica2;
button1.Click;
end;

end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Musica:= Musica1;
end;

end.



GOSTEI 0
POSTAR