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]

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

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