matlab 图片合成视频

分享一段图片合成视频的matlab代码

由两个文件组成：（1）pic2video.m（2）loadImgSequenceInfo.m

内容分别如下：

（1）pic2video.m

video_path = uigetdir('J:/','请选择图片所在文件夹');
video_path=strrep(video_path, '\', '/');
folderName=regexp(video_path, '/', 'split');
folderName=folderName{end};
video_path=[video_path '/'];
[img_files] =loadImgSequenceInfo(video_path);
dname=uigetdir('J:/','保存到');
savefile=[dname '\' folderName '.avi'];
aviobj = VideoWriter(savefile);
%aviobj.Quality = 100;
aviobj.FrameRate = 25;
open(aviobj);
%aviobj.compression='None';
upbound=numel(img_files) ;
for i=1:upbound  ;%此处修改成自己的范围，起始位置

disp(['正在处理第' num2str(i) '帧，共' num2str(upbound) '帧']);
adata=imread([video_path img_files{i}]);
frame=im2frame(adata);
writeVideo(aviobj,frame);
end
close(aviobj);
disp([folderName '.avi' 'done sucessfully']);

（2）loadImgSequenceInfo.m

function [img_files] = load_video_info(video_path)
text_files = dir([video_path '*_frames.txt']);
if ~isempty(text_files),
f = fopen([video_path text_files(1).name]);
frames = textscan(f, '%f,%f');
fclose(f);

%see if they are in the 'imgs' subfolder or not
if exist([video_path num2str(frames{1}, 'imgs/img%05i.png')], 'file'),
video_path = [video_path 'imgs/'];
elseif ~exist([video_path num2str(frames{1}, 'img%05i.png')], 'file'),
error('No image files to load.')
end

%list the files
img_files = num2str((frames{1} : frames{2})', 'img%05i.png');
img_files = cellstr(img_files);
else
%no text file, just list all images
img_files = dir([video_path '*.png']);
if isempty(img_files),
img_files = dir([video_path '*.jpg']);
assert(~isempty(img_files), 'No image files to load.')
end
img_files = sort({img_files.name});
end
end

点我去下载文件