PasLibVlc3.04.rar

2018.09.18 Fix Play declaration for compatible with D4 2018.07.13 Fix resize bug under FPC 1.8.x reported by Mukataï Mukatai <mukatai@msn.com> affected procedures: procedure WMEraseBkgnd(var msg: ...); message ...; 2018.07.01 Add support for media callbacks inspired by Mark Adamson <markadamson83@gmail.com> new procedure: procedure Play(stm : TStream, ...); overload; 2018.06.29 Remove duplicated code affected procedures: procedure Play (...); overload; procedure PlayNormal (...); overload; procedure PlayYoutube(...); overload; 2018.06.25 Fix copy paste bug reported by bnop90 <bnop90@mail.ru> affected procedures: procedure Play(mrl: WideString; mediaOptions : array of WideString; ...); overload; 2018.06.11 Extend parameters: inspired by Wortmann Sándor <wortmann@visualsolutions.hu> affected procedures: procedure TPasLibVlcMediaList.Add(mrl : WideString; mediaOptions : array of WideString); 2018.06.05 Correct PlayYoutube reported by Ahmet Yeşilçimen <yesilcimenahmet@gmail.com> 2018.04.26 Correct version comment 2018.03.11 Update for better compatibility with libvlc 3.0.0 New events: libvlc_MediaPlayerESAdded, libvlc_MediaPlayerESDeleted, libvlc_MediaPlayerESSelected, libvlc_MediaPlayerAudioDevice, libvlc_MediaPlayerChapterChanged, libvlc_RendererDiscovererItemAdded, libvlc_RendererDiscovererItemDeleted, 2018.01.02 Extend parameters: inspired by "Christian Koch" <ch.koch.ed@online.de> required to add ":cdda-track=1" as option to the media affected procedures: procedure Play (mrl: WideString; mediaOptions : array of WideString; ...); overload; procedure PlayNormal (mrl: WideString; mediaOptions : array of WideString; ...); overload; procedure PlayYoutube(mrl: WideString; mediaOptions : array of WideString; ...); overload; 2017.12.05 New functions: GetVideoSampleAspectRatio 2017.04.11 Correct media list event handler WillAddItem reported by "Adolfo Ramirez" <arogemail@gmail.com> OnItemAdded => OnWillAddItem 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_