TOpusTag

type TOpusTag = class

public

  fFileName: string;

  Loaded: Boolean;

  Frames: array of TOpusTagFrame;

  Info: TFileInfo;

  VendorString: string;

  FirstOGGPage: TMemoryStream;

  WritePadding: Boolean;

  PaddingSizeToWrite: Integer;

  UpperCaseFieldNamesToWrite: Boolean;

  ParsePlayTime: Boolean;

  DeepOpusBitRateScan: Boolean;

  Format: TOggFormat;

  VorbisData: TMemoryStream;

  constructor Create;

  destructor Destroy; override;

  procedure FillDefault;

  function LoadFromFile();

  function LoadFromStream();

  function SaveToFile();

  function SaveToStream();

  function AddFrame();

  function DeleteFrame();

  procedure DeleteAllFrames;

  procedure DeleteAllCoverArts;

  procedure Clear;

  function Count;

  function CoverArtCount;

  function FrameExists(); overload;

  function FrameTypeCount();

  function CalculateTotalFramesSize;

  function CalculateTagSize();

  function AddTextFrame();

  function AddBinaryFrame();

  function SetBinaryFrame();

  procedure SetTextFrameText();

  procedure SetListFrameText();

  function ReadFrameByNameAsText();

  function ReadFrameByNameAsList();

  function ReadBinaryFrame();

  procedure RemoveEmptyFrames;

  function AddCoverArtFrame();

  function SetCoverArtFrame();

  function GetCoverArtFromFrame();

  function GetCoverArtInfo();

  function DeleteFrameByName();

  function Assign();

  procedure SetTagItem();

  procedure ReadTag();

  function GetInfo();

  function BuildTag();

  function AdjustPadding();

end;

TOpusTag

TObject