ImagesFolder=uigetdir;
jpegFiles = dir(strcat(ImagesFolder,'\*.jpg'));
S = [jpegFiles(:).datenum];
[S,S] = sort(S);
jpegFilesS = jpegFiles(S);
% create a video file object called MyVideo
VideoFile=strcat(ImagesFolder,'\MyVideo');
writerObj = VideoWriter(VideoFile);
%Define the video frames per second
fps= 10;
writerObj.FrameRate = fps;
%Open file for writing video data
open(writerObj);
%convert them to movie frames using im2frame and writing the video data to file using writeVideo
for t= 1:length(jpegFilesS)
Frame=imread(strcat(ImagesFolder,'\',jpegFilesS(t).name));
writeVideo(writerObj,im2frame(Frame));
end
close(writerObj);
No comments:
Post a Comment