TpvAudioWAVFormat

type TpvAudioWAVFormat = class

public

type

  TWaveSignature = array [1..4] of ansichar;

  TWaveFileHeader = packed record

  Signature: TWaveSignature;

  Size: TpvUInt32;

  WAVESignature: TWaveSignature;

end;

  PWaveFileHeader = ^TWaveFileHeader;

  TWaveFormatHeader = packed record

  FormatTag: TpvUInt16;

  Channels: TpvUInt16;

  SamplesPerSecond: TpvUInt32;

  AvgBytesPerSecond: TpvUInt32;

  SampleSize: TpvUInt16;

  BitsPerSample: TpvUInt16;

end;

  PWaveFormatHeader = ^TWaveFormatHeader;

  TWaveChunkHeader = packed record

  Signature: TWaveSignature;

  Size: TpvUInt32;

end;

  PWaveChunkHeader = ^TWaveChunkHeader;

public

const

  RIFFSignature = TWaveSignature; = ('R', 'I', 'F', 'F')

  WAVESignature = TWaveSignature; = ('W', 'A', 'V', 'E')

  FMTSignature = TWaveSignature; = ('f', 'm', 't', ' ')

  DATASignature = TWaveSignature; = ('d', 'a', 't', 'a')

end;

TpvAudioWAVFormat

TObject