Halcon文字识别

read_image(Image, 'D:/图片/视觉检测图片/3.png')

FontName := 'Industrial_0-9A-Z_NoRej'

get_image_size(Image, Width, Height)
dev_close_window()
dev_open_window(0, 0, Width/2, Height/2, 'black', WindowHandle)
dev_display(Image)

mean_image(Image, ImageMean, 10, 10)
dyn_threshold(Image, ImageMean, RegionDynThresh, 5, 'light')
connection(RegionDynThresh, ConnectedRegions)
select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 150, 99999)

fill_up(SelectedRegions, RegionFillUp)
opening_circle(RegionFillUp, RegionOpening, 15.5)
select_shape(RegionOpening, SelectedRegions1, 'area', 'and', 40000, 99999)

count_obj(SelectedRegions1, Number)

if(Number # 1)
    stop()
endif

inner_circle(SelectedRegions1, Row, Column, Radius)
gen_circle(Circle, Row, Column, Radius)
opening_circle(SelectedRegions1, RegionOpening1, Radius-8)

smallest_rectangle2(RegionOpening1, Row1, Column1, Phi, Length1, Length2)
gen_rectangle2(Rectangle, Row1, Column1, Phi, Length1, Length2)

*生成一个矩形，然后相减
if(Length1>Length2)
    Length2:=Length2+60
    else
        Lenght1:=Length1+60
endif

gen_rectangle2(Rectangle1, Row1, Column1, Phi, Length1, Length2)
difference(Rectangle1, Rectangle, RegionDifference)

connection(RegionDifference, ConnectedRegions1)
select_shape(ConnectedRegions1, SelectedRegions2, 'row', 'and', Row1, Height)

reduce_domain(Image, SelectedRegions2, ImageReduced)
count_obj(ImageReduced, Number1)
if(Number1 # 1)
    stop()
endif

mean_image(ImageReduced, ImageMean1, 15, 15)
dyn_threshold(ImageReduced, ImageMean1, RegionDynThresh1, 5, 'light')
closing_circle(RegionDynThresh1, RegionClosing, 13.5)
connection(RegionClosing, ConnectedRegions2)
select_shape_std(ConnectedRegions2, SelectedRegions4, 'max_area', 70)

intersection(SelectedRegions4, RegionDynThresh1, RegionIntersection)
connection(RegionIntersection, ConnectedRegions3)
sort_region(ConnectedRegions3, SortedRegions, 'first_point', 'true', 'row')
area_center(SortedRegions, Area, Row2, Column2)
*获取所有列中的平均值
meanRow:=mean(Row2)
Column:=Column2
*黑砖白，百转黑，逆转
invert_image(Image, ImageInvert)
*读取名字，创造OCR句柄
read_ocr_class_mlp (FontName, OCRHandle)

count_obj(SortedRegions, Number2)
Charnum:=[]
set_display_font(WindowHandle,20 , 'mono', 'true', 'false')
for i:=1 to Number2 by 1
    *选择对象
    select_obj(SortedRegions, ObjectSelected, i)
    *识别字体
    do_ocr_single_class_mlp(ObjectSelected, ImageInvert,OCRHandle , 1, Class, Confidence)
    Charnum:=[Charnum,Class]
    
    disp_message(WindowHandle, Class, 'Image',meanRow - 80, Column[i - 1] - 10, 'green', 'false')
endfor

附：OCR识别算法

        paint_region：把其他的全部补偿黑或者白，方便文字识别

        clip_region:截取去除一部分边缘区域