Текущий архив: 2005.06.14;
Скачать: 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 вся ветка
Текущий архив: 2005.06.14;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.036 c
