Recognizing Pages

Take the following steps to add code to the existing project that will let you recognize pages:

1.

Start with the program you created in Working with Zones.

2.

Add a command button to your form and name it as follows:

 

Name

Caption

 

RECOGNIZE

Recognize

 

GETSTATUS

Get Status

3.

Code the RECOGNIZE button's click procedure as follows:

Private Sub RECOGNIZE_Click()
Dim nRet As Long
LEADRasterDoc.SpellLanguageID = LANGID_ENGLISH
LEADRasterDoc.EnableSubSystem = True
LEADRasterDoc.EnableCorrection = True
   
LEADRasterDoc.RecognitionDataFileName = "c:\testrdf.rdf"

nRet = LEADRasterDoc.RECOGNIZE(0, 1) 
If (nRet = 0) Then
MsgBox "The engine finished recognizing the specified pages successfully"
Else
MsgBox "Error" + Str(nRet) + "in recognized specified pages"
End If
End Sub

4.

Code the GETSTATUS button's click procedure as follows:

Private Sub GETSTATUS_Click()
Dim nRet As Long
nRet = LEADRasterDoc.GetStatus ()
If (nRet = 0) Then
MsgBox "Recognition Time = " + Str(LEADRasterDoc.RecognizeStatus.RecognizedTime) + Chr$(13) + _
      "Total Recognized Characters = " + Str(LEADRasterDoc.RecognizeStatus.RecognizedCharacterCount) + Chr$(13) + _
      "Total Recognized Words = " + Str(LEADRasterDoc.RecognizeStatus.RecognizedWordCount) + Chr$(13) + _
      "Total Rejected Characters = " + Str(LEADRasterDoc.RecognizeStatus.RejectCharacterCount) + Chr$(13) + _
      "Total Rejected Words = " + Str(LEADRasterDoc.RecognizeStatus.RejectWordCount) 
End If
End Sub 

5.

Code the RecognitionStatus Event procedure as follows:

Private Sub LEADRasterDoc_RecognitionStatus (ByVal iRecogPage As Integer, ByVal iError As Integer) 
MsgBox "The page # " + Str(iRecogPage) + "is finished its recognition" + Chr$(13) + _
      "The recognition return code = " + Str(iError) 
' continue to recognize next page
   LEADRasterDoc.EnableStopRecognizeStatus = False
End Sub

6.

Run your program to test it.

7.

Save this project to use for testing other code samples.