clear
clc
close all
VN='test';%待读取视频名称
videoName = [VN '.mkv'];
videoPath = 'D:\...\'; %根目录
v=VideoReader([videoPath,videoName]);
v.CurrentTime = 1;
i=0;
vTiffStack=uint8(zeros(size(rgb2gray(readFrame(v)))));
while hasFrame(v)
close all
i=i+1;
vidFrame = rgb2gray(readFrame(v));
vTiffStack(:,:,i)=vidFrame;
disp(['reading frame index = ' num2str(i)])
vidFrame=[];
end
disp('start writing')
imstackwrite(vTiffStack,[videoPath,[VN '.tif']])
disp('end of writing')
clear
function imstackwrite(imstack,filename)
imwrite(imstack(:,:,1),filename);
for ii=2:size(imstack,3)
imwrite(imstack(:,:,ii),filename,'WriteMode','append');
end
end
MATLAB将视频转换为三维tif图片
于 2024-07-05 11:10:43 首次发布