MATLAB 视频转图像算法

来源：互联网发布：我的淘宝怎么上货编辑：程序博客网时间：2024/04/29 10:18
%function [filename,pathname,fileindex]  by vincent [filename,pathname,fileindex]= uigetfile('B*.avi','C:\Users\sunboy\Desktop\file\B','video.avi','Multiselect','on');%'video.avi'if ischar(filename) %只有选择了文件才进行以下计算video=mmreader([pathname filename]);%%General Settings:%Duration 时间%Name 视频名称%Path 路径%Tag =%Type = mmreader%UserData = []%%Video Settings:%BitsPerPixel=24%FrameRate 视频采集速率%Height 高度%NumberOfFrames 总帧数%VideoFormat 图像模式%Width = 宽度LEN=video.NumberOfFrames; %获得视频长度dir=strcat(pathname,strrep(filename,'.avi',''),'\pic');mkdir(dir);fn=strrep(filename,'.avi','');for k=1:LEN-1 %若read 到len，常会报错如下???MATLAB:read:readTimedOut，read 到len-1 就好了frame=rgb2gray(read(video,k));if k<10imwrite(frame,strcat(dir,'\',fn,'-avi-000',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=10 && k<100imwrite(frame,strcat(dir,'\',fn,'-avi-00',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=100 && k<1000imwrite(frame,strcat(dir,'\',fn,'-avi-0',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=1000 && k<10000imwrite(frame,strcat(dir,'\',fn,'-avi-',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘endendelseif iscell(filename)navi=length(filename);for n=1:navivideo=mmreader([pathname filename{n}]);%%General Settings:%Duration 时间%Name 视频名称%Path 路径%Tag =%Type = mmreader%UserData = []%%Video Settings:%BitsPerPixel=24%FrameRate 视频采集速率%Height 高度%NumberOfFrames 总帧数%VideoFormat 图像模式%Width = 宽度LEN=video.NumberOfFrames; %获得视频长度dir=strcat(pathname,strrep(filename{n},'.avi',''),'\pic');mkdir(dir);fn=strrep(filename{n},'.avi','');for k=1:LEN-1 %若read 到len，常会报错如下???MATLAB:read:readTimedOut，独到len-1 就好了frame=rgb2gray(read(video,k));if k<10imwrite(frame,strcat(dir,'\',fn,'-avi-000',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=10 && k<100imwrite(frame,strcat(dir,'\',fn,'-avi-00',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=100 && k<1000imwrite(frame,strcat(dir,'\',fn,'-avi-0',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘elseif k>=1000 && k<10000imwrite(frame,strcat(dir,'\',fn,'-avi-',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘endenddisp(strcat(num2str(n),'/',num2str(navi),' :"',filename{n},'" Finished!',datestr(now,13)));endelsereturnendmsgbox('所有帧提取完毕,已写入磁盘！','提示');
0 0