Скачать: CL | DM;

MediaPlayer On Notify   Найти похожие ветки 

← →
SONIC90   (2007-02-17 22:39) [0]

Пишу плеер и столкнулся с такой проблемой, когда пытаюсь перемотать трек через TrackBar плеер зависает.
Вот код процедуры On Notify:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Mode=mpStopped then
MediaPlayer1.Notify:=True;
MediaPlayer1.FileName:=Form3.sListBox1.Items[Form3.sListBox1.ItemIndex+1];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


---

← →
Думкин ©   (2007-02-19 08:28) [1]

Ты привел не все что нужно. Из приведенного не видно, - причем тут Трекбар.

---

← →
SONIC90   (2007-02-20 21:26) [2]

> Ты привел не все что нужно. Из приведенного не видно, -
> причем тут Трекбар.

Я сам не понимаю причем Трекбар.
Вот все процедуры Трекбара:
procedure TForm1.sTrackBar1UserChange(Sender: TObject);
begin
Form1.MediaPlayer1.Position:=Form1.sTrackBar1.Position;
end;

procedure TForm1.sTrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
Form1.MediaPlayer1.Play;
end;

Может при перемотке MediaPlayer останавливается и прога хочет проиграть следующий трек(что видно из OnNotify), но при отпускании ползунка она должна дальше проигрывать данный трек.

---

← →
Думкин ©   (2007-02-21 06:11) [3]

> SONIC90   (20.02.07 21:26) [2]

А гадать не надо. Если непонятна логика происходящих событий, то заведи запись в лог по каждому чиху из приведенных трех процедур, и скидывай на диск его. Потом посмотришь и поймешь, что же происходит.

---

← →
Sonic90   (2007-02-24 15:31) [4]

Уже разобрался.Думкин спасибо.

---

← →
Sonic90   (2007-02-24 15:32) [5]

Уже разобрался.Думкин спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c