Привет!
не подскажите ли как сделать на видоплеере отсчет проигранного времени: сколько времени всего длиться видео, и текущее время прогрывания!
:rose:
таймер |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
таймер |
Catty |
Сообщение
#1
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Привет!
не подскажите ли как сделать на видоплеере отсчет проигранного времени: сколько времени всего длиться видео, и текущее время прогрывания! :rose: -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
Catty |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
вот оно решение!! (спасибо Volvo)
Код procedure TMainForm.Timer1Timer(Sender: TObject); var TheLength: LongInt; mysecond, myminute, myhour: longint; begin [ Player.TimeFormat := tfMilliseconds; TheLength := Player.position; mysecond := (thelength div 1000)mod 60; myminute := (thelength div (60 * 1000))mod 60; myhour := (thelength div (3600 * 1000)); label5.caption := inttostr(myhour)+':'+inttostr(myminute)+':'+inttostr(mysecond)+'\'; end; что бы узнать все длину проигрывания надо position заменить на length :rose: Сообщение отредактировано: Catty - -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
Shadow |
Сообщение
#3
|
Lonely_Raven Группа: Пользователи Сообщений: 640 Пол: Мужской Репутация: 1 |
посмотри свойство видео файла
сводку дополнительно там расписано длительность и т.д. это насчет сколько длится видео -------------------- Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ --------------------- RTFM - Read the fucking manual --------------------- http://www.livejournal.com/users/lonley_raven/ |
Текстовая версия | 26.04.2024 4:59 |