| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MediaPlayer On Notify [D6, WinXP]
SONIC90 © (2007-02-17 22:39:00)Пишу плеер и столкнулся с такой проблемой, когда пытаюсь перемотать трек через 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;
Sonic90 (2007-02-24 15:32:00) [1]Уже разобрался.Думкин спасибо.
Sonic90 (2007-02-24 15:31:00) [2]Уже разобрался.Думкин спасибо.
Думкин (2007-02-21 06:11:00) [3]> SONIC90 (20.02.07 21:26) [2]
А гадать не надо. Если непонятна логика происходящих событий, то заведи запись в лог по каждому чиху из приведенных трех процедур, и скидывай на диск его. Потом посмотришь и поймешь, что же происходит.
SONIC90 (2007-02-20 21:26:00) [4]
> Ты привел не все что нужно. Из приведенного не видно, -
> причем тут Трекбар.
Я сам не понимаю причем Трекбар.
Вот все процедуры Трекбара:
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-19 08:28:00) [5]Ты привел не все что нужно. Из приведенного не видно, - причем тут Трекбар.
| |
