Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2008, 19:18   #1
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию ProgressBar

Как сделать так чтобы ПРогрессБар ходил с Песней из MediaPLayer? Например: песня заканчивается прогрессБар тоже, песня в середине прогрессбар тоже. и т.п.
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 20.01.2008, 19:22   #2
Makarov
Форумчанин
 
Аватар для Makarov
 
Регистрация: 03.01.2008
Сообщений: 102
По умолчанию

В событие таймера! ProgressBar1.Position:=MediaPlayer1 .Position. Знаешь но почему-то не всегда совпадает. Может кто еще что подскажет!
Теория без практики мертва и бесплодна, практика без теории невозможна и пагубна.
Makarov вне форума Ответить с цитированием
Старый 20.01.2008, 19:23   #3
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Уже пробовал, не помогло.
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 20.01.2008, 19:25   #4
Veiron
Форумчанин
 
Аватар для Veiron
 
Регистрация: 01.12.2007
Сообщений: 346
По умолчанию

НЕ совпадать может из-за того что шаг (step) в прогресс баре равен 10 или из-за довольно отсталого компонента MediaPlayer.
Win 10 x64 | VS 2015 | MSSQL 2014
autovestitv.ru
Veiron вне форума Ответить с цитированием
Старый 20.01.2008, 19:27   #5
Makarov
Форумчанин
 
Аватар для Makarov
 
Регистрация: 03.01.2008
Сообщений: 102
По умолчанию

А какой тогда лучше шаг делать? Одну миллисекунду?
Теория без практики мертва и бесплодна, практика без теории невозможна и пагубна.
Makarov вне форума Ответить с цитированием
Старый 20.01.2008, 19:36   #6
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Я думаю что делается так: ProgressBar1.Position:=MediaPlayer1 .TrackPosition......... а что в конце писать?
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 20.01.2008, 19:38   #7
ERASERROR
Форумчанин
 
Регистрация: 15.01.2008
Сообщений: 117
По умолчанию

перед проигрыванием: progressbar1.max:=mediaplayer1.leng th progressbar.step:=0 я только не пробовал...
ERASERROR вне форума Ответить с цитированием
Старый 20.01.2008, 19:44   #8
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

а я попробовал, не сработало
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 20.01.2008, 19:49   #9
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Ищем по форуму, много раз уже рассматривалось.
mutabor даже выкладывал готовый пример плеера.
Там как раз ваш принцип описан.

Последний раз редактировалось Alex21; 20.01.2008 в 19:52.
Alex21 вне форума Ответить с цитированием
Старый 20.01.2008, 19:54   #10
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
По умолчанию

Alex21, большое спасибо!
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ProgressBar Makarov Компоненты Delphi 3 04.02.2008 22:42
Новый ProgressBar Лубышев Компоненты Delphi 8 23.01.2008 12:10
ProgressBar Terran Общие вопросы Delphi 5 09.01.2008 21:18
ProgressBar pentiumForever Компоненты Delphi 2 07.09.2007 13:33