paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #30838 (AV in some cases)

Browse Source 
git-svn-id: trunk@37848 -
This commit is contained in:
michael 2017-12-29 08:54:48 +00:00
parent 07ac64bf09
commit dccfdb4a11
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/libvlc/src/vlc.pp
View File

@ -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]);