VPF::TMediaPlayer не проигрывает аудио файлы(

Superklug

Дата 1.3.2008, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Здравствуйте!
К меня появилась необходимость воспроизводить mp3 файлы. Решил использовать компонент TMediaPlayer. Кинул его на форму, сделал прозрачным. В OnCreate формы присвоил параметру FileName адрес нужного звука.
Файл должен был проигрываться при выполнении определенных условий, которые я проверяю по таймеру. Т.о. у меня есть две функции:

Код


void TfmMain::StartSignal()
{
        MediaPlayer->Play();
}

void TfmMain::StopSignal()
{
        MediaPlayer->Stop();
}

и обработка события OnTimer:

Код


void __fastcall TfmMain::OnTimer(TObject *Sender)
{
        if(...)
                StartSignal();
}

Остановка сигнала должна происходить по клику мышкой на форме, поэтому писал так:

Код


void __fastcall TfmMain::FormMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        StopSignal();
}

По непонятным мне причинам воспроизведение файла не происходит! smile

Самое интересное, что если расположить на форме две кнопки и в обработчики событий OnClick вставить функции StartSignal и StopSignal, все прекрасно работает...

Пожалуйста объясните в чем дело? Может я не правильно использую MediaPlayer?

P.S. Если кто-то знает более разумный способ воспроизведения mp3, напишите. Буду очень рад.

Sharkfire

Дата 1.3.2008, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 236
Регистрация: 30.11.2006
Где: Одесса

Репутация: 2
Всего: 2

Пробвал делать отладку чтобы проверить как оно ваще работает?

Craft

Дата 1.3.2008, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 1.3.2008

Репутация: нет
Всего: нет

Я б тебе не советовал вызивать свою функцыю из таймера. Просто он вызивается каждую секунду и может я думаю это и визывает что у тебя не проигрывается mp3. Что тебе мешает сделать кнопки для воспроизведения и нормально их оформить?

Superklug

Дата 2.3.2008, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Цитата(Craft @ 1.3.2008, 21:45

)

Кнопки мне делать никак нельзя. Тут просто что-то вроде будильника. Т.е. при выполнении опр условий звучит сигнал. С PlaySound все прекрасно работало, но wav занимает слишком много места...

Цитата(Sharkfire @ 1.3.2008, 20:44

)

Пробвал делать отладку чтобы проверить как оно ваще работает?

Не совсем понятно что конкретно нужно отлаживать?

Я считаю способ с MediaPlayer-ом не самый лучший вариант воспроизведения mp3. Может кто-нибудь предложит более изящное решение?

THandle

Дата 2.3.2008, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

Superklug, как понять не происходит проигрывание файла? MediaPlayer->Open делаешь?

Извиняюсь, что на Делфи, но Билдера просто под рукой нет.

Код


var
  Form1: TForm1;
  b : boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  b := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.FileName := 'C://1.mp3';
  MediaPlayer1.Open;
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if b then
    MediaPlayer1.Play;
end;

Отлично работает. Файл воспроизводится.

Это сообщение отредактировал(а) THandle - 2.3.2008, 23:46

Craft

Дата 2.3.2008, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 1.3.2008

Репутация: нет
Всего: нет

Посмотри здесь Может этот вариант подойдет. Но здесь тоже с использованием MediaPlayer. Можеш попробовать через PlaySound(). В противном случае если тебя не устраивает MediaPlayer то можеш воспроизводить mp3 через DirectSound. Вариантов много.

Superklug

Дата 3.3.2008, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Цитата(THandle @ 2.3.2008, 23:34

)

Отлично работает. Файл воспроизводится.

Я еще больше запутался... В вашем примере все работает. У меня практически тоже самое( Попробую найти ошибку.

Superklug

Дата 3.3.2008, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

Ребята, спосибо всем за помощь!
Оказывается я сам намудрил) Забыл в потоке Synchronize прописать))) Теперь наконец-то все работает! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »