* Fix bug 30838 (AV in some cases)

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@37848 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 2 deletions

diff --git a/packages/libvlc/src/vlc.pp b/packages/libvlc/src/vlc.pp
index 346e5feab7..2a9bf6a606 100755
--- a/packages/libvlc/src/vlc.pp
+++ b/packages/libvlc/src/vlc.pp
@@ -473,7 +473,10 @@ end;
 
 function TCustomVLCMediaListPlayer.GetPlaying: Boolean;
 begin
-  Result:=libvlc_media_list_player_is_playing(Instance)<>0;
+  if Assigned(FPlayer) then
+    Result:=libvlc_media_list_player_is_playing(Instance)<>0
+  else
+    Result:=false;
 end;
 
 function TCustomVLCMediaListPlayer.GetInstance: plibvlc_media_list_player_t;
@@ -495,7 +498,10 @@ end;
 
 function TCustomVLCMediaListPlayer.GetState: libvlc_state_t;
 begin
-  Result:=libvlc_media_list_player_get_state(Instance)
+  if Assigned(FInstance) then
+    Result:=libvlc_media_list_player_get_state(Instance)
+  else
+    Result:=libvlc_NothingSpecial;
 end;
 
 function TCustomVLCMediaListPlayer.GetVLC: TVLCLibrary;
@@ -527,6 +533,7 @@ begin
 end;
 
 procedure TCustomVLCMediaListPlayer.SetPlayMode(AValue: TVLCPlayMode);
+
 Const
   M : Array  [TVLCPlayMode] of libvlc_playback_mode_t
     = (libvlc_playback_mode_default,
@@ -534,6 +541,7 @@ Const
        libvlc_playback_mode_repeat);
 
 begin
+  if not Assigned(Finstance) then Exit;
   if FPlayMode=AValue then Exit;
   FPlayMode:=AValue;
   libvlc_media_list_player_set_playback_mode(FInstance, M[AValue]);