sndPlaySound或KeyPress上的PlaySound-播放键盘声音

Question

我正在尝试制作一个程序，在TEdit中的每个按键上播放声音文件。

我在Edit1 KeyPress事件的资源文件中尝试了sndPlaySound，但问题是它不能像在真正的键盘打字中一样准确地播放声音。每次按键之间都会延迟播放声音。

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
sndPlaySound(PCHAR('KeyPress'), SND_RESOURCE OR SND_ASYNC);
end;

这个代码确实会播放声音，但如果你快速键入，只有在键入的最后一个键上，你才会听到正在播放的声音文件。

Answer 1

您可以使用WAVEOUT接口，但我认为这种延迟是代码中必须纠正的一些细节。尝试使用参数SND_FILENAME。

api适用于您尝试执行的操作。

Answer 2

TLama发布的答案是这段运行良好的代码：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Bass;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
StreamHandle: HSTREAM;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if BASS_Init(-1, 44100, 0, Handle, nil) then
begin
StreamHandle := BASS_StreamCreateFile(False, PChar('c:WindowsMediatada.wav'), 0,
  0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BASS_StreamFree(StreamHandle);
BASS_Free;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
BASS_ChannelPlay(StreamHandle, True);
end;
end.