PasLibVlc_2.1.3 for delphi

2013.12.11 add new functions: IsPause() GetMediaMrl(); GetStateName(); writed by John Brookman <j.a.brookman@hotmail.co.uk> add better support for Delphi XE2 and up add 64 bit demo compiled with Delphi XE2 this demo request 64 bit VideoLAN requested by John Brookman <j.a.brookman@hotmail.co.uk> small bug in function TPasLibVlcPlayer.GetVideoHeight(): LongInt; return wideo width not height Reported by: "Dr Christoph Camphausen" <ckc@unsw.edu.au> Rewrite OnMediaChanged event handler Now report current media MRL Requested by: "Eduan Slabbert" <wizardno.7@gmail.com> check compatibility with version 2.1.2 2013.11.23 new properties AudioOutput VideoOutput 2013.10.20 Verify compatibility with libvlc 2.1.0 Add local UTF8Encode and UTF8Decode for Delphi 3, 4, 5 Requested by: "Johan Keizer" <j.keizer36@upcmail.nl> 2013.08.25 Add support for FPC LCL QT4 and FPC LCL GTK2 (LINUX, WIN) Test on Kubuntu and Windows XP SP2 + VLC 2.0.8 2013.08.18 Fix incorrect position of MouseEventWinCtrl if Player placed inside TPanel control aligned to right side of form. Request by: wilber27@users.sourceforge.net 2013.04.26 Improve events handling Add new properties: OsdShow default true SpuShow default true SnapshotPrv default false Add conditional code compilation for support Delphi 7 Thanks to: 1024317@qq.com 2013.01.31 Rewrite events handling 2012.10.28 Add compiler options {$A4,Z4} or {A+,Z+} for Delphi < 6 Add property TPasLibVlcPlayer.StartOptions Now each player component use own instance of libvlc. 2012.07.27 new property TPasLibVlcPlayer.UseEvents default FALSE fix bug in TPasLibVlcPlayer.function EventsEnable: if (p_mi = NIL) then -> if (p_mi <> NIL) then add function TPasLibVlcPlayer.Stop add try..finally in TPasLibVlcPlayer.Destroy 2012.07.20 Add critical section to improve calls from event handlers 2011.08.22 Crossplatform modifications (Linux) Request by: "Maloupi" <maloupi@2n-tech.com> 2011.08.20 add new functions: function GetChannel(): Integer; procedure SetChannel(chanel: Integer); function GetAudioDelay(): Int64; procedure SetAudioDelay(delay: Int64); 2011.08.20 add new functions: function GetAudioTrackCount(): Integer; function GetAudioTrackDescription(track: Integer): String; function GetAudioTrack(): Integer; procedure SetAudioTrack(track: Integer); Request by: Mark Schneider <dhwz@gmx.net> 2011.08.20 add new feature: load vlc.dll from custom path VLC.Path := YOUR CUSTOM PATH Requested by: "Mark Schneider" <dhwz@users.sourceforge.net> 2011.08.19 add properties to deinterlace filter Requested by: "Mark Schneider" <dhwz@users.sourceforge.net 2011.04.07 add new component: TPasLibVlcMediaList Methods for change play list mode: PlayerSetPlayModeNormal; PlayerSetPlayModeLoop; PlayerSetPlayModeRepeat; Methods for play, stop, pause: Play; Pause; Stop; Next; Prev; IsPlay(): Boolean; GetState(): TPasLibVlcPlayerState; PlayItem(item: libvlc_media_t_ptr); Methods for operate on play list: Add(mrl: WideString); Get(index: Integer); Count(): Integer; Delete(index: Integer); Insert(index: Integer; mrl: WideString); GetItemAtIndex(index: Integer): libvlc_media_t_ptr; IndexOfItem(item: libvlc_media_t_ptr): Integer; After execute any method application will be notified about it via events: OnItemAdded - after LIBVLC add item to play list OnWillAddItem - before LIBVLC add item to play list OnItemDeleted - after LIBVLC del item from play list OnWillDeleteItem - before LIBVLC del item from play list OnPlayed - after player start play OnStopped - after player stop OnNextItemSet - afer player play next item Requested by: Christian cf. Fillion <christian@rhesus.net> 2011.04.06 add new functions: SetPlayRate() - change current play rate GetPlayRate() - return current play rate playRate = 100 - play with normal speed playRate = 200 - play with speed x 2 playRate = 50 - play with slow speed is 0.5 Requested by: Johann Mitterhauser <> 2011.02.11 make compatibile with Lazarus Requested by: Christian cf. Fillion <christian@rhesus.net> 2011.02.08 simple help for play YouTube video links Now Play function detect YouTube link, and play it correctly. Requested by: Christian cf. Fillion <christian@rhesus.net> 2011.01.05 add new functions: GetVideoLenStr() - return video length as time string GetVideoPosStr() - return video position as time string Requested by: Edijs van Kole de McSnikovics <terminedijs@yahoo.com> 2011.01.05 add new properties: PopupMenu, etc. Requested by: Edijs van Kole de McSnikovics <terminedijs@yahoo.com> 2011.01.04 correct creation of VCL at runtime, error: control '' has no parent window This error will be found by: Edijs van Kole de McSnikovics <terminedijs@yahoo.com> 2011.01.03 rename variable: FHideTitle to FShowTitle if ShowTitle = TRUE then SHOW title at begin of play if ShowTitle = FALSE then HIDE title at begin of play default value: FALSE 2010.12.08 Add support for version 1.1.5, new properties: HideTitle - if TRUE prevent display title at begin of play, default TRUE UseEvents - if TRUE then enable event propagation, default FALSE 2010.10.01 Add support for unicode file names 2010.07.22 Add support for set/get Audio Volume Level 2010.09.02 Add support for version 1.1.4 2010.07.14 Change PChar to PAnsiChar Requested by: David Nottage, davidnottage@gmail.com