spWav.pas

   1
   2 type
   3   SWaveFileHeader = record
   4     hdrRiff: array [0 .. 3] of AnsiChar;
   5     sizeOfFile: LongWord;
   6     hdrWave: array [0 .. 3] of AnsiChar;
   7   end;
   8
   9   tChank = record
  10     hdrFmtData: array [0 .. 3] of AnsiChar;
  11     sizeOfFmtData: LongWord;
  12   end;
  13
  14   tWaveFormatPcm = record
  15     formatTag: SmallInt;
  16     channels: SmallInt;
  17     sampleParSec: LongWord;
  18     bytesPerSec: LongWord;
  19     blockAlign: SmallInt;
  20     bitsPerSample: SmallInt;
  21   end;
  22
  23   WrSWaveFileHeader = record
  24     hdrRiff: array [0..3] of AnsiChar;
  25     sizeOfFile: LongWord;
  26     hdrWave: array [0..3] of AnsiChar;
  27     hdrFmt: array [0..3] of AnsiChar;
  28     sizeOfFmt: LongWord;
  29     stWaveFormat: tWaveFormatPCM;
  30     hdrData: array [0..3] of AnsiChar;
  31     sizeOfData: LongWord;
  32   end;
  33
  34 const
  35   STR_RIFF = 'RIFF';
  36   STR_WAVE = 'WAVE';
  37   STR_fmt = 'fmt ';
  38   STR_DATA = 'data';
  39   _MAX_PATH = 255;
  40
  41   WAV_MONAURAL = 1;
  42   WAV_STEREO = 2;