PasLibVlc - use VideoLAN player

2016.11.28 Update Equalizer function declarations for compile with BC6. reported by "Woldemar Unknown" <djvk@mail.ru> 2016.10.18 Updated for compile under Lazarus 1.6.0 + FPC 3.0.0. 2016.10.08 Cleanup and add support for adjust video: procedure SetVideoAdjustEnable(value : Boolean); procedure SetVideoAdjustContrast(value : Single); procedure SetVideoAdjustBrightness(value : Single); procedure SetVideoAdjustHue(value : Single); procedure SetVideoAdjustSaturation(value : Single); procedure SetVideoAdjustGamma(value : Single); function GetVideoAdjustEnable(): Boolean; function GetVideoAdjustContrast() : Single; function GetVideoAdjustBrightness() : Single; function GetVideoAdjustHue():Single; function GetVideoAdjustSaturation():Single; function GetVideoAdjustGamma():Single; 2016.10.04 Update for better compatibility with libvlc 2.2.4 New functions: GetAudioFilterList(): TStringList; GetVideoFilterList(): TStringList; 2016.05.08 Update for allow change audio output New functions: GetAudioOutputList GetAudioOutputDeviceList GetAudioOutputDeviceEnum SetAudioOutput SetAudioOutputDevice SetAudioOutputDevice Changed functions: Play PlayNormal PlayYoutube New properties: LastAudioOutput LastAudioOutputDeviceId 2016.02.12 Update for better compatibility with libvlc 2.2.2 New events: libvlc_MediaPlayerCorked libvlc_MediaPlayerUncorked, libvlc_MediaPlayerMuted, libvlc_MediaPlayerUnmuted, libvlc_MediaPlayerAudioVolume 2015.02.28 Updated for better support version 2.2.0 New functions: EqualizerGetPresetList(): TStringList; EqualizerGetBandCount(): Word; EqualizerGetBandFrequency(bandIndex : Word): Single; EqualizerCreate(APreset : Word = $FFFF) : TPasLibVlcEqualizer; EqualizerApply(AEqualizer : TPasLibVlcEqualizer); EqualizerSetPreset(APreset : Word = $FFFF); GetAudioOutputDeviceEnumList(): TStringList; SetAudioOutputDevice(aOut: WideString; device_id: WideString); SetAudioOutputDevice(device_id: WideString); New events: libvlc_MediaPlayerVout libvlc_MediaPlayerScrambledChanged fix function SetAudioMute reported by "Moisés Ribeiro" <moisesrms@gmail.com> 2015.02.01 New property: MouseEventsHandler inspired by: Beat Schlösser <beat.schloesser@softron.ch> New functions: GetAudioOutputList(): TStringList; GetAudioOutputDeviceList(aOut : WideString): TStringList; inspired by: Tom Wideroe <tom.wideroe@gmail.com> GetVideoDimension(var width, height: LongWord): Boolean; GetVideoChapterCountByTitleId(const title_id : Integer): Integer; GetVideoSubtitleList(): TStringList; GetVideoSubtitleCount(): Integer; GetVideoSubtitleCountByTitleId(const title_id : Integer): Integer; GetVideoSubtitleId(): Integer; SetVideoSubtitleById(const subtitle_id : Integer); GetVideoSubtitleNo(): Integer; SetVideoSubtitleByNo(subtitle_no : Integer); GetVideoSubtitleDescriptionById(const subtitle_id : Integer): WideString; GetVideoSubtitleDescriptionByNo(subtitle_no : Integer): WideString; SetVideoSubtitleFile(filename : WideString); GetVideoTitleList() : TStringList; GetVideoTitleCount(): Integer; GetVideoTitleId():Integer; SetVideoTitleById(const title_id:Integer); GetVideoTitleNo(): Integer; SetVideoTitleByNo(title_no : Integer); GetVideoTitleDescriptionById(const track_id : Integer): WideString; GetVideoTitleDescriptionByNo(title_no : Integer): WideString; inspired by: Sebastián Mayorá <s.mayora@gmail.com> Rename functions: GetAspectRatio() to GetVideoAspectRatio() SetAspectRatio() to SetVideoAspectRatio() GetChannel() to GetAudioChannel() SetChannel() to SetAudioChannel() 2015.01.31 New functions: GetAudioOutputList(): TStringList; GetAudioOutputDeviceList(aOut : WideString): TStringList; inspired by: Tom Widerøe <tom.wideroe@gmail.com> 2015.01.06 New property MouseEventsHandler inspired by: Beat Schlösser <beat.schloesser@softron.ch> New function: GetVideoDimension(var width, height: LongWord): Boolean; 2014.07.12 Add new functions: GetVideoChapterCountByTitleId(const title_id : Integer): Integer; GetVideoSubtitleList(): TStringList; GetVideoSubtitleCount(): Integer; GetVideoSubtitleCountByTitleId(const title_id : Integer): Integer; GetVideoSubtitleId(): Integer; SetVideoSubtitleById(const subtitle_id : Integer); GetVideoSubtitleNo(): Integer; SetVideoSubtitleByNo(subtitle_no : Integer); GetVideoSubtitleDescriptionById(const subtitle_id : Integer): WideString; GetVideoSubtitleDescriptionByNo(subtitle_no : Integer): WideString; SetVideoSubtitleFile(filename : WideString); GetVideoTitleList() : TStringList; GetVideoTitleCount(): Integer; GetVideoTitleId():Integer; SetVideoTitleById(const title_id:Integer); GetVideoTitleNo(): Integer; SetVideoTitleByNo(title_no : Integer); GetVideoTitleDescriptionById(const track_id : Integer): WideString; GetVideoTitleDescriptionByNo(title_no : Integer): WideString; inspired by: Sebastián Mayorá <s.mayora@gmail.com> rename functions: GetAspectRatio() to GetVideoAspectRatio() SetAspectRatio() to SetVideoAspectRatio() GetChannel() to GetAudioChannel() SetChannel() to SetAudioChannel() 2014.06.28 Add new functions: MarqueeShowText(); MarqueeHide(); MarqueeSetText(marquee_text : WideString); MarqueeSetPosition(position_x, position_y : Integer); overload; MarqueeSetPosition(position : libvlc_position_t); overload; MarqueeSetColor(color : libvlc_video_marquee_color_t); MarqueeSetFontSize(font_size: Integer); MarqueeSetOpacity(opacity: libvlc_opacity_t); MarqueeSetTimeOut(time_out_ms: Integer); MarqueeSetRefresh(refresh_after_ms: Integer); MarqueeSetEnable(enable : Integer); LogoShowFile(); LogoShowFiles(); LogoHide(); LogoSetFile(); LogoSetFiles(); LogoSetPosition(); LogoSetOpacity(); LogoSetDelay(); LogoSetRepeat(); LogoSetEnable(); GetAudioTrackList(); GetAudioTrackId(); SetAudioTrackById(); SetAudioTrackByNo(); GetAudioTrackDescriptionByNo(); GetAudioTrackDescriptionById(); Remove functions: SetAudioTrack(); GetAudioTrackDescription();