1

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

我在 Edit1 KeyPress 事件的资源文件中尝试了 sndPlaySound，但问题是它不能像在真正的键盘输入中那样完全播放声音。每次按下的键之间都会出现声音播放延迟。

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

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

4

2 回答 2

3

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

该 api 适用于您正在尝试做的事情。

于 2013-07-16T00:57:18.170 回答
1

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:\Windows\Media\tada.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.
于 2013-07-18T16:28:23.090 回答