TCustomAudioFileAIFF

type TCustomAudioFileAIFF = class(TCustomAudioFile,IAudioFileBitsPerSample,IAudioFileEncoding)

protected

  function GetBitsPerSample; virtual;

  function GetEncoding; virtual;

  function GetChannels; override;

  function GetSampleRate; override;

  function GetSampleFrames; override;

  function CreateDataCoder;

  procedure ReadAESDChunk(); virtual;

  procedure ReadANNOChunk(); virtual;

  procedure ReadALCHChunk(); virtual;

  procedure ReadAPPLChunk(); virtual;

  procedure ReadAUTHChunk(); virtual;

  procedure ReadCOMMChunk(); virtual;

  procedure ReadCOMTChunk(); virtual;

  procedure ReadCOPYChunk(); virtual;

  procedure ReadFVERChunk(); virtual;

  procedure ReadINSTChunk(); virtual;

  procedure ReadMARKChunk(); virtual;

  procedure ReadNAMEChunk(); virtual;

  procedure ReadSSNDChunk(); virtual;

  procedure ReadUnknownChunk(); virtual;

  procedure SetBitsPerSample(); virtual;

  procedure SetEncoding(); virtual;

  procedure SetChannels(); override;

  procedure SetSampleRate(); override;

  procedure SetSampleFrames(); override;

  procedure ReadAndSkipSize();

  procedure CheckHeader(); override;

  procedure ParseStream(); override;

  procedure ReadAudioDataFromStream();

  procedure WriteAudioDataToStream();

  procedure WriteTotalSampleFrames();

  property EmptyData: Boolean; [r]

  procedure SampleFramesChanged; virtual;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure SaveToStream(); override;

  procedure Decode(); override;

  procedure Encode(); override;

  class function DefaultExtension; override;

  class function Description; override;

  class function FileFormatFilter; override;

  class function CanLoad(); override;

  property BitsPerSample: Byte; [rw]

  property Encoding: TAudioEncoding; [rw]

  property DataSize: Cardinal; [r]

  property AiffChunkScans: TAiffChunkScans; [rw]

  property Name: AnsiString; [rw]

  property Author: AnsiString; [rw]

  property Copyright: AnsiString; [rw]

  property AESChannelStatusData: AnsiString; [rw]

end;

TCustomAudioFileAIFF

TCustomAudioFile,IAudioFileBitsPerSample,IAudioFileEncoding

TObject