频道分类

delphi 播放声音 采用 异步方式,比较流畅

作者:admin 来源: 日期:2019/10/15 12:23:15 人气: 标签:

 
delphi 播放声音 采用 异步方式,比较流畅
//声明:
sndPlaySound(
  lpszSoundName: PChar; {声音文件}
  uFlags: UINT{播放选项}
): BOOL;

//uFlags 参数可选值:
SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行}
SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}
SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}
SND_MEMORY = 4; {播放内存中的声音, 譬如资源文件中的声音}
SND_LOOP = 8; {循环播放, 需要和 SND_ASYNC 组合使用}
SND_NOSTOP = 16;{如果当前正在播放声音, 立即返回 False}
SND_APPLICATION 
用应用程序指定的关联来播放声音。 

SND_ALIAS 
pszSound参数指定了注册表或WIN.INI中的系统事件的别名。 

SND_ALIAS_ID 
pszSound参数指定了预定义的声音标识符。 

SND_ASYNC 
用异步方式播放声音,PlaySound函数在开始播放后立即返回。 

SND_FILENAME 
pszSound参数指定了WAVE文件名。 

SND_LOOP 
重复播放声音,必须与SND_ASYNC标志一块使用。 

SND_MEMORY 
播放载入到内存中的声音,此时pszSound是指向声音数据的指针。 

SND_NODEFAULT 
不播放缺省声音,若无此标志,则PlaySound在没找到声音时会播放缺省声音。 

SND_NOSTOP 
PlaySound不打断原来的声音播出并立即返回FALSE。 

SND_NOWAIT 
如果驱动程序正忙则函数就不播放声音并立即返回。 

SND_PURGE 
停止所有与调用任务有关的声音。若参数pszSound为NULL,就停止所有的声音,否则,停止pszSound指定的声音。 

SND_RESOURCE 
pszSound参数是WAVE资源的标识符,这时要用到hmod参数。 

SND_SYNC 
同步播放声音,在播放完后PlaySound函数才返回。
=========================================================
//举例:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem; {sndPlaySound 声明在该单元}


//同步播放
procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

begin

 s =ExtractFilePath(paramstr(0))+trim('wav\声音文件.wav');//播放当前程序wav文件夹下声音文件

  sndPlaySound(PChar(s), SND_SYNC);
end;
//异步播放
procedure TForm1.Button2Click(Sender: TObject);

var

s:String



begin

  s =ExtractFilePath(paramstr(0))+trim('wav\声音文件.wav');//播放当前程序wav文件夹下声音文件

  sndPlaySound(PChar(s), SND_ASYNC);

end;

//反复播放
procedure TForm1.Button3Click(Sender: TObject);

var

s:String;


begin

  s =ExtractFilePath(paramstr(0))+trim('wav\声音文件.wav');//播放当前程序wav文件夹下声音文件

  sndPlaySound(PChar(s), SND_LOOP or SND_ASYNC);

  sndPlaySound(nil, 0); //停止发音

end;

end.