Баги с музыкой DirectX

[GoogleCodeExporter]

What steps will reproduce the problem?
(Какие операции/etc. вызывают проблему?)
При использовании DirectX следующий код 
вызывает зависание программы:
var
  p: Integer;
begin
  p := snd_get(SND_STREAM, cur_mus, SND_STATE_PERCENT);
    if p = 100 then
      snd_StopStream(cur_mus);
end;
Если вместо DirectX включить OpenAL 
останавливает воспроизведение нормально.
Нормально останавливает воспроизведение 
если вызывать snd_StopStream до завершения 
проигрывания (snd_get(SND_STREAM, cur_mus, SND_STATE_PERCENT) < 
100).

Еще баги с DirectX:
snd_Playfile('filename.ogg', TRUE) - играет только 1 раз.
snd_Playfile('filename.ogg', FALSE) - проигрывает 1 раз и 
зависает.

What version of the product are you using? On what operating system? With
what compiler - Delphi/FreePascal?
(Какую версию используете? На какой
операционной системе? С каким
компилятором - Delphi/FreePascal?)
Windows7 32bit, FPC 2.6.0, ZenGL 0.3.5

Original issue reported on code.google.com by adrea...@gmail.com on 26 Dec 2012 at 3:57

[GoogleCodeExporter]

>> snd_Playfile('filename.ogg', TRUE) - играет только 1 раз.
>> snd_Playfile('filename.ogg', FALSE) - проигрывает 1 раз и 
зависает.

Прикрепи файл, на котором воспроизводится, 
т.к. не помню таких проблем.

Original comment by dr.andru@gmail.com on 26 Dec 2012 at 5:32

[GoogleCodeExporter]

Original comment by dr.andru@gmail.com on 17 Jan 2013 at 11:38

• Changed state: Fixed