Wednesday, 18 June 2014

convert frames to video

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