Скачать: CL | DM;

MediaPlayer1   Найти похожие ветки 

← →
Narik ©   (2005-05-27 18:20) [0]

Здравствуйте!!!
Как показать на Label1 сколько MediaPlayer1 проигрывает файл, а на Label2 сколько остальсь?
Спасибо!

---

← →
Antonn ©   (2005-05-27 18:49) [1]

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

procedure TF_Player.Timer1Timer(Sender: TObject);
begin
try                             // ??? ?????????? ??????? ????? ????????????
if (MediaPlayer1.Mode=mpPlaying) or (MediaPlayer1.Mode=mpPaused) then begin  // ???? ????? ??????, ?????? ??????????(???? ?? ??????, ?? ?????????? ?????? ????)
L_time.Caption:= formatdatetime( "nn:ss",MediaPlayer1.Position /(1000*60*60*24) );
L_time_end.Caption:= formatdatetime( "nn:ss",(MediaPlayer1.Length-MediaPlayer1.Position) /(1000*60*60*24) );
PB_POS.Position:= trunc( MediaPlayer1.Position*100/ MediaPlayer1.Length );  // ??????? ??????? ?? PositionBar
end else begin L_time.Caption:="00:00"; PB_POS.Position:=0; end;   // ???? ?? ??????, ?? ?????????? ???? ?? ??????????
except
end;
end;

---

← →
panov ©   (2005-05-27 18:55) [2]

Поле "Тема вопроса" не оформлено.

Вопрос не соответствует теме конференции.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c