Delphi XE6 Firemonkey TMediaPlayer - забавяне на звука

Просто искам да възпроизведа аудио файл, когато се щракне върху бутона. Направих просто код и когато щракна върху бутона, звукът се появява с около 1 секунда закъснение, искам да го чуя веднага, някакво предложение?

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

audio delphi firemonkey delphi-xe6
person masohaso    schedule 23.08.2014    source източник

Отговори (1)


arrow_upward
0
arrow_downward

За кратки звуци използвайте собствените API на платформата:

uses
 MMSystem;

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

Ако искате код и за другите платформи, има библиотека, която прави това тук.

person FMXExpress    schedule 24.08.2014