Работа с несколькими плейлистами

[Xakand_2009]

Здравствуйте.

Я разрабатываю mp3 плеер в Delphi 7, используется MediaPlayer. Имеется 2 плейлиста: один с рекламой, второй с музыкой. Мне необходимо сделать так, чтобы поочерёдно воспроизводились треки из двух плейлистов (три из первого - один из второго). Подскажите, пожалуйста алгоритм или пример реализации данного вопроса.

Спасибо.

[mutabor]

Ну, алгоритм Вы только что описали
А реализация, тут зависит от уровня вашей подготовки, что такое TStringList знаете? Как создавать объекты знаете? Если не знаете, почитайте книгу по Дельфи и делайте так:
1. Создать два экземпляра TStringList (глобальные): sl1, sl2: TStringList;
2. В один загрузить список треков первого плейлиста, во второй список треков второго.
3. Объявите глобальную переменную - счетчик треков: track: integer;
4. По нажатию кнопки Play или при окончании трека выполняйте такой код

Inc(track);
if track mod 4 = 0 then begin
  //воспроизводим трек из второго списка
  Mediaplayer.FileName:=sl2[track div 4 - 1];
  Mediaplayer.Play;
end
else begin
  //воспроизводим трек из первого списка
  Mediaplayer.FileName:=sl1[(track div 4 * 3) + (track mod 4) - 1];
  Mediaplayer.Play;
end;

[Xakand_2009]

Спасибо за быстрый ответ. Используя его я создал приложение, но оно выдаёт ошибку и воспроизведение не начинается. (SL primer 1.rar). Найдите, пожалуйста, её причину.

p.s. В моём плеере в качестве плейлиста используется компонент ListBox. Можно ли вместо StringList использовать этот компонент. Или можно их как-нибудь объединить (для наглядности)?

[Xakand_2009]

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

1. Воспроизведение следующего файла начинается только после очередного нажатия кнопки Play.
2. После нескольких треков плеер выдаёт ошибку и воспроизведение прекращается совсем.
3. Иногда треки повторяются (проигрываются 2 раза подряд).

Как это исправить?
Спасибо.

[Xakand_2009]

Ошибка № 3 крылась в наличии дубликатов воспроизводимых файлов (устранена). SL primer 1.rar. По остальному жду совета.

[mutabor]

Исправленный исходник во вложении

[Xakand_2009]

Здравствуйте. Спасибо, Ваш вариант работает. Но мне необходимо поменять условие:

1. Воспроизводим плейлист с рекламой

2. Воспроизводим первый трек из плейлиста с музыкой

3. Воспроизводим плейлист с рекламой

4. Воспроизводим второй трек из плейлиста с музыкой

И т.д.

Частота воспроизведения плейлиста с рекламой - 25-35 раз в день. Все музыкальные треки должны быть разными.

Возможно ли это?