halcon批量读取图片并保存分辨率

批量打开文件夹并读取图片

* Image Acquisition 01: Code generated by Image Acquisition 01
list_files ('F:/Huizong/test/ckpt9/test/0', ['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])

读取分辨率

get_image_size (Image, Width, Height)

保存分辨率

（没找到换列的方法，索性将图片来源、图像宽、高分成三个表）

*保存图像分辨率
    open_file ('D:/0width.xls', 'append', FileHandle)
    open_file ('D:/0height.xls', 'append', FileHandle2)
    open_file ('D:/0name.xls', 'append', FileHandle3)
if (Width<128 or Height<64)
    fwrite_string (FileHandle, Width)
    fwrite_string (FileHandle2, Height)
    fwrite_string (FileHandle3, ImageFiles[Index])
    fnew_line (FileHandle)
    fnew_line (FileHandle2)
    fnew_line (FileHandle3)
endif    
    close_file (FileHandle)
    close_file (FileHandle2)
    close_file (FileHandle3)
endfor

删除当前读取的图片

if (Width<128 or Height<64)
*     fwrite_string (FileHandle, Width)
*     fwrite_string (FileHandle2, Height)
*     fwrite_string (FileHandle3, ImageFiles[Index])
*     fnew_line (FileHandle)
*     fnew_line (FileHandle2)
*     fnew_line (FileHandle3)
    delete_file (ImageFiles[Index])
endif    
*     close_file (FileHandle)
*     close_file (FileHandle2)
*     close_file (FileHandle3)
endfor