Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перемотка [D6, WinXP]

Ivolg © (2003-12-16 13:10:00)
Помогите!Как зделат ползунок для покрутки у TMediaplayer'а примерно
знаю кое какие свойства TrackLength,TrackPosition но что сними делать незнаю?Подсккажите плиз!!Спасибо!

Zeqfreed (2004-01-01 18:24:00) [1]
А я думаю, что Юзер захочет, чтобы позиция ползунка на TrackBar`е всегда менялась, чтобы было видно сколько уже проиграно из трэка. Поэтому нам придётся через промежуток времени сдвигать ползунок. В свою очередь это вызовет событие Change TrackBar`а. Таким образом чем чаще мы будем обновлять позицию ползунка, тем чаще трэк будет перематываться!

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

Intell (2004-01-01 10:13:00) [2]
Как перематывать 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 (2003-12-30 09:29:00) [3]
Странно, ты уверен, что всё правильно сделал. Надо для прокрутки использовать TScrollBar. И выполнять вот это:
"MediaPlayer.Pause;
MediaPlayer.Position := ScrollBar1.Position;
MediaPlayer.Play;" в событии Scroll(именно Scroll, а не Change)!!!.

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

Ivolg (2003-12-29 20:10:00) [4]
Наверное MediaPlayer @ Паршивит!

Zeqfreed (2003-12-26 23:01:00) [5]
Я делал так:

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

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

Ivolg (2003-12-25 14:55:00) [6]
Я пишу так:
var
c:integer;
begin
c:=Trackbar1.position;
mediaplayer1.position:=c;
или так
mediaplayer1.position:=trackbar1.position;
этот код почему то олично перематывает avi,mpeg и другие видио форматы, а музыкальные напроч отказывается пириматывать!
Помогите что делать? Спасибо!!!

Ivolg (2003-12-22 14:12:00) [7]
Mihey//
TrackBar.TrackLength := MediaPlayer.Length;
от куда взялось это свойство:TrackLength у TrackBar'а
не знаю!

Mihey (2003-12-17 20:39:00) [8]
Код в студию.
Вообще же, TrackBar.TrackLength := MediaPlayer.Length;
Ну а дальше через TrackPosition.

Ivolg (2003-12-17 19:49:00) [9]
Ни чё ни пойму!Толи код не работает или мидиаплейер глючит!

ЮЮ (2003-12-17 05:54:00) [10]
TMediaplayer.Position := <Позиция ползунка>
и обратно

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »