操作 Wave 文件(12): 使用 waveOut...重復播放 wav 文件

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　FormCreate(Sender:　TObject);　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　　procedure　Button3Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　MMSystem;　
　
function　GetWaveFmtData(path:　string;　var　fmt:　TWaveFormatEx;　var　buf:　TBytes):　Boolean;　
var　
　hFile:　HMMIO;　
　ckiRIFF,ckiFmt,ckiData:　TMMCKInfo;　
begin　
　Result　:=　False;　
　hFile　:=　mmioOpen(PChar(path),　nil,　MMIO_READ);　
　if　hFile　=　0　then　Exit;　
　
　ZeroMemory(@ckiRIFF,　SizeOf(TMMCKInfo));　
　ZeroMemory(@ckiFmt,　SizeOf(TMMCKInfo));　
　ZeroMemory(@ckiData,　SizeOf(TMMCKInfo));　
　
　ckiRIFF.fccType　:=　mmiOStringToFOURCC('WAVE',　0);　
　ckiFmt.ckid　:=　mmiOStringToFOURCC('fmt',　0);　
　ckiData.ckid　:=　mmiOStringToFOURCC('data',　0);　
　
　ZeroMemory(@fmt,　SizeOf(TWaveFormatEx));　
　
　mmioDescend(hFile,　@ckiRIFF,　nil,　MMIO_FINDRIFF);　
　
　if　(ckiRIFF.ckid　=　FOURCC_RIFF)　and　(ckiRIFF.fccType　=　mmiOStringToFOURCC('WAVE',0))　and　
　　　(mmioDescend(hFile,　@ckiFmt,　@ckiRIFF,　MMIO_FINDCHUNK)　=　MMSYSERR_NOERROR)　and　
　　　(mmioRead(hFile,　@fmt,　ckiFmt.cksize)　=　ckiFmt.cksize)　and　
　　　(mmioAscend(hFile,　@ckiFmt,　0)　=　MMSYSERR_NOERROR)　and　
　　　(mmioDescend(hFile,　@ckiData,　@ckiRIFF,　MMIO_FINDCHUNK)　=　MMSYSERR_NOERROR)　then　
　begin　
　　SetLength(buf,　ckiData.cksize);　
　　Result　:=　(mmioRead(hFile,　PAnsiChar(buf),　ckiData.cksize)　=　ckiData.cksize);　
　end;　
　
　mmioClose(hFile,　0);　
end;　
　
//------------------------------------------------------------------------------　
var　
　wh:　TWaveHdr;　
　hOut:　HWAVEOUT;　
　fmt:　TWaveFormatEx;　
　buf:　TBytes;　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
begin　
　Button1.Caption　:=　'打開並播放';　
　Button2.Caption　:=　'暫停';　
　Button3.Caption　:=　'繼續';　
end;　
　
procedure　WaveProc(hWave:　HWAVE;　uMsg,　dwInstance,　dwParam1,　dwParam2:　DWord);　stdcall;　
begin　
　case　uMsg　of　
　　MM_WOM_OPEN:　;　
　　MM_WOM_CLOSE:　;　
　　MM_WOM_DONE:　begin　
　　　waveOutUnprepareHeader(hWave,　PWaveHdr(dwParam1),　SizeOf(TWaveHdr));　
　　　waveOutClose(hWave);　
　　end;　
　end;　
end;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
const　
　path　=　'C:\WINDOWS\Media\Windows　XP　啟動.wav';　
begin　
　GetWaveFmtData(path,　fmt,　buf);　
　
　wh.lpData　:=　PAnsiChar(buf);　
　wh.dwBufferLength　:=　Length(buf);　
　wh.dwBytesRecorded　:=　0;　
　wh.dwUser　:=　0;　
　wh.dwFlags　:=　WHDR_BEGINLOOP　or　WHDR_ENDLOOP;　{關鍵設置}　
　wh.dwLoops　:=　3;　　　　　　　　　　　　　　　{重復播放的次數}　
　wh.lpNext　:=　nil;　
　wh.reserved　:=　0;　
　
　waveOutOpen(@hOut,　WAVE_MAPPER,　@fmt,　DWord(@WaveProc),　0,　CALLBACK_FUNCTION);　
　waveOutPrepareHeader(hOut,　@wh,　SizeOf(TWaveHdr));　
　waveOutWrite(hOut,　@wh,　SizeOf(TWaveHdr));　
end;　
　
//暫停　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　waveOutPause(hOut);　
end;　
　
//繼續　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　waveOutRestart(hOut);　
end;　
　
end.