Проблема с воспроизведением Мр3 файлов

[dimka0986]

Я не хочу чтобы играли одновременно. Я не могу проигрывать по очереди какой-либо набор песен, как в обычном проигрывателе. Проиграл одну начал другую и так далее.

[raxp]

черным по-белому, отслеживайте состояние в таймере с проверкой режима stop или play:

if MediaPlayer1.Position<MediaPlayer1.Length then ...

upd
-------

s.Creator
Может лучше использовать событие OnNotify?

нет, нужно отслеживать окончание и позицию в треке... мне непонятно почему TC пример невнимательно смотрит...
по-мне так наилучший вариант, это сразу реализовывать на directshow плеер, а не мучать "убитый" mplayer

[s.Creator]

Может лучше использовать событие OnNotify?
Вот нашел в справке Delphi:

const

  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    Form1.Caption := ModeStr[Mode];
    { Note we must reset the Notify property to True }
    { so that we are notified the next time the }
    { mode changes }
    Notify := True;
  end;
end;

[dimka0986]

Если я чего не понимаю, так это из-за незнания английского.
При наборе
if MediaPlayer1.Position<MediaPlayer1. Length then ..
Выдает ошибку связанную с EMCIDeviceError
Если введу
except
on EMCIDeviceError do....
требует продолжение или какой-то компонент в OpenSpBatton.

[dimka0986]

Все, разобрался.
Необходимо было в начале MMSistem прописать.
Спасибо за помощь.