demoocr.dev

我从事工业自动化软件编程三年了,今天真高兴在这里下到了一个很好的资料,现分享一下我平时工作中极有用的一些资料,这个是halcon用于电子产品时的ocr检测 如果想做ocr识别的朋友应该有所帮助!

8 5
699793285
display_write_message 0 0 5 0
Write message in black letters on white background with shadowed box.
Display/Text
WindowHandle tuple
Row tuple
Column tuple
String tuple
WindowCoordinates tuple
append_ocr_translated 2 0 4 0


Character object
CharacterImage object
Row tuple
Column tuple
FileName tuple
Class tuple
append_ocr_rotated 1 0 3 0


Character object
Rot tuple
TrainFile tuple
Class tuple
append_ocr_dilated 1 0 3 0


Character object
MaskSize tuple
TrainFile tuple
Class tuple
append_ocr_erosion 1 0 3 0


Character object
MaskSize tuple
TrainFile tuple
Class tuple
gen_distorted_character 1 1 0 0


Char object
CharDistort object
gen_initial_trainfile 0 0 3 0


TrainFileName tuple
ImageStart tuple
ImageEnd tuple
137
dev_close_window 0 0 0 0 0 2 0 0
dev_close_window ()
read_image 0 1 1 0 0 1 0 0
read_image (ImageExample, 'Image000')
ImageExample
'Image000'
get_image_pointer1 1 0 0 4 0 1 0 0
get_image_pointer1 (ImageExample, Pointer, Type, Width, Height)
ImageExample
Pointer
Type
Width
Height
dev_open_window 0 0 5 1 0 2 0 0
dev_open_window (0, 0, Width*0.5, Height*0.5, 'black', WindowHandle)
0
0
Width*0.5
Height*0.5
'black'
WindowHandle
dev_display 1 0 0 0 0 2 0 0
dev_display (ImageExample)
ImageExample
comment 0 0 1 0 0 3 0 0
* 利用SVM训练
利用SVM训练
assign 0 0 1 1 0 3 0 0
TmpDir := './/'
'.//'
TmpDir
assign 0 0 1 1 0 3 0 0
TrainFile := TmpDir+'letters.trf'
TmpDir+'letters.trf'
TrainFile
assign 0 0 1 1 0 3 0 0
TrainFileBig := TmpDir+'letters_big.trf'
TmpDir+'letters_big.trf'
TrainFileBig
assign 0 0 1 1 0 3 0 0
TrainChar := ['4','R','7']
['4','R','7']
TrainChar
dev_set_check 0 0 1 0 0 2 0 0
dev_set_check ('~give_error')
'~give_error'
delete_file 0 0 1 0 0 1 0 0
delete_file (TrainFile)
TrainFile
dev_set_check 0 0 1 0 0 2 0 0
dev_set_check ('give_error')
'give_error'
comment 0 0 1 0 0 3 0 0
* 得到基础训练集TrainFile
得到基础训练集TrainFile
for 0 0 3 1 0 3 0 0
for i := 0 to 1 by 1
0
1
1
i
dev_set_draw 0 0 1 0 1 2 0 0
    dev_set_draw ('margin')
'margin'
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('red')
'red'
read_image 0 1 1 0 1 1 0 0
    read_image (Image, 'Image' + i$'03')
Image
'Image' + i$'03'
get_domain 1 1 0 0 1 1 0 0
    get_domain (Image, Domain)
Image
Domain
gray_histo 2 0 0 2 1 1 0 0
    gray_histo (Domain, Image, AbsoluteHisto, RelativeHisto)
Domain
Image
AbsoluteHisto
RelativeHisto
histo_to_thresh 0 0 2 2 1 1 0 0
    histo_to_thresh (AbsoluteHisto, 5, MinThresh, MaxThresh)
AbsoluteHisto
5
MinThresh
MaxThresh
threshold 1 1 2 0 1 1 0 0
    threshold (Image, Region, MinThresh[1], MaxThresh[1])
Image
Region
MinThresh[1]
MaxThresh[1]
connection 1 1 0 0 1 1 0 0
    connection (Region, ConnectedRegions)
