| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TMediaPlayer воспроизведение используя БД [D7, XP]

worldmen ©   (2010-06-06 21:54:00) 

В БД хранястся имена файлов и путь к ним. На форме есть TMediaPlayer- им я и проигрываю mp3 файлы. Вставил процедуру, реагирующую на нажатие кнопки Next:

procedure TFormMP3.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
 var DoDefault: Boolean);
begin
 if Button=btNext then
 begin
   IBQuery1.Next;
   MediaPlayer1.FileName:=Dir+IBQuery1.FieldByName('fname').AsString;
   MediaPlayer1.Open;
   MediaPlayer1.Play;
 end;
End;
При этом файл не проигруется, надо нажать на Play.
Но код по дойному щелчку мыши по DBGridвоспроизводит файл:
procedure TFormMP3.DBGrid1DblClick(Sender: TObject);
begin
 MediaPlayer1.FileName:=Dir+IBQuery1.FieldByName('fname').AsString;
 MediaPlayer1.Open;
 MediaPlayer1.Play;
End;


---

И. Павел   (2010-06-06 23:17:00) [1]

Забыл написать, что для того, чтобы вручную устанавливать EnableButtons, нужно сначала установить AutoEnable := false;

---

И. Павел   (2010-06-06 23:04:00) [2]

Свойство EnabledButtons позволяет указать, какие кнопки будут активные. Если DoDefault=false, то нужно будет выставлять это свойство самостоятельно.

---

worldmen   (2010-06-06 22:57:00) [3]

Спасибо, получилось, но такая мелочь  - кнопка Play при этом активная, чтобы остановить песню надо нажать на Play, а потом на Stop.

---

И. Павел   (2010-06-06 22:19:00) [4]

if Button=btNext then
Begin
 DoDefault:=false;
  ...

---

Наверх