Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Плеер [D6, D7, Win95/98, WinXP]

Opera © (2003-04-08 22:26:00)
Помогите пожалуйста!!!
A: В своем плеере как узнать сколько длится песня и показать это в Label1, и в Label2 показывать сколько она уже играет.

B: Не подскажите код как в плеере TrackBar"ом перематывать играющюю песню!!

Используемый мною компонент TMediaPlayer
Помогите пожалуйста!!!

Kair (2003-04-12 21:01:00) [1]
Label2.Caption:=FormatDateTime("nn:ss",
MediaPlayer1.Position/(24*3600000));

MediaPlayer1.Position:=Trunc(
MediaPlayr1.Length*(TrackBar1.Position/TrackBar1.Max));

Lister (2003-04-10 16:20:00) [2]
Добавляю, а то ошибся вначале

У плеера есть свойство Length. Это длина песни в миллисекундах (правда режимы можно менять). Делаешь таймер на одну секунду, в его обработчике пишешь:

//минуты и секунды:
label2.caption:=intTostr(mp1.position/1000) div 60 +":"+ intTostr(mp1.position/1000) mod 60;

label1.caption можно в обработчике таймера не писать, она все равно не меняется

Lister (2003-04-10 16:15:00) [3]
У плеера есть свойство Length. Это длина песни в миллисекундах (правда режимы можно менять). Делаешь таймер на одну секунду, в его обработчике пишешь:

//минуты и секунды:
label1.caption:=intTostr(mp1.length/1000) div 60 +":"+ intTostr(mp1.length/1000) mod 60;

Нетрудно сделать и обратный отсчет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »