读取WAV数据.docVIP

读取WAV数据 由于WAV文件头格式较多，难以一步到位读取到数据，这里使用一个简单方法读取WAV数据。即先读取WAV文件前1k字节，然后判断是不是WAV文件（主要查看有没有“RIFF”、“WAVEfmt”、”data”），然后再找到数据的位置（”data”）。 // 读取WAV文件数据 procedure TForm1.ReadWavFileInfo(aFile: string); type wav_struct = record WavFlag: array[1..4] of Byte; // string[4]; // 00H = RIFF，资源交换文件标志 Length: LongWord; // 04H 从下一个地址开始到文件尾的总字节数 isWav: array[1..8] of Byte; // 08H = WAVEfmt，代表wav文件格式 fmt ，波形格式标志 fmtSize: LongWord; // 10H 16PCM 量化结果 code: Word; // 14H 为1时表示线性PCM编码，大于1时表示有压缩的编码 nChannels: Word; // 16H 声道数 nSamplesPerSec: LongWord; // 18H 采样率，对于PCM格式的波形数据，采样率有8.0 kHz,11.025kHz,22.05 kHz,44.1 kHz等 nAvgBytesPerSec: LongWord; // 1CH 数据率，对于PCM格式的波形数据，数据率等于采样率乘以每样点字节数 wBitsPerSample: Word; // 20H 采样一次占字节数 8bit or 16bit 8位或16位 采样精度，对于PCM格式的波形数据，采样精度为8或16 nTimes: Word; // 22H 量化数 int bitpersamples=8或16 data: array[1..4] of Byte; // 24H data 标志 datasize: LongWord; // 28H datasize end; wav_Data = record DataSize: Integer; // Wav 数据长度 LData: array of SmallInt; RData: array of SmallInt; end; var wavHead: wav_struct; wDoData: wav_Data; i, n, m, fr, rFileHandle: Integer; ss: string; ckData: array[1..1024] of Byte; // 一个标志 = data dataSeek: Word; wd: SmallInt; rData: array of Byte; b1, b2: Byte; begin dataSeek := 0; rFileHandle := FileOpen(aFile, fmOpenRead); if rFileHandle 0 then begin ShowMessage(SysErrorMessage(GetLastError)); Exit; end; // 先读出 1K 数据来判断 FileSeek(rFileHandle, 0, 0); FileRead(rFileHandle, ckData, SizeOf(Byte) * 1024); ss := ; for i := 0 to 1023 do ss := ss + Char(ckdata[i]); if (Pos(RIFF, ss) = 0) or (Pos(WAVEfmt, ss) = 0) or (Pos(data, ss) = 0) then begin ShowMessage(文件【 + aFile + 】不是 WAV 格式文件！); FileClose(rFileHandle); Exit; end; wDoData.DataSize := 0; FileSeek(rFileHandle, 0, 0); FileRead(rFileHandle, wavHead, SizeOf(wav_struct)); // 查找数据位置 fr := Pos(data, ss); if fr 0 then ss := Copy(ss, fr,