Delphi XE6 Firemonkey TMediaPlayer - 声音播放延迟

Question

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

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

Answer 1

对于简短的声音，请使用 native 平台 API:

uses
 MMSystem;

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

如果您还想要其他平台的代码，那么有一个库可以做到 here .