unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses DirectSound, MMSystem, ReadWaveFile; //ReadWaveFile 是在前面(4)自定义的单元varmyDSound: IDirectSound8;        //设备对象bufPrimary: IDirectSoundBuffer; //主缓冲buf: IDirectSoundBuffer;        //次缓冲{初始化设备并建立主缓冲区}
procedure TForm1.FormCreate(Sender: TObject);
varwavFormat: TWaveFormatEx;bufDesc: TDSBufferDesc;
beginDirectSoundCreate8(nil, myDSound, nil);myDSound.SetCooperativeLevel(Handle, DSSCL_PRIORITY);ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));bufDesc.dwSize := SizeOf(TDSBufferDesc);bufDesc.dwFlags := DSBCAPS_PRIMARYBUFFER;bufDesc.dwBufferBytes := 0;bufDesc.lpwfxFormat := nil;myDSound.CreateSoundBuffer(bufDesc, bufPrimary, nil);
end;{建立次缓冲区, 并从 Wave 文件填充数据}
procedure TForm1.Button1Click(Sender: TObject);
varwavFormat: TWaveFormatEx;bufDesc: TDSBufferDesc;wavPath: string;wav: TReadWaveFile;p1: Pointer;n1: DWORD;
beginbuf := nil;with TOpenDialog.Create(nil) do beginFilter := 'Wave File(*.wav)|*.wav';if Execute then wavPath := FileName;Free;end;wav := TReadWaveFile.Create;if not wav.Open(wavPath) thenbeginShowMessage('只能是 PCM 格式的 WAVE 文件');wav.Free;Exit;end;ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));bufDesc.dwSize := SizeOf(TDSBufferDesc);bufDesc.dwFlags := DSBCAPS_STATIC;bufDesc.dwBufferBytes := wav.Size;bufDesc.lpwfxFormat := @wav.Format;{建立次缓冲, 并把主缓冲的格式修改为当前文件的格式}myDSound.CreateSoundBuffer(bufDesc, buf, nil);bufPrimary.SetFormat(@wavFormat); //!buf.Lock(0, 0, @p1, @n1, nil, nil, DSBLOCK_ENTIREBUFFER);wav.Read(p1, n1);wav.Free;buf.Unlock(p1, n1, nil, 0);buf.Play(0, 0, 0);
end;procedure TForm1.FormDestroy(Sender: TObject);
beginbufPrimary := nil;buf := nil;myDSound := nil;
end;end.