MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3)

[Kashp]

Здравствуйте. Мне нужна ваша помощь!
Бросаю на форму MediaPlayer и кнопку. При нажати на кнопку должны последовательно проигрываться несколько mp3 треков.
Если сделать так (см. код), то 1-й трек не проигрывается, а 2-й начинает играть.
Так вот, подскажите пожалуйста, как сделать последовательное воспроизведение mp3 файлов (именно mp3)
(Заранее извиняюсь, если опять не в том разделе тему создал )

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

MediaPlayer1.FileName:='2.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

[ZhekON]

onTimer:

if mediaplayer1.Position=mediaplayer1. Length then
begin
mediaplayer1.FileName:='2.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

или вообще пользуйся TlistBox для добавления треков и тогда будет проще обрабатывать файлы(если их большэ двух)

[Kashp]

Сообщение от ZhekON

onTimer:


или вообще пользуйся TlistBox для добавления треков и тогда будет проще обрабатывать файлы(если их большэ двух)

Эээм.... Ты не мог бы поподробнее мне разжевать

[mutabor]

const
Tracks: array[0..2] of string = ('1.mp3','2.mp3','3.mp3');

var
nomer: byte;

//FormCreate
begin
with MediaPlayer1 do
  begin
  FileName:=Tracks[0];
  Open;
  Play;
  end;
end;

//OnTimer
begin
with MediaPlayer1 do
  if mpcanplay in Capabilities then
    if Position = Length then 
      begin
      Inc(nomer);
      if nomer > 2 then nomer:=0;
      FileName:=Tracks[nomer];
      Open;
      Play;
      end;
end;

[Kashp]

Спасибо за внимание! Я разобрался.

[Kashp]

Вот значит, по совету ZhekON'a я сделал плейлист с помощью ListBox'a, в который файлы добавляются перетаскиванием. Подскажите пожалуйста, как бы мне теперь проиграть этот плейлист вне зависимости от количества треков?

[mutabor]

смотри здесь, долго объяснять, я так понял ты плеер делаешь
я сначал подумал может звук надо в программе
http://www.programmersforum.ru/attac...4&d=1188456458

[Kashp]

Сообщение от mutabor

смотри здесь, долго объяснять, я так понял ты плеер делаешь
я сначал подумал может звук надо в программе
http://www.programmersforum.ru/attac...4&d=1188456458

Спасибо, сейчас буду разбираться.

[Kashp]

mutabor, до такого плеера, что в архиве, мне еще очень далеко , ты не мог бы написать процедурку только для последовательного воспроизведения?

И вот еще

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
If MediaPlayer1.Position=MediaPlayer1.Length then
For i:=1 to 100 do
begin
try
MediaPlayer1.FileName:=Form2.ListBox1.Items[i];
MediaPlayer1.Open;
MediaPlayer1.Play;
except;
end;
end;

Тоесть по команде с первой формы запускается таймер на второй форме.
По идее, треки должны последовательно воспроизводиться, но воспроизводится только 1-й трек, и затем самый последний трек. Почему не воспроизводятся промежуточные? И как исправить этот код?

[mutabor]

var i: integer; //текущий трек

procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
If MediaPlayer1.Position=MediaPlayer1. Length then
begin
inc(i);
if i > Form2.ListBox1.Items.Count -1 then i:=0;
MediaPlayer1.FileName:=Form2.ListBo x1.Items[i];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
except;
end;

допиши после запуска на воспроизведение этот код
if not Timer1.Enabled then Timer1.Enabled:=true; //изначально должно быть false
и можешь убрать из таймера try except