Region
ConnectedRegions
select_shape 1 1 4 0 1 1 0 0
    select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 90000, 200000)
ConnectedRegions
SelectedRegions
'area'
'and'
90000
200000
count_obj 1 0 0 1 1 1 0 0
    SelectNum := |SelectedRegions|
SelectedRegions
SelectNum
if 0 0 1 0 1 3 0 0
    if (SelectNum>0)
SelectNum>0
dilation_circle 1 1 1 0 2 1 0 0
        dilation_circle (SelectedRegions, RegionDilation, 6)
SelectedRegions
RegionDilation
6
fill_up 1 1 0 0 2 1 0 0
        fill_up (RegionDilation, RegionFillUp)
RegionDilation
RegionFillUp
comment 0 0 1 0 2 3 0 0
*         得到数据区域
得到数据区域
erosion_circle 1 1 1 0 2 1 0 0
        erosion_circle (RegionFillUp, RegionErosion, 7)
RegionFillUp
RegionErosion
7
reduce_domain 2 1 0 0 2 1 0 0
        reduce_domain (Image, RegionErosion, ImageReduced)
Image
RegionErosion
ImageReduced
illuminate 1 1 3 0 2 1 0 0
        illuminate (ImageReduced, ImageIlluminate, 101, 101, 0.7)
ImageReduced
ImageIlluminate
101
101
0.7
threshold 1 1 2 0 2 1 0 0
        threshold (ImageIlluminate, ReducedRegion, 0, 120)
ImageIlluminate
ReducedRegion
0
120
opening_circle 1 1 1 0 2 1 0 0
        opening_circle (ReducedRegion, RegionOpening, 3)
ReducedRegion
RegionOpening
3
connection 1 1 0 0 2 1 0 0
        connection (RegionOpening, DataConnect)
RegionOpening
DataConnect
select_shape 1 1 4 0 2 1 0 0
        select_shape (DataConnect, DataSelectedRegions, 'area', 'and', 900, 30000)
DataConnect
DataSelectedRegions
'area'
'and'
900
30000
sort_region 1 1 3 0 2 1 0 0
        sort_region (DataSelectedRegions, SortedRegions, 'upper_left', 'true', 'row')
DataSelectedRegions
SortedRegions
'upper_left'
'true'
'row'
count_obj 1 0 0 1 2 1 0 0
        Number := |SortedRegions|
SortedRegions
Number
assign 0 0 1 1 2 3 0 0
        m := 0
0
m
for 0 0 3 1 2 3 0 0
        for j := 1 to Number by 1
1
Number
1
j
select_obj 1 1 1 0 3 1 0 0
            ObjectSelected := SortedRegions[j]
SortedRegions
ObjectSelected
j
smallest_rectangle2 1 0 0 5 3 1 0 0
            smallest_rectangle2 (ObjectSelected, ObjSelectRow, ObjSelectColumn, ObjSelectPhi, ObjSelectLength1, ObjSelectLength2)
ObjectSelected
ObjSelectRow
ObjSelectColumn
ObjSelectPhi
ObjSelectLength1
ObjSelectLength2
gen_rectangle2 0 1 5 0 3 1 0 0
            gen_rectangle2 (Rectangle, ObjSelectRow, ObjSelectColumn, ObjSelectPhi, ObjSelectLength1, ObjSelectLength2)
Rectangle
ObjSelectRow
ObjSelectColumn
ObjSelectPhi
ObjSelectLength1
ObjSelectLength2
reduce_domain 2 1 0 0 3 1 0 0
            reduce_domain (ImageIlluminate, Rectangle, ImageRectReduced)
ImageIlluminate
Rectangle
ImageRectReduced
assign 0 0 1 1 3 3 0 0
            SingleChar := TrainChar[m]
TrainChar[m]
SingleChar
append_ocr_trainf 2 0 2 0 3 1 0 0
            append_ocr_trainf (ObjectSelected, ImageRectReduced, SingleChar, TrainFile)
ObjectSelected
ImageRectReduced
SingleChar
TrainFile
assign 0 0 1 1 3 3 0 0
            m := m+1
