Проблема с воспроизведением 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.

[Рагим]

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

 

uses
MMSystem;

 

procedure playsound;

begin

 sndPlaySound(Pchar('ringin.wav'), SND_NODEFAULT Or SND_ASYNC);

end;

 

Проблема устранена.

Изменено 14 марта, 2016 пользователем Рагим