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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.01.2009, 13:44   #1
Mazaxaka
Пользователь
 
Аватар для Mazaxaka
 
Регистрация: 26.12.2008
Сообщений: 24
По умолчанию перемотка в mp3 плеере

искал на форуме,www.google.ru,www.ya.ru но не че конкретного не нашел(кое что нашел но она неконтачит совсем). подмогните! как перемотать файл на нужное место? использую MediaPlayer и для перемотки TpsSon(может что другое посоветуйте использовать). Если можно кодиком :-). Спб зарание
Mazaxaka вне форума
Старый 12.01.2009, 14:01   #2
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

TpsSon не юзал но объясню на TrackBar1 далее делай по аналогии
TrackBar1.Max:=MediaPlayer1.Length; // задаем макисмальное значение т.е. длина трека
TrackBar1.Position:=MediaPlayer1.Po sition; // позиция TrackBar1 при проигрывании трека пиши на OnTimer
MediaPlayer1.Position:=TrackBar1.Po sition; // изменение позиции трека
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Старый 12.01.2009, 15:46   #3
spamer
Software Developer
Старожил
 
Аватар для spamer
 
Регистрация: 19.12.2008
Сообщений: 2,070
По умолчанию

Вообщем то KORN суть изложил правильно, но чето оно не хочет пахать.

Вот тебе код 100% рабочий

Код:

//Это пишиш в событии Таймера OnTimer
if mediaplayer1.FileName<>'' then
begin
TrackBar3.Max:=mediaplayer1.Length;
TrackBar3.Position:=mediaplayer1.Position;
end; 

//А это вставляешь в событие OnChange уже TrackBar"a.
If TrackBar3.Position<>mediaplayer1.Position then
begin
mediaplayer1.Position:=TrackBar3.Position;
mediaplayer1.Play;
end;
Будь проще и люди к тебе потянутся

Последний раз редактировалось spamer; 12.01.2009 в 16:23.
spamer вне форума
Старый 12.01.2009, 16:10   #4
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

такой умный7

и нафига ты каждый раз присваиваешь TrackBar3.Max:=mediaplayer1.Length;
это можно один раз при загрузке трека...

If TrackBar3.Position<>mediaplayer1.Po sition then
begin
mediaplayer1.Position:=TrackBar3.Po sition;
mediaplayer1.Play;
end;

можно написать mediaplayer1.Position:=0; либо же само перейдет на 0 при старте нового трека...
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Старый 12.01.2009, 16:24   #5
spamer
Software Developer
Старожил
 
Аватар для spamer
 
Регистрация: 19.12.2008
Сообщений: 2,070
По умолчанию

Оно так не фурычит. Ну и покажи как бы ты это написал.

P.S. Код может и не оптимальный, но он рабочий.
Будь проще и люди к тебе потянутся
spamer вне форума
Старый 12.01.2009, 19:25   #6
Mazaxaka
Пользователь
 
Аватар для Mazaxaka
 
Регистрация: 26.12.2008
Сообщений: 24
Сообщение

спасибо KORN и spamer Оба помогли. теперь все работает
Mazaxaka вне форума
Старый 13.01.2009, 12:04   #7
Mazaxaka
Пользователь
 
Аватар для Mazaxaka
 
Регистрация: 26.12.2008
Сообщений: 24
По умолчанию

ребят вот теперь проблема. все перемотка работает, но плеер начал заикаться (не когда мотаешь, а в прямом воспроизведении) заикается и на два слова назад возвращает песню. думал taimer'ы воюют меж собой. поместил код в один все равно
Mazaxaka вне форума
Старый 13.01.2009, 12:16   #8
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

для этого я использовал компонент из BassPlay и в нем есть компонент Slider и у него есть событие StartTracking и StopTracking в него и вписывай
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума
Старый 13.01.2009, 13:34   #9
Mazaxaka
Пользователь
 
Аватар для Mazaxaka
 
Регистрация: 26.12.2008
Сообщений: 24
По умолчанию

Слушай KORN где взять этот bassplay?
Mazaxaka вне форума
Старый 13.01.2009, 14:03   #10
spamer
Software Developer
Старожил
 
Аватар для spamer
 
Регистрация: 19.12.2008
Сообщений: 2,070
По умолчанию

Mazaxaka ты бы хоть код написанного показал что ли.
Будь проще и люди к тебе потянутся
spamer вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MediaPlayer перемотка с TrackBar Kaifun Мультимедиа в Delphi 2 09.12.2008 19:24
Перемотка в mP3 плеере lionman Мультимедиа в Delphi 3 27.10.2008 21:21
Перемотка в TMediaPlayer Kn793 Компоненты Delphi 0 10.07.2008 11:02
MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3) Kashp Компоненты Delphi 13 28.09.2007 08:38