m+1
m
endfor 0 0 0 0 2 3 40 0
        endfor
endif 0 0 0 0 1 3 26 0
    endif
stop 0 0 0 0 1 3 0 1
*     stop ()
endfor 0 0 0 0 0 3 15 0
endfor
stop 0 0 0 0 0 3 0 1
* stop ()
comment 0 0 1 0 0 3 0 0
* 考虑字符的平移，旋转，字符偏大或偏小，得到扩展训练集TrainFileBig
考虑字符的平移，旋转，字符偏大或偏小，得到扩展训练集TrainFileBig
dev_set_check 0 0 1 0 0 2 0 0
dev_set_check ('~give_error')
'~give_error'
delete_file 0 0 1 0 0 1 0 0
delete_file (TrainFileBig)
TrainFileBig
dev_set_check 0 0 1 0 0 2 0 0
dev_set_check ('give_error')
'give_error'
read_ocr_trainf_names 0 0 1 2 0 1 0 0
read_ocr_trainf_names (TrainFile, CharacterNames, CharacterCount)
TrainFile
CharacterNames
CharacterCount
read_ocr_trainf 0 1 1 1 0 1 0 0
read_ocr_trainf (Characters, TrainFile, CharacterNamesSingle)
Characters
TrainFile
CharacterNamesSingle
count_obj 1 0 0 1 0 1 0 0
NumChars := |Characters|
Characters
NumChars
assign 0 0 1 1 0 3 0 0
ColLeftOff := -1
-1
ColLeftOff
assign 0 0 1 1 0 3 0 0
ColRightOff := 1
1
ColRightOff
assign 0 0 1 1 0 3 0 0
RowLeftOff := -1
-1
RowLeftOff
assign 0 0 1 1 0 3 0 0
RowRightOff := 1
1
RowRightOff
assign 0 0 1 1 0 3 0 0
AngleStartOff := -10
-10
AngleStartOff
assign 0 0 1 1 0 3 0 0
AngleEndOff := 10
10
AngleEndOff
assign 0 0 1 1 0 3 0 0
ErosionOff := 1.2
1.2
ErosionOff
assign 0 0 1 1 0 3 0 0
DilationOff := 1.2
1.2
DilationOff
for 0 0 3 1 0 3 0 0
for i := 0 to NumChars-1 by 1
0
NumChars-1
1
i
select_obj 1 1 1 0 1 1 0 0
    Char := Characters[i+1]
Characters
Char
i+1
assign 0 0 1 1 1 3 0 0
    Class := CharacterNamesSingle[i]
CharacterNamesSingle[i]
Class
threshold 1 1 2 0 1 1 0 0
    threshold (Char, CharRegion, 0, 120)
Char
CharRegion
0
120
opening_circle 1 1 1 0 1 1 0 0
    opening_circle (CharRegion, CharRegionOpening, 3)
CharRegion
CharRegionOpening
3
connection 1 1 0 0 1 1 0 0
    connection (CharRegionOpening, CharConnect)
CharRegionOpening
CharConnect
select_shape 1 1 4 0 1 1 0 0
    select_shape (CharConnect, CharSelectedRegions, 'area', 'and', 1500, 30000)
CharConnect
CharSelectedRegions
'area'
'and'
1500
30000
append_ocr_trainf 2 0 2 0 1 1 0 0
    append_ocr_trainf (CharSelectedRegions, Char, Class, TrainFileBig)
CharSelectedRegions
Char
Class
TrainFileBig
for 0 0 3 1 1 3 0 0
    for m := RowLeftOff to RowRightOff by 1
RowLeftOff
RowRightOff
1
m
for 0 0 3 1 2 3 0 0
        for n := ColLeftOff to ColRightOff by 1
ColLeftOff
ColRightOff
1
n
append_ocr_translated 2 0 4 0 3 4 0 0
            append_ocr_translated (CharSelectedRegions, Char, m, n, TrainFileBig, Class)
CharSelectedRegions
Char
m
n
TrainFileBig
Class
endfor 0 0 0 0 2 3 77 0
        endfor
