TFlacTag

type TFlacTag = class(TObject)

public

  fFileName: string;

  Tags: array of TVorbisComment;

  VendorString: string;

  Loaded: Boolean;

  MetaBlocksCoverArts: array of TMetaData;

  aMetaBlockOther: array of TMetaData;

  bTAG_PreserveDate: Boolean;

  PaddingSizeToWrite: Cardinal;

  UpperCaseFieldNamesToWrite: Boolean;

  ForceReWrite: Boolean;

  StreamType: TFlacStreamType;

  UTF8Encoding: TEncoding;

  constructor Create;

  destructor Destroy; override;

  function LoadFromFile();

  function LoadFromStream();

  function SaveToFile();

  function SaveToStream();

  function AddMetaDataCoverArt();

  function AddMetaDataOther();

  procedure Clear;

  function Count;

  function CoverArtCount;

  function AddTag();

  function DeleteFrame();

  procedure DeleteAllFrames;

  procedure DeleteAllCoverArts;

  function FrameExists();

  function AddTextTag();

  function ReadFrameByNameAsText();

  function ReadFrameByNameAsList();

  procedure SetTextFrameText();

  procedure SetListFrameText();

  function DeleteFrameByName();

  function GetCoverArt();

  function GetCoverArtInfo();

  function GetCoverArtInfoPointer();

  function SetCoverArt();

  function DeleteCoverArt();

  function CalculateVorbisCommentsSize;

  function CalculateMetaBlocksSize();

  function CalculateTagSize();

  procedure Assign();

  function GetMultipleValues();

  procedure SetMultipleValues();

  property Channels: Byte; [r]

  property SampleRate: Integer; [r]

  property BitsPerSample: Byte; [r]

  property FileLength: Integer; [r]

  property SampleCount: Int64; [r]

  property Valid: Boolean; [r]

  property Playtime: Double; [r]

  property Ratio: Double; [r]

  property Bitrate: Integer; [r]

  property ChannelMode: string; [r]

  property Exists: Boolean; [r]

  property AudioOffset: Integer; [r]

  property VCOffset: Integer; [r]

end;

TFlacTag

TObject