Matlab - Crear video mp4 desde una secuencia de imagenes

v = VideoWriter('newfile.mp4','MPEG-4');

open(v)

for ii = 1:2000

     writeVideo(v,rand(64,64))

end

close(v)

datos=strcat('frame.0',cellfun(@num2str,num2cell(1:24),'UniformOutput',false),'.bmp')

for img = FrameAle+1:CantFrames;

%Ciclo para obtener los frames posteriores al frame seleccionado

	filename=strcat('frame0',num2str(img),'.bmp')

	%Almacena frame a frame en la variable filename y la cual le da el nombre de frame#.jpg

	FramePost = read(Video, img);

	%Obtiene la imagen correspondiente del frame seleccionado

	waitbar(img/(CantFrames),BarraProgreso2);

	%Muestra el avance en la barra de progreso

	RutaGuardadoFrame=('RutadeGuardado');

	%Selecciona la ubicacion donde se guardaran los frame

	filename=fullfile(RutaGuardadoFrame,filename);

	%Se almacena el nombre del frame y la ruta en la que se quiere guardar

	imwrite(FramePost,filename);

	%Se escribe en disco duro el frame en la ruta seleccionada.

end

close(BarraProgreso2)

%cierra la barra de progreso cuando halla terminado

function boton_Callback(hObject, eventdata, handles)

[handles.filename, handles.pathname] = uigetfile({'*.mp4'},'Seleccione Video');

a= fullfile(handles.pathname,handles.filename);

[~,~,fileExt] = fileparts(a);

%La funcion fileparts retorna parametros de la configuracion del video, en este caso nos interesa que se extension sea mp4

if fileExt == '.mp4'

    Reproducir = handles.activex1;

    Reproducir.URL = fullfile(handles.pathname,handles.filename);

    Video=VideoReader(Reproducir.URL);

    CantFrames= Video.NumberOfFrames;

    %Obtiene los frames totales del video

    FrameAle=randi([1,CantFrames])

    %Selecciona un frame aleatorio entre 1 y la cantidad de frame

    FrameSelec = read(Video, FrameAle);

    %Obtiene la imagen correspondiente al frame seleccionado anteriormente

    axes(handles.axes1)

    %Selecciona el axes1 donde se mostrara el frame (en la version final de eliminara este paso)

    imshow(FrameSelec);

    %muestra el frame seleccionado en el axes1

    fullname = 'RutaGuardado';

    %Establece la ruta en la cual se van a guardar y organizar los frames del video

    mkdir(fullname)

    BarraProgreso2 = waitbar(0,'Procesando....');

    %inicia la barra de progreso

        for img = 1:CantFrames;

        %Ciclo para obtener los frames posteriores al frame en el cual se va a guardar la informacion en texto

            filename=strcat(num2str(img),'.bmp');

            %Almacena frame a frame en la variable filename y la cual le da el nombre de frame#.jpg

            FramePost = read(Video, img);

            %Obtiene la imagen correspondiente del frame seleccionado

            VectorPost=[filename];

            waitbar(img/(CantFrames),BarraProgreso2);

            %Muestra el avance en la barra de progreso

            RutaGuardadoFrame=('D:\PRY-GRD\ExtractFrame\Frames');

            %Selecciona la ubicacion donde se guardaran los frame

            filename=fullfile(RutaGuardadoFrame,filename);

            %Se almacena el nombre del frame y la ruta en la que se quiere guardar

            imwrite(FramePost,filename);

            %Se escribe en disco duro el frame en la ruta seleccionada.

        end

        close(BarraProgreso2) %cierra la barra de progreso cuando halla terminado

end

% Programa para crear un video apartir de una secuencia de imagenes guardadas en un   

% directorio con cualquier extension, nombradas de la siguiente manera 1.ext 2.ext ....   

% 10.ext 20.ext 30.ext ...100.ext 200.ext ......

clear all

clc

Directorio = 'Ruta de guardado de frames';

Frames = dir(fullfile(Directorio, '*.extension'));

Nombres={Frames.name};

[~,name]=sort_nat(Nombres);

%sort_nat es una funcion que se debe descargar y guardar la cual ordena alfanumericamente las palabras incluyendo caracteres especiales.

new_folder=Frames(name);

NumFrames = numel(Frames);

VideoRecuperado = VideoWriter('StegoVideo.mp4','MPEG-4');

VideoRecuperado.FrameRate = FramesRate deseado;

VideoRecuperado.Quality   = 80;

open(VideoRecuperado);

for n = 1:NumFrames

    full_name= fullfile(Directorio, new_folder(n).name);

    I=imread(full_name);

    writeVideo(VideoRecuperado, I);

end

close(VideoRecuperado);