endfor 0 0 0 0 1 3 76 0
    endfor
for 0 0 3 1 1 3 0 0
    for m := AngleStartOff to AngleEndOff by 1
AngleStartOff
AngleEndOff
1
m
append_ocr_rotated 1 0 3 0 2 4 0 0
        append_ocr_rotated (Char, m, TrainFileBig, Class)
Char
m
TrainFileBig
Class
endfor 0 0 0 0 1 3 81 0
    endfor
append_ocr_erosion 1 0 3 0 1 4 0 0
    append_ocr_erosion (Char, ErosionOff, TrainFileBig, Class)
Char
ErosionOff
TrainFileBig
Class
append_ocr_dilated 1 0 3 0 1 4 0 0
    append_ocr_dilated (Char, DilationOff, TrainFileBig, Class)
Char
DilationOff
TrainFileBig
Class
stop 0 0 0 0 1 3 0 1
*     stop ()
endfor 0 0 0 0 0 3 68 0
endfor
create_ocr_class_svm 0 0 11 1 0 1 0 0
create_ocr_class_svm (25, 25, 'constant', 'default', CharacterNames, 'rbf', 0.02, 0.05, 'one-versus-one', 'normalization', 10, OCRHandle)
25
25
'constant'
'default'
CharacterNames
'rbf'
0.02
0.05
'one-versus-one'
'normalization'
10
OCRHandle
trainf_ocr_class_svm 0 0 4 0 0 1 0 0
trainf_ocr_class_svm (OCRHandle, TrainFileBig, 0.001, 'default')
OCRHandle
TrainFileBig
0.001
'default'
write_ocr_class_svm 0 0 2 0 0 1 0 0
write_ocr_class_svm (OCRHandle, TrainFileBig)
OCRHandle
TrainFileBig
clear_ocr_class_svm 0 0 1 0 0 1 0 0
clear_ocr_class_svm (OCRHandle)
OCRHandle
stop 0 0 0 0 0 3 0 1
* stop ()
comment 0 0 1 0 0 3 0 0
* 读取字符
读取字符
read_ocr_class_svm 0 0 1 1 0 1 0 0
read_ocr_class_svm (TrainFileBig, OCRSVMHandle)
TrainFileBig
OCRSVMHandle
for 0 0 3 1 0 3 0 0
for i := 0 to 1 by 1
0
1
1
i
dev_set_draw 0 0 1 0 1 2 0 0
    dev_set_draw ('margin')
'margin'
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('red')
'red'
read_image 0 1 1 0 1 1 0 0
    read_image (Image, 'Image' + i$'03')
Image
'Image' + i$'03'
get_domain 1 1 0 0 1 1 0 0
    get_domain (Image, Domain)
Image
Domain
gray_histo 2 0 0 2 1 1 0 0
    gray_histo (Domain, Image, AbsoluteHisto, RelativeHisto)
Domain
Image
AbsoluteHisto
RelativeHisto
histo_to_thresh 0 0 2 2 1 1 0 0
    histo_to_thresh (AbsoluteHisto, 5, MinThresh, MaxThresh)
AbsoluteHisto
5
MinThresh
MaxThresh
threshold 1 1 2 0 1 1 0 0
    threshold (Image, Region, MinThresh[1], MaxThresh[1])
Image
Region
MinThresh[1]
MaxThresh[1]
connection 1 1 0 0 1 1 0 0
    connection (Region, ConnectedRegions)
Region
ConnectedRegions
select_shape 1 1 4 0 1 1 0 0
    select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 90000, 200000)
ConnectedRegions
SelectedRegions
'area'
'and'
90000
200000
count_obj 1 0 0 1 1 1 0 0
    SelectNum := |SelectedRegions|
SelectedRegions
SelectNum
if 0 0 1 0 1 3 0 0
    if (SelectNum>0)
SelectNum>0
dilation_circle 1 1 1 0 2 1 0 0
        dilation_circle (SelectedRegions, RegionDilation, 6)
SelectedRegions
RegionDilation
6
fill_up 1 1 0 0 2 1 0 0
        fill_up (RegionDilation, RegionFillUp)
