Помощь - Поиск - Пользователи - Календарь
Полная версия: Mp3 плеер
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Dead.MorozZ
4.12.2005 15:26
Существует ли компонент имитирующий mp3 плеер? Если да то где скачать, если нет то как написать? blink.gif
klem4
4.12.2005 16:03
компонент TMediaPlayer ...
GoodWind
4.12.2005 16:26
я для этого использую bass.dll
скачать можно тут
если будут вопросы по использованию, обращайся
Dead.MorozZ
4.12.2005 17:03
To: klem4
А как мне после завершении мелодии перейти на следующую??
klem4
4.12.2005 17:23
по разному можно,смотря как реализуешь список воспроизведения или пользуешься OpenGialog-ом, смысл - открыть аудио с новым названием, см аттач, готовая прога (не моя)
Dead.MorozZ
4.12.2005 19:26
Почему у меня не работает эта часть программы (Воспроизведение следующей композиции после завершения предыдущей)
Код
 ifPlayer.Position = Player.Length then
 begin
   Player.FileName := '-FileName-';
   Player.Open;
 end;

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

ЗЫ: Player это у меня MediaPlayer так называется
volvo
4.12.2005 19:33
if Player.Position = Player.Length then begin

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

end;
Dead.MorozZ
4.12.2005 21:33
У меня вот какая ситуация, помогите разобраться:
У меня все муз.файлы называются 1, 2, 3, ...
как мне восртоизводить по-очереди?
Почему не воспринимается мой код:
Код
 inc(i);
 s := IntToStr(i);
 s := s + '.mp3';
 Player.FileName := s;
 Player.Open;
 Player.Play;
volvo
4.12.2005 21:46
Dead.MorozZ,
у меня вот так срабатывает:

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

А что у тебя происходит? Ошибка, или просто не играет?
Dead.MorozZ
4.12.2005 22:07
У меня пишет что не может найти таких файлов norespect.gif
volvo
4.12.2005 22:20
Ну, так файлы должны быть или в текущей папке (вместе с EXE), или нужно прописывать полный путь к ним...
Dead.MorozZ
4.12.2005 22:38
У меня так и есть файлы в одной куче с ЕХЕ-шником dry.gif dry.gif
Dead.MorozZ
5.12.2005 18:26
To: volvo
Ты свой код в каком обработчике события реализовывал?
Dead.MorozZ
6.12.2005 19:24
Можно ли заменить МедиаПлеер на что нибудь более "симпатичное" или изменить его внешний вид??
GoodWind
6.12.2005 19:39
можно убрать visible с mediaplayer и сделать кнопки типа play-stop с таким кодом:
 mediaplayer1.play;

или
 mediaplayer1.stop;
Dead.MorozZ
6.12.2005 20:16
To: GoodWind
И че это изменит? На внешний вид это никак не влияет, по-моему unsure.gif unsure.gif unsure.gif
volvo
6.12.2005 20:24
Dead.MorozZ,
ты не понял... Сам TMediaPlayer станет невидимым, но все его возможности будут доступны... А ты можешь добавить несколько красивых кнопок и назначить им действия Play/Pause/Stop как показал GoodWind... Тут уж все зависит от тебя - как нарисуешь, так и будет... blum.gif
Dead.MorozZ
20.01.2006 11:41
А никто не пробовал TrackBar для Плеера сделать?? Помогите пожа...
Gothic_Snake
22.01.2006 19:19
Цитата(Dead.MorozZ @ 20.01.2006 14:41) *

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

Я пробывал, получается только чтение позиции, изменение при помощи TMediaPlayer не получилось. Поищи описание MCI комманд... TMediaPlayer сделан исключительно на MCI...
Dead.MorozZ
22.01.2006 20:33
Как исправить функцию PlayList из аттача Klem4
чтоб расширение файлов в ListBox'e не писалось??
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.