本帖最后由 wenluderen 于 2016-11-5 09:50 编辑
2016-11-04_173304.zip
(15.04 KB, 下载次数: 63)
她的姐姐是Halcon公司的案例。本帖是我自己测试一个案例。首先准备一张图片 ,用于被训练。
创建训练文件 。不过报错啦。
dev_update_off ()
dev_set_draw('margin')
*write_ocr_trainf需要三个输入参数,下述代码用于获取第二个参数
read_image(Image,'C:/Users/GSZ/Desktop/2016-11-04_173304.jpg')
get_image_size (Image, Width, Height)
dev_close_window ()
dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle)
dev_set_colored (12)
set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
get_tmp_dir (TmpDir)
TrainFile := TmpDir + '/letters.trf'
dev_display (Image)
gen_rectangle2(Rectangle, 42.4775, 371.481, -0.0031017, 307.914, 32.8913)
reduce_domain (Image, Rectangle, Image)
stop ()
*write_ocr_trainf需要三个输入参数,下述代码用于获取第一个参数
*对注册的图像进行Blob分析,得到ROI区域
dev_clear_window()
dev_display(Image)
binary_threshold (Image, Region, 'max_separability', 'dark', UsedThreshold)
dilation_circle (Region, RegionDilation, 2.0)
connection (RegionDilation, ConnectedRegions)
dev_clear_window()
dev_display(ConnectedRegions)
intersection (ConnectedRegions, Region, RegionIntersection)
dev_clear_window()
dev_display(RegionIntersection)
sort_region (RegionIntersection, ROI_Characters, 'character', 'true', 'row')
dev_display (ROI_Characters)
count_obj (ROI_Characters, Number)
disp_message (WindowHandle, 'Training characters', 'window', 12, 12, 'black', 'true')
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
*write_ocr_trainf需要三个输入参数,下述代码用于获取第三个参数
*被训练图片的文本内容
Classes := []
for I := 0 to 25 by 1
Classes := [Classes,gen_tuple_const(1,chr(ord('A') + I))]
endfor
for J := 0 to 9 by 1
Classes := [Classes, J]
endfor
stop ()
write_ocr_trainf (ROI_Characters,\
Image, \
Classes, \
TrainFile)
*********************************************************************************
|