Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Помогите с реализацией медиа плеера

Автор: Animex 3.6.2007, 19:00

Начал писать свой медиа плеер и столкнулся с проблемами.
Как реализовать перемотку аудио файлов?
С перемоткой видео проблем нет, для этих целей существуют методы: Back и Step, а вот с аудио не знаю, что делать
З.Ы работаю с компонентом TMediaPlayer

Автор: Данкинг 3.6.2007, 19:07

MediaPlayer.Position ?

Автор: 0LineGate 3.6.2007, 20:02

Position и Length тебе в руки... smile

Автор: Animex 3.6.2007, 20:34

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

Код


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;

Автор: 0LineGate 3.6.2007, 20:57

что за num? что там за значение?..
делай проще
сначала

Код


ScrollBar1.Max:=MediaPlayer1.Length;

Код


procedure TForm1.ScrollBar1Change(Sender: TObject);    
begin    
MediaPlayer1.Position:= ScrollBar1.position;    
MediaPlayer1.Play;
end;

Автор: Animex 4.6.2007, 16:29

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

Автор: X2com 2.7.2007, 18:13

Я это все решал через таймер: По таймеру интервалом 10 я делал

Код


scrollbar1.Position:=mediaplayer1.Position;

Таким образом таймер изначально считывает нулевое положение медиаплеера и скроллбар у тебя находится в начале