[ALexandr555]

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

[ALexandr555]

"передвинуть"

[v1s2222]

Ну это зависит от компонента, или библиотеки, которую ты используешь (медиа плеер, или же басс, например).

Если используешь MediaPlayer, то у него есть свойство Position, его и надо изменять (например в TrackBar1.Change)...
Пример:

Код:

1 2 3

TrackBar OnChange    MediaPlayer1.Position := MediaPlayer.Position + 1; // так же у Media Player есть свойства TrackLength, и Length, которые позволят узнать длину песни (видео)

[ALexandr555]

MediaPlayer использую, порпобую

[ALexandr555]

Код:

1 2 3 4 5

procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject); begin TrackBar2.Max := <font color="red">TrackLength;</font> MediaPlayer1.Position := <font color="Red">MediaPlayer</font>.Position + 1; end;

неопознает выделеенное красным Undeclared identifier

[v1s2222]

Если не опазнает, значит не объявил их. А насчет TrackLength - пиши так:

Код:

1 2	MediaPlayer1.TrackLength[i]; // PS добавь на форму сам MediaPlayer1

ЗЫ На статейку, почитай...
http://www.beluch.ru/progr/100comp/4_8_3.htm
А также тута:
http://www.realcoding.net/article/view/1316

[ryderx34]

Сообщение от ALexandr555

Код:

Код:

1	TrackBar2.Max := MediaPlayer1.TrackLength;

это делается один раз, в начале воспроизведения

а позиция задаётся так:

Код:

1 2 3 4

TfrmMyBrowser.TrackBar2Change(Sender: TObject); begin   MediaPlayer1.Position := TrackBar2.Position; end;

[Edos]

В общем народ... срочняк надо всё это сделать без трекбара. вместо бегунка у меня компонент image с изображением бегунка, вместо трека у меня компонент image с изображением трека. мне это надо для того чтоб не испортить дизайн. тоесть ясно да что бегунок и трек я нарисовал в фотошопе...
вот я сижу второй час а думать голова устала. вот настрочил маханький код. он вроде работает, и этот бегунок движется на определённое количество пикселей в секунду соответствующих времени видео, и вроде перематывается тоже правильно, но он всё равно местами подглючивает
вот код:

это часть которая отвечает что бегунок двигался в такт с видео ну чтоб прошла секунда видео и он сдвинулся на общее кол-во пикселей деленное на длину видео и множеное на 60. :
i:=mediaplayer1.Length;
a:=i/60000; b:=688/(a*60); c:=c+b;
image24.Left:=round(c);
label31.Caption:=inttostr(round(c));
if m1=true then image24.Left:=Round(m+c);
image25.Width:=image24.left;


это часть отвечающая за перемотку:

image24.Left:=x+image24.Left-10;
o8:=688-image24.Left;
o10:=(o8-688)*(-1);
o11:=o10*(mediaplayer1.Length/1376);
mediaplayer1.Position:=round(o11);
c:=mediaplayer1.Position/1376;
вот это вроде пашет но не фонтан конечно...
так- что если кому не лень разберитесь плиз...

[KOOL]

если все же перемещать image:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

var pressed:boolean; tx:integer; ... procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   Pressed:=true;   MediaPlayer1.Pause;   tx:=X; end;   procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin   if Pressed then     begin       Panel2.Left:=Panel2.Left+x-tx;       MediaPlayer1.Position:=Round(MediaPlayer1.Length*(Panel2.Left/Panel1.Width));       tx:=x;     end; end;   procedure TForm1.Panel2MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   Pressed:=false;   MediaPlayer1.Play; end;   procedure TForm1.Timer1Timer(Sender: TObject); var r:single; begin   if MediaPlayer1.Length>0 then     r:=MediaPlayer1.Position/MediaPlayer1.Length   else     r:=0;     Panel2.Left:=Round({Image1.Left +} r*Panel1.Width); //раскомментить для TImage'й end;

Но этот способ тормозной, особенно с медиаплеером (который ваще лучше не юзать). Лучше вручную рисовать на трекбаре, навроде этого (это без изображений, но на них заменить нетрудно):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Timer1Timer(Sender: TObject); var r:single; begin ...       with PaintBox3.Canvas do         begin           Pen.Style:=psSolid;           Brush.Color:=clBtnFace;           Rectangle(0, 0, PaintBox3.Width, PaintBox3.Height); //контур           Pen.Style:=psClear;           if BP.GetLength>0 then             r:=BP.GetPos/BP.GetLength           else             r:=0;           Brush.Color:=clRed;           Rectangle(1, 1, Round(PaintBox3.Width*r), PaintBox3.Height); //заливка         end; ... end;

[Edos]

Пасибо большое!... завтра опробую и сообщу результат... о, раз уж на то пошло если кто знает как image вращять по трем осям???? ну вот что-что а вот тут я даже не знаю с какой стороны подойти... если не лень мож кто знает, подскажите плз