工控编程吧
标题: 工业视觉halcon保存结果图像 [打印本页]
作者: qq263946146 时间: 2019-6-7 17:25
标题: 工业视觉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
执行结果如图
(, 下载次数: 1)