Commander le VLC media player depuis MATLAB

**Vassili68** · 11/02/2008, 23h01

Bonjour,

j'aimerais savoir si il est possible de commander par exemple VLC media player grâce à MATLAB. J'arrive à lancer VLC avec MATLAB mais je ne sais pas si je peux par exemple lire un fichier, faire pause et lecture etc... Merci pour vos réponses

**Jerome Briot** · 12/02/2008, 15h25

Un exemple sous Windows avec le control ActiveX de VLC (à télécharger ici et à installer si ce n'est déjà fait

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vassili68** · 12/02/2008, 21h11

ok je te remercie !!

**Vassili68** · 14/02/2008, 17h59

J'ai encore une petite question ^^ : est-il possible de lancer les taches select play pause et stop sans cliquer dessus ? Je m'explique, je veux les lancer a partir d'un autre programme du genre : Si ceci=cela, alors lancer select. J'ai essayer plusieurs choses mais je n'arrive à rien ... Merci +

**Jerome Briot** · 14/02/2008, 18h01

Envoyé par Vassili68

J'ai essayer plusieurs choses mais je n'arrive à rien ...

On pourrait avoir un aperçu de ce que tu as essayé ?

**Vassili68** · 14/02/2008, 18h18

Ben maintenant j'ai tout effacé vu que ça marchait pas ^^ mais en gros jarrivais pas a appeler les fonction pickmovie, playmovie etc... afin de ne pas être obligé de cliquer sur select etc... donc comment puis-je faire pour "simuler" un clic ?
Pour lancer vlc par exemple je fais :

code :

if indx1==1
vlc
end

Jusque la tout va bien, après pour ouvrir la fenêtre select c'est un autre problème. Est-ce réalisable ?

**Jerome Briot** · 14/02/2008, 18h54

Le problème vient du fait que les fonctions (choix, lecture, pause, stop) sont des fonctions imbriquées. Leur visibilité n'est donc assurée qu'à l'intérieur de la fonction vlc.

Tu peux mettre chaque fonction dans un fichier m et modifier leur appel dans vlc. Et utiliser GUIDATA/GUIHANDLES pour gérer la visibilité des variables entre les fonctions.

Fichier vlc.m :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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')
 
handles=guihandles(fig);
handles.actx=actx;
guidata(fig,handles)

Fichier pickmovie.m :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function pickmovie
 
	[fichier,chemin] = uigetfile({'*.avi;*.mpg;*.mpeg;*.ogg;*.flac;*.flv';'*.avi';'*.mpg';'*.mpeg';'*.ogg';'*.flac';'*.flv'}, ...
        'Select a movie file');
 
    handles=guidata(gcbf);
	invoke(handles.actx,'addTarget',fullfile(chemin,fichier),[],1,int32(1));

Fichier playmovie.m :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function playmovie
 
	handles=guidata(gcbf);
	invoke(handles.actx,'play')

Fichier pausemovie.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function pausemovie
 
    handles=guidata(gcbf);
	invoke(handles.actx,'pause')

Fichier stopmovie.m :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function stopmovie
 
	handles=guidata(gcbf);
	invoke(handles.actx,'stop')

**Jerome Briot** · 14/02/2008, 19h03

Les trois dernières fonctions étant très similaires, on peut les réunir dans un seul fichier. Soit au final :

Fichier vlc.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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','play',...
    'callback','actionmovie')
 
uicontrol('units','pixels','position',[20+2*(80+140/3) 20 80 20],...
    'string','Pause',...
    'tag','pause',...
    'callback','actionmovie')
 
uicontrol('units','pixels','position',[20+3*(80+140/3) 20 80 20],...
    'string','Stop',...
    'tag','stop',...
    'callback','actionmovie')
 
handles=guihandles(fig);
handles.actx=actx;
guidata(fig,handles)

Fichier pickmovie.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function pickmovie
 
	[fichier,chemin] = uigetfile({'*.avi;*.mpg;*.mpeg;*.ogg;*.flac;*.flv';'*.avi';'*.mpg';'*.mpeg';'*.ogg';'*.flac';'*.flv'}, ...
        'Select a movie file');
 
    handles=guidata(gcbf);
	invoke(handles.actx,'addTarget',fullfile(chemin,fichier),[],1,int32(1));

Fichier actionmovie.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function actionmovie
 
    handles=guidata(gcbf);
    invoke(handles.actx,get(gcbo,'tag'))

**Vassili68** · 14/02/2008, 19h11

Ok merci c'est niquel !

**Vassili68** · 14/02/2008, 19h32

Oops j'ai parlé trop vite... J'ai des messages d'erreurs : quand je lance pickmovie j'ai bien la fenêtre qui s affiche mais quand je sélectionne un film et je l'ouvre ça bloque... Voici le rapport d'erreurs :

??? Error using ==> guidata at 89
H must be the handle to a figure or figure descendent.

Error in ==> pickmovie at 6
handles=guidata(gcbf);

Tu as une explication ?

**Jerome Briot** · 14/02/2008, 20h00

Envoyé par Vassili68

Tu as une explication ?

Non

Je rigole

... ça arrive quand tu as une interface avec plusieurs objets Figure qui s'ouvrent et se referment. Une solution :

Fichier vlc.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
fig = figure('position',[381 188 500 400],...
    'menubar','none',...
    'numbertitle','off',...
    'tag','vlcfig');

Fichier pickmovie.m

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function pickmovie

	[fichier,chemin] = uigetfile({'*.avi;*.mpg;*.mpeg;*.ogg;*.flac;*.flv';'*.avi';'*.mpg';'*.mpeg';'*.ogg';'*.flac';'*.flv'}, ...
        'Select a movie file');

    handles=guidata(findobj('type','figure','tag','vlcfig'));
	invoke(handles.actx,'addTarget',fullfile(chemin,fichier),[],1,int32(1));

Faire la même modification avec les GUIDATA dans les autres fonctions