matlab调用笔记本摄像头拍照并连续保存

Posted 2022-06-08 岳飞传

%% 图像抓取并存入当前目录image文件夹下

% 建立图片存储文件夹
if exist('image','dir')~= 7
    mkdir([cd,'/image']) % 与下一句一样
end
directory=[cd,'/image/']; %当前工作目录下文件夹

%定义一个监控界面
hf = figure('Units', 'Normalized', 'Menubar', 'None','NumberTitle', 'off', 'Name', '实时拍照系统');
ha = axes('Parent', hf, 'Units', 'Normalized', 'Position', [0.05 0.2 0.85 0.7]);
axis off
%定义三个按钮控件
hb1 = uicontrol('Parent', hf, 'Units', 'Normalized','Position', [0.2 0.05 0.15 0.1], 'String', '预览', 'Callback', ['imaqhwinfo;'...
    'obj = videoinput(''winvideo'');'...
    'set(obj, ''FramesPerTrigger'', 1);'...
    'set(obj, ''TriggerRepeat'', Inf);'...
    'objRes = get(obj, ''VideoResolution'');' ...
    'nBands = get(obj, ''NumberOfBands'');' ...
    'hImage = image(zeros(objRes(2), objRes(1), nBands));' ...
    'preview(obj, hImage);']);
hb2 = uicontrol('Parent', hf, 'Units', 'Normalized','Position', [0.45 0.05 0.15 0.1], 'String', '拍照', 'Callback', 'image_shot(1,directory,obj);');
hb3 = uicontrol('Parent', hf, 'Units', 'Normalized','Position', [0.7 0.05 0.15 0.1], 'String', '关闭', 'Callback', 'image_shot(0,directory,obj);');

回调函数中：image_shot(1,directory,obj)实现

function image_shot(is_shot,directory,obj)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
persistent i
if isempty(i)
   i = 1; 
end
if is_shot
    date_string=datestr(date,29);%读取系统时间
    filename=[date_string,'-',num2str(i)];%生成制定格式图片名：2015-05-12-1.2.3.....(序号）
    frame = getsnapshot(obj);%抓图
    imwrite(frame,[directory,filename,'.jpg']);%存图'
    i=i+1;
else
    clear i;%清除局部变量
    delete(obj);%关闭摄像头
end

end