Delphi XE6 Firemonkey TMediaPlayer - 声音播放延迟

Question

我只是想在点击按钮时播放音频文件。我做了简单的代码，当我点击按钮时，声音出现在大约1秒的延迟，我想立即听到，有什么建议吗？

   procedure TForm1.btnSound(Sender: TObject);
   begin
       S:='C:\click.wav';
       mediaplayer1.FileName:=S;
       mediaplayer1.play;
  end;

Answer 1

对于短音，请使用原生平台API：

uses
 MMSystem;

function playsound(filename: string);
begin
 sndPlaySound(Pchar(filename), SND_NODEFAULT Or SND_ASYNC);
end;

如果您想要其他平台的代码，那么有一个库可以执行here。