guide (代码: 2\playMTV.m)
% 窗体打开前,执行该函数----------------------------------------------------
function playMTV_OpeningFcn(hObject, eventdata, handles, varargin)
handles.output = hObject;
pos=[0 0 0 0];
%MovieControl=actxcontrol('AMOVIE.ActiveMovieControl.2',pos);
%actxcontrol get(MovieControl) 查看文档属性
MovieControl=actxcontrol('WMPlayer.OCX.7',pos); %调用Windows的系统控件(activex控件)
handles.MovieControl=MovieControl; %绑定到全局变量中
mp=handles.MovieControl.currentMedia;
handles.output=mp;
guidata(hObject, handles);
% 打开文件按钮,播放视频----------------------------------------------------
function Untitled_2_Callback(hObject, eventdata, handles)
[filename pathname]=uigetfile('*.*','选择媒体文件'); %打开文件对话框
if ~filename %如果没有打开文件
return;
end
url1=[pathname filename]; %拼接绝对路径
set(handles.MovieControl,'URL',url1); %用MovieControl播放视频
% 窗体大小