Mp3 плеер, Как написать, где скачать? Опции

[Dead.MorozZ]

Существует ли компонент имитирующий mp3 плеер? Если да то где скачать, если нет то как написать?

[klem4]

компонент TMediaPlayer ...

[GoodWind]

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

[Dead.MorozZ]

To: klem4
А как мне после завершении мелодии перейти на следующую??

[klem4]

по разному можно,смотря как реализуешь список воспроизведения или пользуешься OpenGialog-ом, смысл - открыть аудио с новым названием, см аттач, готовая прога (не моя)

[Dead.MorozZ]

Почему у меня не работает эта часть программы (Воспроизведение следующей композиции после завершения предыдущей)

Код

 ifPlayer.Position = Player.Length then
 begin
   Player.FileName := '-FileName-';
   Player.Open;
 end;

Значение Player.FileName присваивается, но само не открывается

ЗЫ: Player это у меня MediaPlayer так называется

Сообщение отредактировано: Dead.MorozZ - 4.12.2005 23:28

[volvo]

if Player.Position = Player.Length then begin

   Player.FileName := '-FileName-';
   Player.Open;
   Player.Play; { < -- Добавь  }

end;

[Dead.MorozZ]

У меня вот какая ситуация, помогите разобраться:
У меня все муз.файлы называются 1, 2, 3, ...
как мне восртоизводить по-очереди?
Почему не воспринимается мой код:

Код

 inc(i);
 s := IntToStr(i);
 s := s + '.mp3';
 Player.FileName := s;
 Player.Open;
 Player.Play;

[volvo]

Dead.MorozZ,
у меня вот так срабатывает:

  mediaplayer1.filename := inttostr(current) + '.mp3';
  mediaplayer1.Open;
  mediaplayer1.Play;
  inc(current);

А что у тебя происходит? Ошибка, или просто не играет?

[Dead.MorozZ]

У меня пишет что не может найти таких файлов

[volvo]

Ну, так файлы должны быть или в текущей папке (вместе с EXE), или нужно прописывать полный путь к ним...

[Dead.MorozZ]

У меня так и есть файлы в одной куче с ЕХЕ-шником

[Dead.MorozZ]

To: volvo
Ты свой код в каком обработчике события реализовывал?

Сообщение отредактировано: Dead.MorozZ - 6.12.2005 1:11

[Dead.MorozZ]

Можно ли заменить МедиаПлеер на что нибудь более "симпатичное" или изменить его внешний вид??

[GoodWind]

можно убрать visible с mediaplayer и сделать кнопки типа play-stop с таким кодом:

 mediaplayer1.play;

или

 mediaplayer1.stop;

[Dead.MorozZ]

To: GoodWind
И че это изменит? На внешний вид это никак не влияет, по-моему

[volvo]

Dead.MorozZ,
ты не понял... Сам TMediaPlayer станет невидимым, но все его возможности будут доступны... А ты можешь добавить несколько красивых кнопок и назначить им действия Play/Pause/Stop как показал GoodWind... Тут уж все зависит от тебя - как нарисуешь, так и будет...

[Dead.MorozZ]

А никто не пробовал TrackBar для Плеера сделать?? Помогите пожа...

[Gothic_Snake]

А никто не пробовал TrackBar для Плеера сделать?? Помогите пожа...

Я пробывал, получается только чтение позиции, изменение при помощи TMediaPlayer не получилось. Поищи описание MCI комманд... TMediaPlayer сделан исключительно на MCI...

[Dead.MorozZ]

Как исправить функцию PlayList из аттача Klem4
чтоб расширение файлов в ListBox'e не писалось??