工业视觉halcon保存结果图像

*例程将原始图像保存到磁盘，
*同时也使用函数dump_window，将处理结果与原始图像融合为一张图，保存到磁盘

read_image (Image, 'fabrik')
edges_sub_pix (Image, Edges, 'canny', 1, 20, 40)
*CTRL +S将当前例程保存到磁盘，之后可以图片保存同级目录
OriName :='ori.bmp'
ResultName:='result.bmp'
FileFormat:=''
Index:= strrchr(OriName, '.')
t1 := Index+1
t2 := strlen(OriName)-1
FileFormat :=OriName{t1:t2}
write_image (Image, FileFormat, 0, OriName)
ErrorCode:=0
try
    get_image_size (Image, Width, Height)
    dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
    disp_message (WindowHandle, 'ok', 'window', 12, 12, 'black', 'true')
    dev_display (Image)
    dev_display (Edges)
    *提取结果图像后缀
    Index:= strrchr(ResultName, '.')
    t1 := Index+1
    t2 := strlen(ResultName)-1
    FileFormat :=ResultName{t1:t2}
    dump_window (WindowHandle, FileFormat, ResultName)
catch (Exception)
endtry
执行结果如图

工业视觉halcon保存结果图像