Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Плеер   Найти похожие ветки 

 
Opera ©   (2003-04-08 22:26) [0]

Помогите пожалуйста!!!
A: В своем плеере как узнать сколько длится песня и показать это в Label1, и в Label2 показывать сколько она уже играет.

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

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


 
Lister   (2003-04-10 16:15) [1]

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

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

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


 
Lister   (2003-04-10 16:20) [2]

Добавляю, а то ошибся вначале

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

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

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


 
Kair ©   (2003-04-12 21:01) [3]

Label2.Caption:=FormatDateTime("nn:ss",
MediaPlayer1.Position/(24*3600000));

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



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-10089
us
2003-07-11 14:35
2003.08.04
Как работать с DBF под Linux


14-10375
VEG
2003-07-16 14:44
2003.08.04
Откуда берется ОН?


1-10258
anatolyk
2003-07-20 22:31
2003.08.04
Повторный запуск Word-a


3-10107
Belkova
2003-07-14 15:12
2003.08.04
Excel


1-10213
Still Swamp
2003-07-20 14:41
2003.08.04
Перехват cобытий и передача их в MyObject