spWav.pas

   1
   2 type
   3   SWaveFileHeader = record
   4     hdrRiff: array [0 .. 3] of AnsiChar;
   5     sizeOfFile: LongInt;
   6     hdrWave: array [0 .. 3] of AnsiChar;
   7   end;
   8
   9   tChank = record
  10     hdrFmtData: array [0 .. 3] of AnsiChar;
  11     sizeOfFmtData: LongInt;
  12   end;
  13
  14   tWaveFormatPcm = record
  15     formatTag: Byte;
  16     channels: Byte;
  17     sampleParSec: LongWord;
  18     bytesPerSec: LongWord;
  19     blockAlign: Byte;
  20     bitsPerSample: Byte;
  21   end;
  22
  23   WrSWaveFileHeader = record
  24     hdrRiff: array [0..3] of AnsiChar;
  25     sizeOfFile: LongWord;
  26     stWaveFormat: tWaveFormatPCM;
  27     hdrWave: array [0..3] of AnsiChar;
  28     hdrFmt: array [0..3] of AnsiChar;
  29     sizeOfFmt: LongWord;
  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;