5.19 Blob流程案例巩固

*1、采集图像，一种是固定的图像，一种是相机采集

read_image (Image2, 'clip')

*2、图像分割
threshold (Image2, Region2, 0, 45)

*3、形态学

closing_circle (Region2, RegionClosing, 1)

*4、连通性分析
connection (RegionClosing, ConnectedRegions)

*5、填充
*fill_up (ConnectedRegions, RegionFillUp2)

fill_up_shape (ConnectedRegions, RegionFillUp3, 'area', 1, 30)

*6、特征提取

select_shape (RegionFillUp3, SelectedRegions, 'area', 'and', 3571.05, 6380)

*7、输出结果

area_center (SelectedRegions, Area, Row, Column)

*8、显示结果
*获取句柄
dev_get_window (WindowHandle)

for Index := 1 to |Area| by 1
*获取位置
set_tposition (WindowHandle, Row[Index-1], Column[Index-1])
*打印
write_string (WindowHandle, '面积：'+Area[Index-1])
endfor