Помогите с MediaPlayer!!

[vizor9]

Здравствуйте!!!
У меня такая просьба, я делаю плеер, но не могу кое-что сделать.
Я не могу сделать, чтоб когда проигрывается плеер у него двигалась полоса прокрутки(допустим СкроллБар), и когда передвигаешь его, чтоб музыка тоже переходила на нужное место!
Ещё(допустим кидаем на форму Label) чтоб определяла сколько времени будет воспроизводится музыка!
И как сделать плейлист(для загрузки музыки), и чтоб оттуда можно было воспроизводить.
Код описать подробно!!!
И еще вопросик: Как сделать так чтоб форма и кнопки и другие компоненты приняли вид Windowsa XP, и при переносе проги допустим на 98 винд то вид кнопок изменялся на класический!!!!
Спасибо!!!!
У меня Делфи 6!!!

[vizor9]

Люди ну чего нибудь вы наверное точно знаете?

[Viteef]

Плейлист - обычный текстовый файл, каждая строка - путь к песне, при загрузке записываешь все в ListBox.

http://www.programmersclub.ru/files/mp3_player.rar
Программа для воспроизведения mp3 файлов. Для запуска программы поместите в каталог с Delphi исходником mp3 файлы и только после этого запускай проект.

Обрати внимание, сверху форума: Правила форума | Исходники Delphi| Основы Delphi программирования | Блог программистов | Флеш игры

[vizor9]

Спасибо!! с этим разобрался!!
А как сделать полосу прокрутки???

[mutabor]

Да забудь ты уже про этот вин98

Как сделать так чтоб форма и кнопки и другие компоненты приняли вид Windowsa XP

Так как у тебя Дельфи 6, тебе надо самому подключить XP Manifest, ничего сложного. Как это сделать Гугл тебе поможет найти. В Дельфи 7 уже есть компонент XP Manifest.
В не ХР интерфейс будет обычным.

А как сделать полосу прокрутки???

Тебе нужно знать:
1. Длину муз. трека
2. Длину твоей полосы прокрутки (может быть все что угодно)
3. Соотношение (пропорцию) их длин.

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

Перемотка.
По клику в полосе, ставишь позицию трека в место соответствующее клику, опять же учитывая пропорцию.

[vizor9]

А вы не могли бы написать код подробно?
по поводу "как сделать полосу прокрутки"!
Цитата:
Так как у тебя Дельфи 6, тебе надо самому подключить XP Manifest, ничего сложного.
А ты не сможешь подсказать как это сделать(подробно), а то в гугле я не нашел!!

[mutabor]

тримай исходник

[vizor9]

Спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!

[vizor9]

И еще небольшой вопросик на счет плеера!!!
А не могли бы вы дать пример чтоб в нем присутствовали:время показывающее сколько длится трек, полоса прокрутки, плей лист, время текущего трека. А на картинке будущий проигрыватель.

[Alex21]

 
var msall,s,m:integer; {миллисекунды, секунды, минуты}  
...
msall:=Form1.MediaPlayer1.Length; {получаем длину трека в миллисекундах}
  m:=msAll div 60000; {определяем сколько минут}
  s:=(msAll div 1000) mod 60; {определяем сколько секунд длится трек}
  LabAllTime.Caption:=inttostr(m)+':'+inttostr(s); {выводим в Label}

Пример получает длину в минутах и секундах. msAll - показывает сколько миллисекунд длится весь трек, msNow - текущую позицию.

Аналогично определяем сколько минут и секунд прошло:

 
{это все вешаем на Таймер}
var msnow,ss,mm:integer; {миллисекунды, секунды, минуты}  
...
msNow:=Form1.MediaPlayer1.Position; {получаем текущую позицию трека в миллисекундах}
  mm:=msNow div 60000; {определяем сколько минут}
  ss:=(msNow div 1000) mod 60; {определяем сколько секунд длится трек}
  LabNowTime.Caption:=inttostr(mm)+':'+inttostr(ss); {выводим в другой Label}