1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
| function vlc
fig = figure('position',[381 188 500 400],...
'menubar','none',...
'numbertitle','off');
actx = actxcontrol('VideoLAN.VLCPlugin.1', ...
'position',[20 60 460 320], ...
'parent',fig);
vi = get(actx,'VersionInfo');
vr = version('-release');
set(fig,'name',sprintf('VLC media player (%s) in MATLAB %s',vi,vr))
actx.volume = 50;
uicontrol('units','pixels','position',[20 20 80 20],...
'string','Select',...
'tag','sel',...
'callback',@pickmovie)
uicontrol('units','pixels','position',[20+80+140/3 20 80 20],...
'string','Play',...
'tag','pla',...
'callback',@playmovie)
uicontrol('units','pixels','position',[20+2*(80+140/3) 20 80 20],...
'string','Pause',...
'tag','pau',...
'callback',@pausemovie)
uicontrol('units','pixels','position',[20+3*(80+140/3) 20 80 20],...
'string','Stop',...
'tag','sto',...
'callback',@stopmovie)
function pickmovie(obj,event)
[fichier,chemin] = uigetfile({'*.avi;*.mpg;*.mpeg;*.ogg;*.flac;*.flv';'*.avi';'*.mpg';'*.mpeg';'*.ogg';'*.flac';'*.flv'}, ...
'Select a movie file');
invoke(actx,'addTarget',fullfile(chemin,fichier),[],1,int32(1));
end
function playmovie(obj,event)
invoke(actx,'play')
end
function pausemovie(obj,event)
invoke(actx,'pause')
end
function stopmovie(obj,event)
invoke(actx,'stop')
end
end |
Partager