视频转GIF动图MATLAB源码

---

闲来无事，做一个视频转GIF的代码，整点花活，感觉自己做会很有意思。可以对原视频进行矩形截取。当然，实现的方式不唯一，此处的供借鉴使用。

话不多说，直接上代码。注释很详细，有问题可以评论留言~

%% ------------------------- 视频转GIF动图
% Made:在路上，正出发
% Date:2022 02 04
% Ref: MathWorks官网论坛
%  -----------------------------

%% 准备
clc;
clearvars;
close all;

movieName='C:\Users\XYB\Desktop\TEST.mp4';  %视频ID 视频格式必须为 VideoReader 函数所支持的格式
GIFfilename='C:\Users\XYB\Desktop\output.gif'; %GIF文件保存ID 每个人不同，需更改


%% GIF图片保存设置配置
isCrop=true;    %是否截取部分画面 ture(1)是，false(0)否
DelayTime=0;    %GIF每两幅图之间的延时，设为0时为原视频的播放速度
rate=2;         %视频保存为GIF的帧间隔，如设为3，则第1、4、7、10、……3*n+1 帧的图片被保存
Q=256;          % 用于最小方差量化的量化颜色数

%% GIF生成

vidObj = VideoReader(movieName);%创建视频对象

% -1- 选择视频截取区域
if isCrop==1
    frame = read(vidObj,1);%选择第一帧的图片作为截取的参考图，此处也可以改为第2、3帧等
    figure;
    imshow(frame);
    title('请选择要保存的区域')
    rect=getrect;%根据鼠标选择的矩形进行截取
    close all;   %清除图窗
    vidObj = VideoReader(movieName);%重置视频对象
end

% -2-循环转换GIF（逐帧截取、逐帧保存）
idx=1;
while (idx<=vidObj.NumFrames)%判断是还有帧数据可读
    
    if mod(idx,rate)==1%GIF的帧间隔控制
        im = read(vidObj,idx);%读取一帧
        if isCrop==1
            im=imcrop(im,rect);%截取之前所选中矩形框内的部分
        end
        [A,map] = rgb2ind(im,Q);%转换为索引图象，A中的元素为颜色的索引号，map为量化的颜色（RGB三色）
        % GIF保存 详见imwrite函数具体使用 ↓
        % https://www.mathworks.com/help/matlab/ref/imwrite.html?searchHighlight=imwrite&s_tid=srchtitle_imwrite_1
        if idx == 1
            imwrite(A,map,GIFfilename,'gif','LoopCount',Inf,'DelayTime',DelayTime)%GIF循环播放
        else
            imwrite(A,map,GIFfilename,'gif','WriteMode','append','DelayTime',DelayTime);
        end
        
    end
    idx=idx+1;
  
end

随意做的一个运行结果图：

效果图