Доброго времени суток.
Есть приложение которое на некоторые действия пользователей отвечает звонком. Приложение живет со времени 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.