TCustomVLCMediaPlayer

type TCustomVLCMediaPlayer = class(TComponent)

protected

  function GetInstance; virtual;

  procedure SetParentWindow; virtual;

  procedure SetParentWindowSize(); virtual;

  procedure DoMediaChanged; virtual;

  procedure DoNothingSpecial; virtual;

  procedure DoOnBackward; virtual;

  procedure DoOnBuffering; virtual;

  procedure DoOnEOF; virtual;

  procedure DoOnError; virtual;

  procedure DoOnForward; virtual;

  procedure DoOnOpening; virtual;

  procedure DoOnPause; virtual;

  procedure DoOnPlaying; virtual;

  procedure DoOnStop; virtual;

  procedure DoOnLengthChanged(); virtual;

  procedure DoOnPausableChanged(); virtual;

  procedure DoOnPositionChanged(); virtual;

  procedure DoOnSeekableChanged(); virtual;

  procedure DoOnTimeChanged(); virtual;

  procedure DoOnTitleChanged(); virtual;

  procedure DoOnSnapshot(); virtual;

  procedure HookupEvents; virtual;

  procedure UnHookEvents; virtual;

  procedure HandleVLCEvent(); virtual;

  property VLC: TVLCLibrary; [rw]

  property Instance: Plibvlc_media_player_t; [r]

public

  destructor Destroy; override;

  procedure Play();

  procedure SetMedia();

  procedure PlayFile();

  procedure Stop;

  procedure Pause;

  procedure Resume;

  procedure NextFrame;

  function Snapshot();

  function GetVideoSize();

protected

  property Playable: Boolean; [r]

  property Pausable: Boolean; [r]

  property Seekable: Boolean; [r]

  property Playing: Boolean; [r]

  property State: libvlc_state_t; [r]

  property AudioTrackDescriptions []: string; [r]

  property ChapterCount: Integer; [r]

  property AudioTrackCount: Integer; [r]

  property AudioTrack: Integer; [rw]

  property AudioDelay: Int64; [rw]

  property AudioVolume: Integer; [rw]

  property AudioMuted: Boolean; [rw]

  property FitWindow: Boolean; [rw]

  property VideoWidth: Cardinal; [r]

  property VideoHeight: Cardinal; [r]

  property VideoLength: Int64; [r]

  property VideoDuration: TDateTime; [r]

  property VideoPosition: Int64; [rw]

  property VideoFractionalPosition: Double; [rw]

  property VideoFramesPerSecond: Double; [r]

  property VideoScale: Double; [rw]

  property AspectRatio: string; [rw]

  property Channel: Integer; [rw]

  property Chapter: Integer; [rw]

  property FullScreenMode: Boolean; [rw]

  property UseEvents: Boolean; [rw]

  property OnMediaChanged: TNotifyEvent; [rw]

  property OnNothingSpecial: TNotifyEvent; [rw]

  property OnBackward: TNotifyEvent; [rw]

  property OnBuffering: TNotifyEvent; [rw]

  property OnEOF: TNotifyEvent; [rw]

  property OnError: TErrorEvent; [rw]

  property OnForward: TNotifyEvent; [rw]

  property OnOpening: TNotifyEvent; [rw]

  property OnPause: TNotifyEvent; [rw]

  property OnPlaying: TNotifyEvent; [rw]

  property OnStop: TNotifyEvent; [rw]

  property OnLengthChanged: TTimeEvent; [rw]

  property OnTimeChanged: TTimeEvent; [rw]

  property OnPausableChanged: TBooleanEvent; [rw]

  property OnPositionChanged: TPositionEvent; [rw]

  property OnSeekableChanged: TBooleanEvent; [rw]

  property OnTitleChanged: TTitleEvent; [rw]

  property OnSnapshot: TSnapshotEvent; [rw]

end;

TCustomVLCMediaPlayer

TObject