*本例程展示了自动识别特征的条码读取器的使用
* Example program for the usage of the bar code
* reader autodiscrimination feature of HALCON.
* 创建条码读取句柄
* Create bar code reader model
create_bar_code_model ([], [], BarCodeHandle)
*设置条码读取器参数，是否验证空白区域是否干净
*具体看这里：https://blog.csdn.net/IntegralforLove/article/details/83722002
set_bar_code_param (BarCodeHandle, ‘quiet_zone‘, ‘true‘)
* 初始化
* Initialization
*关闭更新
dev_update_off ()
*关闭窗体
dev_close_window ()
*打开窗体
dev_open_window (0, 0, 512, 512, ‘black‘, WindowHandle)
*设置显示字体
set_display_font (WindowHandle, 14, ‘mono‘, ‘true‘, ‘false‘)
*设置填充方式
dev_set_draw (‘margin‘)
*设置线宽
dev_set_line_width (3)
*设置显示颜色
dev_set_color (‘forest green‘)
* 定义样本图像
* Define the example images to use
* for part I
*定义每一种条码的样本图像
ExampleImagesAny := [‘barcode/ean13/ean1301‘,‘barcode/code39/code3901‘,‘barcode/gs1databar_omnidir/gs1databar_omnidir_01‘]
*期望条码数量
ExpectedNumCodes := [1,2,1]
*期望数据
ExpectedData := [‘4008535118906‘,‘92274A‘,‘R74-2001-010‘,‘(01)00098431358722‘]
* for part II
*混合图像
ExampleImagesMixed := [‘barcode/mixed/barcode_mixed_04‘,‘barcode/mixed/barcode_mixed_03‘,‘barcode/mixed/barcode_mixed_01‘]
* 第一部分
* PART I
* 用自动特征识别去解码任何一个条码或者定义位置的条码
* Use autodiscrimination to decode any of the bar code types
* supported by HALCON (except PharmaCode) or determine the bar
* code type of unknown bar codes
*
for IdxExample := 0 to 1 by 1
*
* Use different parameters for each run
*第一步：搜索所有条码类型
* First: Search for all bar code types
*第二部分：搜索期望条码类型
* Second: Search only expected bar code types
*定义各种显示信息
Message := ‘Usage of autodiscrimination to decode‘
Message[1] := ‘unknown bar code types.‘
Message[2] := ‘ ‘
* 搜索所有条码类型的参数和显示信息
if (IdxExample == 0)
CodeTypes := ‘auto‘
Message[3] := ‘Part I:‘
Message[4] := ‘Compare performance between automatic‘
Message[5] := ‘bar code discrimination and search for‘
Message[6] := ‘specific code types only.‘
Message[7] := ‘ ‘
Message[8] := ‘In the first run we use CodeType=\‘‘ + CodeTypes + ‘\‘ to look‘
Message[9] := ‘for all bar code types known to HALCON‘
Message[10] := ‘ ‘
Message[11] := ‘Please note that‘
Message[12] := ‘ - Wrong bar codes may be found‘
Message[13] := ‘ - Execution times are longer than necessary‘
Color := [gen_tuple_const(|Message| - 2,‘black‘),gen_tuple_const(3,‘red‘)]
*搜索期望条码类型的参数和显示信息
else
CodeTypes := [‘EAN-13‘,‘Code 39‘,‘GS1 DataBar Omnidir‘]
Message := ‘In the second run we look for the expected types only:‘
Message[1] := sum(‘ ‘ + CodeTypes)
Message[2] := ‘This reduces the decoding time and‘
Message[3] := ‘increases the decoding reliability.‘
Color := gen_tuple_const(|Message|,‘black‘)
endif
*关闭窗体
dev_clear_window ()
*显示信息
disp_message (WindowHandle, Message, ‘window‘, 12, 12, Color, ‘true‘)
*右下角显示‘Press F5 to continue‘
disp_continue_message (WindowHandle, ‘black‘, ‘true‘)
stop ()
*用两种参数跑两次
* Run the test 2 times with different parameters
for IdxIma := 0 to |ExampleImagesAny| - 1 by 1
*读取图像
FileName := ExampleImagesAny[IdxIma]
read_image (Image, FileName)
* 设置啊默认显示参数
* Set display defaults
*获取图像尺寸
get_image_size (Image, Width, Height)
*限制窗体尺寸
dev_set_window_extents (-1, -1, Width, Height)
*显示图像
dev_display (Image)
*显示图像
disp_message (WindowHandle, [‘Looking for bar code(s) of type:‘,sum(‘ ‘ + CodeTypes)], ‘window‘, 12, 12, ‘black‘, ‘true‘)
* 寻找和定义一维码并测量所需时间
* Find and decode bar codes. Measure the time needed.
*开始计时
count_seconds (Start)
*寻找一维码
find_bar_code (Image, SymbolRegions, BarCodeHandle, CodeTypes, DecodedDataStrings)
*计时结束
count_seconds (Stop)
*消耗时间
Duration := (Stop - Start) * 1000
* 检查结果是否正确，用上面期望的值与找到的值进行对比
* Check, if results are correct
Start := sum(ExpectedNumCodes[0:IdxIma]) - ExpectedNumCodes[IdxIma]
DataExp := ExpectedData[Start:Start + ExpectedNumCodes[IdxIma] - 1]
WrongIndex := []
*找到的值是否包含在期望的值中
for I := 0 to |DecodedDataStrings| - 1 by 1
tuple_find (DataExp, DecodedDataStrings[I], Indices)
if (Indices == -1)
WrongIndex := [WrongIndex,I]
endif
endfor
*自动生成一个颜色数组
Color := [‘black‘,gen_tuple_const(|DecodedDataStrings|,‘forest green‘)]
Color[WrongIndex + 1] := ‘red‘
* *显示结果和执行时间
* Display results and the execution time
for I := 1 to |DecodedDataStrings| by 1
*选择条码区域
select_obj (SymbolRegions, ObjectSelected, I)
*设置显示颜色
dev_set_color (Color[I])
*显示选择区域
dev_display (ObjectSelected)
endfor
*获取条码结果，这里是获取条码类型
get_bar_code_result (BarCodeHandle, ‘all‘, ‘decoded_types‘, DecodedDataTypes)
*显示信息
disp_message (WindowHandle, [‘Found bar code(s) in ‘ + Duration$‘.0f‘ + ‘ ms:‘,DecodedDataTypes + ‘: ‘ + DecodedDataStrings], ‘window‘, 5 * 12, 12, Color, ‘true‘)
*右下角显示‘Press F5 to continue‘
disp_continue_message (WindowHandle, ‘black‘, ‘true‘)
stop ()
endfor
endfor
* 第二部分
* Part II
* 开始一次读取多种类型条码
* Now we decode multiple bar code types
* 显示信息
* Display information for the user
Message := ‘Part II‘
Message[1] := ‘ ‘
Message[2] := ‘Now we demonstrate the usage of autodiscrimination‘
Message[3] := ‘to decode multiple mixed bar code types within one image.‘
*清除窗体
dev_clear_window ()
*显示信息
disp_message (WindowHandle, Message, ‘window‘, 12, 12, ‘black‘, ‘true‘)
*右下角显示‘Press F5 to continue‘
disp_continue_message (WindowHandle, ‘black‘, ‘true‘)
stop ()
* 分为两部分
for IdxExample := 0 to 1 by 1
if (IdxExample)
* 扫描所有条码类型，除去固定类型条码
* We could scan for all bar codes except certain bar code
* families...
*获取参数，这里是获取条码类型名称
get_param_info (‘find_bar_code‘, ‘CodeType‘, ‘value_list‘, AllCodeTypes)
NoGS1 := ‘~‘ + regexp_select(AllCodeTypes,‘GS1.*‘)
NoUPC := ‘~‘ + regexp_select(AllCodeTypes,‘UPC.*‘)
CodeTypes := [‘auto‘,NoGS1,NoUPC]
CodeTypesDescription := ‘all types, except GS1 and UPC variants‘
else
* 在这里，只扫描EAN和Code 39类型
* ...or (as we do here) scan only for the EAN family and
* Code 39
*获取参数，这里是获取条码类型名称
get_param_info (‘find_bar_code‘, ‘CodeType‘, ‘value_list‘, AllCodeTypes)
AllEAN := regexp_select(AllCodeTypes,‘EAN-13.*‘)
CodeTypes := [AllEAN,‘Code 39‘]
CodeTypesDescription := ‘Code 39 and all EAN variants‘
endif
* 展示混合多种条码的自动识别和区分
* Demonstrate autodiscrimination for mixed bar code types
for IdxIma := 0 to |ExampleImagesMixed| - 1 by 1
FileName := ExampleImagesMixed[IdxIma]
*读取图像
read_image (Image, FileName)
* 显示图像和描述
* Display image and description
*获取图像尺寸
get_image_size (Image, Width, Height)
*限制窗体尺寸
dev_set_window_extents (-1, -1, Width / 2, Height / 2)
*显示图像
dev_display (Image)
*显示信息
disp_message (WindowHandle, [‘Looking for bar code(s) of type:‘,‘ ‘ + CodeTypesDescription], ‘window‘, 12, 12, ‘black‘, ‘true‘)
* 解码混合条码
* Decode mixed bar codes
find_bar_code (Image, SymbolRegions, BarCodeHandle, CodeTypes, DecodedDataStrings)
* 显示条码和条码区域
* Display decoded data and symbol region
*设置显示颜色
dev_set_color (‘forest green‘)
*显示条码区域
dev_display (SymbolRegions)
*获取条码结果，这里是条码类型参数
get_bar_code_result (BarCodeHandle, ‘all‘, ‘decoded_types‘, DecodedDataTypes)
*求灰度面积和区域中心坐标
area_center (SymbolRegions, Area, Rows, Columns)
*显示信息
disp_message (WindowHandle, DecodedDataTypes + ‘: ‘ + DecodedDataStrings, ‘image‘, Rows, Columns - 160, ‘forest green‘, ‘true‘)
*是否跳出循环
if (IdxIma < |ExampleImagesMixed| - 1 or IdxExample == 0)
*右下角显示‘Press F5 to continue‘
disp_continue_message (WindowHandle, ‘black‘, ‘true‘)
stop ()
endif
endfor
endfor
* 清除条码读取器，释放内存
* Close the bar code reader to clean up memory
stop ()
clear_bar_code_model (BarCodeHandle)
Barcode读取之25barcode_autodiscrimination.hdev
原文：https://www.cnblogs.com/HomeSapiens/p/13538463.html