read_image (Image0, '一维码.jpg')
get_image_size (Image0, Width, Height)
dev_close_window ()
dev_open_window (0, 0, Width/4, Height/4, 'black', WindowHandle)
dev_display (Image0)
dev_set_draw ('margin')
dev_set_line_width (2)

gen_rectangle1 (Rectangle, 500, 10, 765.5, 2050)
reduce_domain (Image0, Rectangle, Image)
*crop_domain (ImageReduced, Image)

*锐化图像,使条码看起来更清晰
emphasize (Image, Image, 3, 3, 1)
*对比度太低,增强图像的对比度
scale_image_range (Image, ImageScaled, 30, 220)

*【核心算子一】创建条码模型
create_bar_code_model ([], [], BarCodeHandle)

*设置解码参数
*条码的最小尺寸,指条码宽度和间距,大码应设大一点,减少处理时间
set_bar_code_param (BarCodeHandle, 'element_size_min', 4)
*条码的最大尺寸,不能过小也不能过大
set_bar_code_param (BarCodeHandle, 'element_size_max',32)
*是否验证校验位,'absent'不检查校验和,'present'检查校验和
set_bar_code_param (BarCodeHandle,'check_char','present')
*设置为1,则会保留中间结果,评估条码印刷质量时会用到
set_bar_code_param (BarCodeHandle, 'persistence', 1)
*解码时所用扫描线的最大数目,设置为0表示自动确定,一般设置为2-30
set_bar_code_param (BarCodeHandle, 'num_scanlines', 10)
*容许误差值,可设置为'low'或者'high',设置为'high'可能造成误判
set_bar_code_param (BarCodeHandle, 'start_stop_tolerance', 'high')
*分别指条码的方向,设置准确可大大提高解码效率
set_bar_code_param (BarCodeHandle, 'orientation', 0)
*分别指条码的方向容差,设置准确可大大提高解码效率
set_bar_code_param (BarCodeHandle, 'orientation_tol', 20)
*条码的最小高度,默认值-1表示自动推测条码高度,该参数对速度影响大
set_bar_code_param (BarCodeHandle, 'element_height_min', 100)
*设置要解码的个数,0表示全部找出,设置为2表示找到2个就不找了
set_bar_code_param (BarCodeHandle, 'stop_after_result_num', 0)

*解码
*decode_bar_code_rectangle2的解码能力似乎不如find_bar_code,漏掉了一个码
*smallest_rectangle2 (Rectangle, Row1, Column1, Phi, Length1, Length2)
*在指定的矩形区域内解码
*decode_bar_code_rectangle2 (Image, BarCodeHandle, ['Code 128','Code 39'], Row1, Column1, Phi, Length1, Length2, DecodedDataStrings)

* ['Code 128','Code 39']这么写表示既可以解128码,也可以解39码
*【核心算子二】查找条码
find_bar_code (Image, SymbolRegions1, BarCodeHandle, ['Code 128','Code 39'], BarCodeStrings)

*获取解码时的参数(如果没有设置过,则获得的是默认值)
get_bar_code_param (BarCodeHandle, 'element_size_min', GenParamValues)
*获得解码时的一些对象,例如可以获得解码后的条码区域
get_bar_code_object (BarCodeObjects, BarCodeHandle, 'all', 'symbol_regions')
*获得解码后的结果,例如可以获得条码的类型(Code 128、Code 39等等)
get_bar_code_result (BarCodeHandle, 'all', 'decoded_types', BarCodeResults)
get_bar_code_result (BarCodeHandle, 0, 'quality_isoiec15416', Quality)
dev_display (Image0)
disp_message (WindowHandle, BarCodeResults + '码:' + BarCodeStrings, 'image', 20, 20, 'black', 'true')

*【核心算子三】清除条码模型
clear_bar_code_model (BarCodeHandle)
一般的解码过程
Length := 0
DecodedDataStrings := []
for min_gray := 0 to 30 by 3
    for max_gray := 255 to 180 by -7
        *色阶映射,增强图像对比度
        scale_gray_map (Image, Image2, min_gray, max_gray)
        find_data_code_2d (Image2, SymbolXLDs, hv_DataCodeHandleQR, [], [], ResultHandles, DecodedDataStrings)
        tuple_strlen (DecodedDataStrings, Length)
        *字符串大于5应该就是解出来了,当然这里只是简单判断
        if (Length > 5)
            break
        endif
    endfor

    if (Length > 5)
        break
    endif
endfor
通过改变图像对比度解码
Mult := 255.0 / (Max - Min)
Add := -Mult * Min
scale_image (Image, Image2, Mult, Add)
return ()
scale_gray_map
12-28 14:08