Перейти к содержанию
Fire Monkey от А до Я
  • 0

Проблема с воспроизведением wav


Рагим

Вопрос

Доброго времени суток.

 

Есть приложение которое на некоторые действия пользователей отвечает звонком. Приложение живет со времени Delphi 7. Для воспроизведения звука использую такую процедуру:

 

Procedure Tform1.PlayRing;
var s:string;
begin
 s := 'ringin.wav';
 if FileExists(s) then
  begin
  form1.MediaPlayer1.Stop;
  form1.MediaPlayer1.Clear;
  form1.MediaPlayer1.FileName:=s;
  form1.MediaPlayer1.Play;
  end
  else showmessage('Error 104: File not found: '+s);
 
 
end;
 
Звук воспроизводится нормально 50-60 раз. Потом либо выскакивает ошибка: Unsupported media file ringin.wav, либо приложение подвисает. Проблема появилась после перехода с VCL на FMX.
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Заменил процедуру воспроизведения звука на эту:

 

uses
MMSystem;

 

procedure playsound;
begin
 sndPlaySound(Pchar('ringin.wav'), SND_NODEFAULT Or SND_ASYNC);
end;
 
Проблема устранена.
Изменено пользователем Рагим
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...