Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с реализацией медиа плеера 
:(
    Опции темы
Animex
Дата 3.6.2007, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 3.6.2007

Репутация: нет
Всего: нет
Начал писать свой медиа плеер и столкнулся с проблемами.
Как реализовать перемотку аудио файлов?
С перемоткой видео проблем нет, для этих целей существуют методы: Back и Step, а вот с аудио не знаю, что делать
З.Ы работаю с компонентом TMediaPlayer
PM MAIL ICQ   Вверх
Данкинг
Дата 3.6.2007, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
MediaPlayer.Position ?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
0LineGate
Дата 3.6.2007, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
Position и Length тебе в руки...  smile 
PM MAIL WWW Skype   Вверх
Animex
Дата 3.6.2007, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 3.6.2007

Репутация: нет
Всего: нет
вот сделал по вашим советам, у меня всё компилируется без ошибок, но я где-то ошибся в построении кода посмотрите плиз )
обработчик скролбара:
Код

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
MediaPlayer1.Position:= ScrollBar1.position;
if ScrollBar1.position = num then   \\\num:Integer
MediaPlayer1.Position:= num
else
showmessage ('Îøèáêà ÷òåíèÿ!');
    if ScrollBar1.position = num then
MediaPlayer1.Position:= num
else
showmessage ('Îøèáêà ÷òåíèÿ!');
end;
PM MAIL ICQ   Вверх
0LineGate
Дата 3.6.2007, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
что за num? что там за значение?..
делай проще 
сначала
 
Код

ScrollBar1.Max:=MediaPlayer1.Length;


Код

procedure TForm1.ScrollBar1Change(Sender: TObject);    
begin    
MediaPlayer1.Position:= ScrollBar1.position;    
MediaPlayer1.Play;
end;
PM MAIL WWW Skype   Вверх
Animex
Дата 4.6.2007, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 3.6.2007

Репутация: нет
Всего: нет
спасибо, а вот ещё вопрос: как сделать, чтобы с проигрыванием трека скролбар перемещался?
поиск помог решить эту проблему...
Но вот другой вопрос есть, как сделать что бы при появлении формы скролл бар не был в самом конце?
То, что было найдено в поиске мне не помогло.

Это сообщение отредактировал(а) Animex - 4.6.2007, 18:53
PM MAIL ICQ   Вверх
X2com
Дата 2.7.2007, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 13.2.2007

Репутация: нет
Всего: нет
Я это все решал через таймер: По таймеру интервалом 10 я делал
Код

scrollbar1.Position:=mediaplayer1.Position;

Таким образом таймер изначально считывает нулевое положение медиаплеера и скроллбар у тебя находится в начале
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0460 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.