Перемотка

← →
Ivolg (2003-12-16 13:10) [0]

Помогите!Как зделат ползунок для покрутки у TMediaplayer"а примерно
знаю кое какие свойства TrackLength,TrackPosition но что сними делать незнаю?Подсккажите плиз!!Спасибо!

← →
ЮЮ © (2003-12-17 05:54) [1]

TMediaplayer.Position := <Позиция ползунка>
и обратно

← →
Ivolg (2003-12-17 19:49) [2]

Ни чё ни пойму!Толи код не работает или мидиаплейер глючит!

← →
Mihey © (2003-12-17 20:39) [3]

Код в студию.
Вообще же, TrackBar.TrackLength := MediaPlayer.Length;
Ну а дальше через TrackPosition.

← →
Ivolg (2003-12-22 14:12) [4]

Mihey//
TrackBar.TrackLength := MediaPlayer.Length;
от куда взялось это свойство:TrackLength у TrackBar"а
не знаю!

← →
Ivolg (2003-12-25 14:55) [5]

Я пишу так:
var
c:integer;
begin
c:=Trackbar1.position;
mediaplayer1.position:=c;
или так
mediaplayer1.position:=trackbar1.position;
этот код почему то олично перематывает avi,mpeg и другие видио форматы, а музыкальные напроч отказывается пириматывать!
Помогите что делать? Спасибо!!!

← →
Zeqfreed (2003-12-26 23:01) [6]

Я делал так:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
MediaPlayer.Pause;
MediaPlayer.Position := ScrollBar1.Position;
MediaPlayer.Play;
end;

Получается кривовато, но работает.

← →
Ivolg (2003-12-29 20:10) [7]

Наверное MediaPlayer @ Паршивит!

← →
Zeqfreed (2003-12-30 09:29) [8]

Странно, ты уверен, что всё правильно сделал. Надо для прокрутки использовать TScrollBar. И выполнять вот это:
"MediaPlayer.Pause;
MediaPlayer.Position := ScrollBar1.Position;
MediaPlayer.Play;" в событии Scroll(именно Scroll, а не Change)!!!.

P.S. Или это я чего-то не так понял.

Как перематывать Media файлы в MediaPlayer?

Создаёте компонент TrackBar и щёлкаете по нему 2 раза, далее вписываете процедуру:

with MediaPlayer1 do
if FileName<>"" then
mediaplayer1.position:=Round((Length/100)*trackbar1.Position);

(Цыфра 100 означает максимальное значение TrackBar`а, у меня оно равно 100)

В итоге получится:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
with MediaPlayer1 do
if FileName<>"" then
mediaplayer1.position:=Round((Length/100)*trackbar1.Position);
end;

Ну если это не сработает, значит точно паршивит TMediaPlayer!?

← →
Zeqfreed (2004-01-01 18:24) [10]

А я думаю, что Юзер захочет, чтобы позиция ползунка на TrackBar`е всегда менялась, чтобы было видно сколько уже проиграно из трэка. Поэтому нам придётся через промежуток времени сдвигать ползунок. В свою очередь это вызовет событие Change TrackBar`а. Таким образом чем чаще мы будем обновлять позицию ползунка, тем чаще трэк будет перематываться!

P.S. Возможно Я НЕПРАВ!

Перемотка Найти похожие ветки