《zw版·Halcon-delphi系列原创教程》 邮票艺术品自动分类脚本

《zw版·Halcon-delphi系列原创教程》 邮票艺术品自动分类脚本

邮票艺术品自动分类脚本，是个综合应用，有不同尺寸图像的自动识别、区域分割
还有作品附近文字的自动分割
此类项目，字符都不是标准工业字符，ocr需要重新建库，这里就略过了。

ps，脚本很短，才40多行，有兴趣的网友，可以自己改为delphi、vc、vb版

 gen_rectangle1 (Rect, , , , )
 dev_update_var ('off')
 dev_update_window ('off')
 dev_close_window ()
 read_image (Image, 'stamps/swiss1')
 get_image_size (Image, Width, Height)
 dev_open_window (, , round(Width / 1.5), round(Height / 1.5), 'black', WindowID)
 set_display_font (WindowID, , 'mono', 'true', 'false')
 for i :=  to  by
 read_image (Image, 'stamps/swiss' + i)
 get_image_size (Image, Width, Height)
 dev_set_part (, , Height - , Width - )
 dev_display (Image)
 dev_set_draw ('fill')
 threshold (Image, Dark, , )
 fill_up (Dark, DarkFilled)
 connection (DarkFilled, ConnectedRegions)
 select_shape (ConnectedRegions, PotStamps, 'area', 'and', , )
 opening_rectangle1 (PotStamps, Stamps, , )
 select_shape (ConnectedRegions, Lines, 'convexity', 'and', , 0.3)
 select_shape (ConnectedRegions, Character, 'area', 'and', , )
 top_hat (Lines, Rect, RegionTopHat)
 connection (RegionTopHat, ConnTopHat)
 select_shape (ConnTopHat, AllLines, 'area', 'and', , )
 union1 (Character, CharacterUnion)
 dilation_rectangle1 (CharacterUnion, Words, , )
 connection (Words, SingleWords)
 shape_trans (SingleWords, RectWords, 'rectangle1')
 dev_set_draw ('margin')
 dev_display (Image)
 dev_set_color ('red')
 dev_display (AllLines)
 dev_set_color ('green')
 dev_display (Stamps)
 dev_set_color ('yellow')
 dev_display (Character)
 dev_set_color ('blue')
 dev_display (RectWords)
 if (i < )
 disp_continue_message (WindowID, 'black', 'true')
 endif
 stop ()
 endfor
 dev_display (Image)

【《zw版·Halcon-delphi系列原创教程》,网址，cnblogs.com/ziwang/】