GdPicture Imaging Forums

Code: Select all

 Private Sub OCRDocument(ByRef image As Byte())
        Try
            Dim formNumber As String = ""
            Dim oGdPictureOCR As GdPictureOCR = New GdPictureOCR()
            Dim oGdPictureImaging As New GdPictureImaging()
            Dim imageId As Integer = oGdPictureImaging.CreateGdPictureImageFromByteArray(image)
            If oGdPictureImaging.GetStat() <> GdPictureStatus.OK Then
                Throw New Exception("OCR Failed to create GDPictureImage. STAT: " + oGdPictureImaging.GetStat().ToString())
            End If

            Dim imageWidth = oGdPictureImaging.GetWidth(imageId)
            Dim imageHeight = oGdPictureImaging.GetHeight(imageId)
            Dim eighthHeight As Integer = imageHeight / 8
            Dim halfWidth As Integer = imageWidth / 2

            Dim caseIdLeftPoint As Integer = halfWidth
            Dim caseIdTopPoint As Integer = 10
            Dim caseIdWidthArea As Integer = halfWidth - 5
            Dim caseIdHeightArea As Integer = eighthHeight

            Dim formLeftPoint As Integer = 0
            Dim formTopPoint As Integer = imageHeight - eighthHeight
            Dim formwidthArea As Integer = halfWidth
            Dim formheightArea As Integer = eighthHeight

            oGdPictureOCR.Context = OCRContext.OCRContextDocument
            oGdPictureOCR.OCRMode = OCRMode.FavorAccuracy

            oGdPictureOCR.ResourceFolder = System.AppDomain.CurrentDomain.BaseDirectory.ToString()
            Dim formIdcontent As String = Nothing
            Dim gdPicStatus As GdPictureStatus = oGdPictureOCR.AddLanguage(OCRLanguage.English)
            If gdPicStatus = GdPictureStatus.OK Then
                If oGdPictureOCR.SetImage(imageId) = GdPictureStatus.OK Then
                    'REGION A
                    oGdPictureOCR.SetROI(caseIdLeftPoint, caseIdTopPoint, caseIdWidthArea, caseIdHeightArea)
                    Dim caseIdOcrId As String = oGdPictureOCR.RunOCR("caseNumber")
                    Dim caseIdStatus As GdPictureStatus = oGdPictureOCR.GetStat()
                    If caseIdStatus <> GdPictureStatus.OK Then
                        Throw New Exception("OCR problem with oGdPictureOCR.RunOCR for case ID. STAT: " + oGdPictureOCR.GetStat().ToString())
                    End If

                    'REGION B
                    Dim formIdOcrSetROIStatus As GdPictureStatus = oGdPictureOCR.SetROI(formLeftPoint, formTopPoint, formwidthArea, formheightArea)
                    If formIdOcrSetROIStatus <> GdPictureStatus.OK Then
                        Throw New Exception("OCR problem with oGdPictureOCR.SetROI for form number. STAT: " + oGdPictureOCR.GetStat().ToString())
                    End If
                    Dim formOcrId As String = ""
                    Try
                        'UNHANDLED EXCEPTION HAPPENS HERE ON SOME DOCUMENTS
                        formOcrId = oGdPictureOCR.RunOCR("formId")
                    Catch ex As Exception
                        Throw New Exception("OCR problem with oGdPictureOCR.RunOCR for form number. STAT: " + oGdPictureOCR.GetStat().ToString())
                    End Try
                    Dim formIdOcrStatus As GdPictureStatus = oGdPictureOCR.GetStat()
                    If formIdOcrStatus <> GdPictureStatus.OK Then
                        Throw New Exception("OCR problem with oGdPictureOCR.RunOCR for form number. STAT: " + oGdPictureOCR.GetStat().ToString())
                    End If
                    formIdcontent = oGdPictureOCR.GetOCRResultText(formOcrId)
                Else
                    Throw New Exception("OCR problem with oGdPictureOCR.SetImage. STAT: " + oGdPictureOCR.GetStat().ToString())
                End If
            Else
                Throw New Exception("OCR problem with AddLanguage method gdPicStatus. STAT: " + gdPicStatus.ToString())
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub