Главная страница
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.012 c
1-10229
McSimm2
2003-07-21 08:43
2003.08.04
Api Timer


3-10083
AkaSaint
2003-07-11 01:09
2003.08.04
Глюк в методе ADOTable.Requery или у меня?


3-10118
Котяра
2003-07-14 19:26
2003.08.04
Как быстрее вычислить поле?


4-10489
Brand2000
2003-05-29 01:46
2003.08.04
Загрузка моей программы перед загрузкой Explorer a


1-10248
strannic
2003-07-21 13:48
2003.08.04
Можно ли импортировать *.rc в Delphi