1. 背景
现有一文件夹,其中包含多张图片,希望能够将这些图片按几行几列合并成一张大图并显示。
2. 实现
* 关闭窗口后重新打开
dev_close_window()
dev_open_window (0, 0, 600, 400, 'black', WindowHandle)
* 创建一张空白图片
gen_empty_obj (Images)
* 遍历文件夹
list_files ('C:/Users/wyh/source/repos/FileProcessSystem/res/test3', ['files','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
read_image (Image, ImageFiles[Index])
* 图片统一大小
zoom_image_size (Image, ImageZoom, 200, 200, 'constant')
concat_obj (Images, ImageZoom, Images)
endfor
* 合并图片(按行填充,一行填满4张图片后再填充下一行)
tile_images (Images, TiledImage, 4, 'horizontal')
dev_display (TiledImage)