Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

TMediaPlayer воспроизведение используя БД   Найти похожие ветки 

 
worldmen   (2010-06-06 21:54) [0]

В БД хранястся имена файлов и путь к ним. На форме есть 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 22:19) [1]

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


 
worldmen   (2010-06-06 22:57) [2]

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


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

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


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

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



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.17 c
2-1274247722
Petr
2010-05-19 09:42
2010.08.27
как обратиться к полю в базе


2-1271309315
Дмитрий. М
2010-04-15 09:28
2010.08.27
Транслитерация Киррилица->Латинница - что делаю не так?


6-1221664307
denissoft
2008-09-17 19:11
2010.08.27
Как переслать огромный файл по ТСП/ИП от 100 Мб- 4 Гб.


2-1270623897
Девушка
2010-04-07 11:04
2010.08.27
Динамическое создание FibQuery как поле класса


2-1270185305
Ренат
2010-04-02 09:15
2010.08.27
RichEdit и SelAttributes.Color