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;

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

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

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