TMPEGPlayer

type TMPEGPlayer = class(TtsBasePlayer)

protected

  function GetPosition; override;

  function GetLength; override;

  function GetMode; override;

  function GetChannels; override;

  function GetVersion; override;

  function GetLayer; override;

  function GetFrequency; override;

  function GetBitrate; override;

  function GetIsPlaying; override;

  function GetIsPause; override;

  function GetDoRepeat; override;

  procedure SetDoRepeat(); override;

public

  constructor Create;

  destructor Destroy; override;

  procedure LoadFile(); override;

  procedure LoadStream(); override;

  procedure SetOutput(); override;

  procedure Play; override;

  procedure Pause; override;

  procedure Stop; override;

  property Position: Integer;

  property Length: Integer;

  property Mode: TMode;

  property Channels: TChannels;

  property Version: TVersion;

  property Layer: Integer;

  property Frequency: Cardinal;

  property Bitrate: Integer;

  property IsPlaying: Boolean;

  property IsPause: Boolean;

  property DoRepeat: Boolean;

  property DoTryHardRepeat: Boolean; [rw]

end;

TMPEGPlayer

TtsBasePlayer

TObject