помощь в программе

[rmlib0]

Здравствуйте, пишу программу -- будильник, ли рядом.
Там используется компонент TMediaPlayer, который должен играть музыку по окончанию времени. Беру файлы *.m3u достаю из них пути к песням, и далее заношу в TStringList. После закидываю файл в проигрыватель и он играет, но только одна песня, далее через условия прошу его играть следующую, но он брыкается и говорит, что не хочет...
Точнее, он ничего не говорит, вот с этой проблемой и прошу помочь разобраться.
Места в программе, в которых нужно махать напильником отмеченны

//@TO_DEBUG

Сами файлы прикрепил
Заранее спасибо.

[AXS]

Ты слишком всё усложняешь... Я бы просто отловил когда проигрыватель закончит играть трек и запустил следующий.

procedure frmMain.FormCreate(Sender: TObject);
 begin
   MediaPlayer1.Notify   := True;
   MediaPlayer1.OnNotify := NotifyProc;
 end;

 procedure frmMain.NotifyProc(Sender: TObject);
 begin
   with (Sender as TMediaPlayer) do
    begin
     case Mode of
       mpStopped: {Здесь запускаешь следующий трек};
       
     end;
    Notify := True; // Кстати это ключевая строчка твоей проблемы
   end;
 end;

PS: Этот цикл надо прерывать:
Вместо

for i:=7 to Length(s) do
  if s[i]=',' then
    begin
      readln(f,s);
      FILE_PATH.Add(s);
    end;

пиши

for i:=7 to Length(s) do
  if s[i]=',' then
    begin
      readln(f,s);
      FILE_PATH.Add(s);
      Break;  // Вот...
    end;

[rmlib0]

Спасибо за отзыв, но у меня ругается на то, что не знает такого, как NotifyProc, если в свою процедуру вставлять, то кидается на Sender.
Потому немного головы не приложу (ли выступающих частей, что делать).
Если фурычить и изменять в некоторых местах, то он вылетать начинает с ошибкой Index List Bound, т.е. не следующую строку берет из TStringList, а пробегает по всем, пока не закончится все

Может, кто еще, чем поможет
(или определит хотя бы, как правильно использовать пример "свыше")

[Карась]

Достаточно сложный будильник и писали его явно не Вы
Ктомуже ИМХО запутанно написан.

Будет полезней если Вы его напишите с нуля... Тогда не будет вопросо зачем это написанно и что оно делает, а пользы будет горазда больше....

Одна только отладка и исправление ошибок чего стоит А это бесценый опыт

[AXS]

Если проблема только в этом, то попробую помочь, но если этим дело не закончится - бросай это дело нафиг.
В общем там где утебя объявлены функции и процедуры -
private
. . .
public
. . .и так далее, после слова public напиши

procedure NotifyProc(Sender: TObject);

и нажми Ctrl+Shift+C У тебя создастся заготовка процедуры

procedure frmMain.NotifyProc(Sender: TObject);   
 begin  
  
 end;

Доведи процедуру до того состояния, которое я тебе описывал выше и вперёд...

[rmlib0]

Достаточно сложный будильник и писали его явно не Вы

Позвольте не согласиться Все же писал я ...

Ктомуже ИМХО запутанно написан.

Вот, наверно, из-за этого и запутанный
Некоторые функции брал из нета, т.к. знание API MustDie'я у меня на глубоком нуле.

Вообще программа писалась для того, чтобы разбудить на один из экзаменов, но она не понадобилась, т.к. все же не пришлось ложиться

За все советы спасибо, поковыряю, если все же не получится, то, наверно, забью. Хоть и жаль, что такой функции не будет

[zetrix]

писал давно плеер. просто выбираем директорию, он отображает все mp3 файлы этой директории. Жмём на любой из них, он его проигрывает, а потом автоматически проигрывает следующий и т.д. Надеюсь поможет.

Сразу говорю, при воспроизведении последнего файла - ошибка. Я помню, что её устранял, видимо это не последняя версия

P.S.: Писал лет 5-6 назад, поэтому уровень наинизший.