RegionDilation
RegionFillUp
comment 0 0 1 0 2 3 0 0
*         得到数据区域
得到数据区域
erosion_circle 1 1 1 0 2 1 0 0
        erosion_circle (RegionFillUp, RegionErosion, 7)
RegionFillUp
RegionErosion
7
reduce_domain 2 1 0 0 2 1 0 0
        reduce_domain (Image, RegionErosion, ImageReduced)
Image
RegionErosion
ImageReduced
illuminate 1 1 3 0 2 1 0 0
        illuminate (ImageReduced, ImageIlluminate, 101, 101, 0.7)
ImageReduced
ImageIlluminate
101
101
0.7
threshold 1 1 2 0 2 1 0 0
        threshold (ImageIlluminate, ReducedRegion, 0, 120)
ImageIlluminate
ReducedRegion
0
120
opening_circle 1 1 1 0 2 1 0 0
        opening_circle (ReducedRegion, RegionOpening, 3)
ReducedRegion
RegionOpening
3
connection 1 1 0 0 2 1 0 0
        connection (RegionOpening, DataConnect)
RegionOpening
DataConnect
select_shape 1 1 4 0 2 1 0 0
        select_shape (DataConnect, DataSelectedRegions, 'area', 'and', 900, 30000)
DataConnect
DataSelectedRegions
'area'
'and'
900
30000
count_seconds 0 0 0 1 2 1 0 0
        count_seconds (StartSeconds)
StartSeconds
do_ocr_multi_class_svm 2 0 1 1 2 1 0 0
        do_ocr_multi_class_svm (DataSelectedRegions, ImageIlluminate, OCRSVMHandle, ReadOutClass)
DataSelectedRegions
ImageIlluminate
OCRSVMHandle
ReadOutClass
count_seconds 0 0 0 1 2 1 0 0
        count_seconds (EndSeconds)
EndSeconds
endif 0 0 0 0 1 3 106 0
    endif
dev_display 1 0 0 0 1 2 0 0
    dev_display (Image)
Image
dev_set_draw 0 0 1 0 1 2 0 0
    dev_set_draw ('margin')
'margin'
dev_display 1 0 0 0 1 2 0 0
    dev_display (DataSelectedRegions)
DataSelectedRegions
assign 0 0 1 1 1 3 0 0
    WasteTime := (EndSeconds-StartSeconds)*1000
(EndSeconds-StartSeconds)*1000
WasteTime
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('red')
'red'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, 20, 12)
WindowHandle
20
12
write_string 0 0 2 0 1 1 0 0
    write_string (WindowHandle, 'OCR结果：')
WindowHandle
'OCR结果：'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, 60, 12)
WindowHandle
60
12
write_string 0 0 2 0 1 1 0 0
    write_string (WindowHandle, ReadOutClass)
WindowHandle
ReadOutClass
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('green')
'green'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, 100, 12)
WindowHandle
100
12
write_string 0 0 2 0 1 1 0 0
    write_string (WindowHandle, 'OCR耗时：')
WindowHandle
'OCR耗时：'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, 140, 12)
WindowHandle
140
12
write_string 0 0 2 0 1 1 0 0
    write_string (WindowHandle, WasteTime+'ms')
WindowHandle
WasteTime+'ms'
stop 0 0 0 0 1 3 0 0
    stop ()
endfor 0 0 0 0 0 3 95 0
endfor
clear_ocr_class_svm 0 0 1 0 0 1 0 0
clear_ocr_class_svm (OCRSVMHandle)
OCRSVMHandle
53
get_part 0 0 1 4 0 1 0 0
get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part)
WindowHandle
Row1Part
Column1Part
Row2Part
Column2Part
get_window_extents 0 0 1 4 0 1 0 0
get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin)
WindowHandle
RowWin
ColumnWin
WidthWin
HeightWin
if 0 0 1 0 0 3 0 0
if (Row=-1)
Row=-1
assign 0 0 1 1 1 3 0 0
    Row := 12
12
Row
endif 0 0 0 0 0 3 3 0
endif
if 0 0 1 0 0 3 0 0