(2): 判断一个文件是否是 Wave 文件

　Wave 文件的前 12 个字节可以这样描述:

TRiff　=　record　
　ckId　　:　DWORD;　{'RIFF'}　　
　ckSize　:　DWORD;　{文件大小,　不包括前　8　个字节}　　
　fccType　:　DWORD;　{'WAVE'}　　
end;　

　　我们读出文件的前 12 个字节进行判断, 就基本可以确认它是不是 Wave 文件.

uses　MMSystem,　IOUtils;　{这里准备用　IOUtils.TFile.OpenRead　方便地建立文件流}　　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
var　
　riff:　record　ckId,　ckSize,　fccType:　DWORD;　end;　{可以同时定义结构并声明结构变量}　
begin　
　with　TFile.OpenRead('C:/WINDOWS/Media/Windows　XP　启动.wav')　do　
　begin　
　　Read(riff,　SizeOf(riff));　
　　Free;　
　end;　
　
　if　(riff.ckId　=　FOURCC_RIFF)　and　(riff.fccType　=　mmioStringToFOURCC('WAVE',0))　then　
　　ShowMessageFmt('这是个　Wave　文件,　其大小是　%d　字节',　[riff.ckSize　+　8]);　
end;　

　　还是把它写成一个函数吧, 最好也别再引用 MMSystem 单元.

{如果是　Wave　文件则返回文件大小,　不是则返回　0}　
function　IsWave(FilePath:　string):　Integer;　
　function　mmioFOURCC(Chr0,Chr1,Chr2,Chr3:　AnsiChar):　DWORD;　
　begin　
　　Result　:=　DWORD(Chr0)　+　DWORD(Chr1)　shl　8　+　DWORD(Chr2)　shl　16　+　DWORD(Chr3)　shl　24;　
　end;　
var　
　riff:　record　ckId,　ckSize,　fccType:　DWORD;　end;　
begin　
　Result　:=　0;　
　with　TFileStream.Create(FilePath,　fmOpenRead)　do　begin　
　　Read(riff,　SizeOf(riff));　
　　Free;　
　end;　
　if　(riff.ckId　=　mmioFOURCC('R',　'I',　'F',　'F'))　and　
　　　(riff.fccType　=　mmioFOURCC('W',　'A',　'V',　'E'))　then　
　　Result　:=　riff.ckSize　+　8;　
end;　

 

　依次道理, 也可以判断一个 RIFF 文件具体是什么格式.

{返回　RIFF　文件格式的函数,　如果不是　RIFF　文件,　则返回　'noneRIFF'}　
function　GetRiffType(FilePath:　string):　String;　
　function　mmioFOURCC(Chr0,Chr1,Chr2,Chr3:　AnsiChar):　DWORD;　
　begin　
　　Result　:=　DWORD(Chr0)　+　DWORD(Chr1)　shl　8　+　DWORD(Chr2)　shl　16　+　DWORD(Chr3)　shl　24;　
　end;　
var　
　riff:　record　ckId,　ckSize,　fccType:　DWORD;　end;　
type　
　TChars　=　array[0..3]　of　AnsiChar;　{用于类型转换}　
begin　
　Result　:=　'noneRIFF';　
　with　TFileStream.Create(FilePath,　fmOpenRead)　do　begin　
　　Read(riff,　SizeOf(riff));　
　　Free;　
　end;　
　if　(riff.ckId　=　mmioFOURCC('R',　'I',　'F',　'F'))　then　Result　:=　TChars(riff.fccType);　
end;　
　
//测试:　
begin　
　ShowMessage(GetRiffType('C:/WINDOWS/Media/Windows　XP　启动.wav'));　{WAVE}　
　ShowMessage(GetRiffType('C:/WINDOWS/clock.avi'));　　　　　　　　　{AVI　}　
　ShowMessage(GetRiffType('C:/WINDOWS/notepad.exe'));　　　　　　　　{noneRIFF}　
end;　

　　关于 FOURCC_RIFF、mmioFOURCC、mmioStringToFOURCC:

　　RIFF 格式的文件都是有若干 "块" 来构成的, 每个块都是有 4 个字符开头(不足4个字符用空格补足);

　　这连续的 4 个字节刚好是一个 32 位整数的大小, 所以常常把它们当作一个整数读出来判断.

 

　　通过 MMSystem.mmioStringToFOURCC 就可以获取这样的整数.

　　从 C/C++ 代码中经常看到: mmioFOURCC; 它并非 winmm.dll 库中的函数, 是在 C/C++ 中定义的宏.

　　这里用 Delphi 模拟实现了这个函数. 其功能类似 mmioStringToFOURCC.

　　MMSystem.FOURCC_RIFF 是个常量, 当需要 "RIFF" 对应的整数时直接用就是了. 举例:

uses　MMSystem;　
　
{自定义的　mmioFOURCC　函数}　
function　mmioFOURCC(Chr0,Chr1,Chr2,Chr3:　AnsiChar):　DWORD;　
begin　
　Result　:=　DWORD(Chr0)　+　DWORD(Chr1)　shl　8　+　DWORD(Chr2)　shl　16　+　DWORD(Chr3)　shl　24;　
end;　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
var　
　f1,f2,f3,f4:　FOURCC;　{FOURCC　=　DWORD;}　
begin　
　f1　:=　mmioStringToFOURCC('RIFF',　0);　
　f2　:=　mmioStringToFOURCC('Riff',　MMIO_TOUPPER);　{第二个参数可以把字符串转大写}　
　
　f3　:=　mmioFOURCC('R',　'I',　'F',　'F');　
　
　f4　:=　FOURCC_RIFF;　
　
　ShowMessageFmt('%d,　%d,　%d,　%d',　[f1,f2,f3,f4]);　
　{1179011410,　1179011410,　1179011410,　1179011410}　
end;