spWav.pas

   1 unit spWav;
   2
   3 interface
   4
   5 type
   6   SWaveFileHeader = record
   7     hdrRiff: array [0 .. 3] of AnsiChar;
   8     sizeOfFile: LongWord;
   9     hdrWave: array [0 .. 3] of AnsiChar;
  10   end;
  11
  12   tChank = record
  13     hdrFmtData: array [0 .. 3] of AnsiChar;
  14     sizeOfFmtData: LongWord;
  15   end;
  16
  17   tWaveFormatPcm = record
  18     formatTag: SmallInt;
  19     channels: SmallInt;
  20     sampleParSec: LongWord;
  21     bytesPerSec: LongWord;
  22     blockAlign: SmallInt;
  23     bitsPerSample: SmallInt;
  24   end;
  25
  26   WrSWaveFileHeader = record
  27     hdrRiff: array [0..3] of AnsiChar;
  28     sizeOfFile: LongWord;
  29     hdrWave: array [0..3] of AnsiChar;
  30     hdrFmt: array [0..3] of AnsiChar;
  31     sizeOfFmt: LongWord;
  32     stWaveFormat: tWaveFormatPCM;
  33     hdrData: array [0..3] of AnsiChar;
  34     sizeOfData: LongWord;
  35   end;
  36
  37   SpParam = record
  38     samplePerSec: LongWord;
  39     bitsPerSample: Byte;
  40     sizeOfData: LongWord;
  41     channels: Byte;
  42     bytesPerSec: LongWord;
  43     posOfData: LongInt;
  44     startpos: LongInt;
  45     endpos: LongInt;
  46     cycleuSec: LongInt;
  47     pWav: Pointer;
  48     cyclicSec: integer;
  49   end;
  50
  51 const
  52   STR_RIFF = 'RIFF';
  53   STR_WAVE = 'WAVE';
  54   STR_fmt = 'fmt ';
  55   STR_DATA = 'data';
  56   _MAX_PATH = 255;
  57
  58   WAV_MONAURAL = 1;
  59   WAV_STEREO = 2;
  60
  61 implementation
  62
  63 end.