Как справиться с ошибкой сканирования OCR в VB6

Question

Im пытается получить всю информацию, которую я могу получить, из изображенного документа. Которая включает рукописные записи в некоторой части. При сканировании этого им, когда мой экран замораживается, как ад, и чем дает ошибку, которая говорит, что VB6 перестала работать ... Я не могу найти, что именно вызывает это, поэтому я просто хочу преодолеть это, если есть ошибка или ошибка в OCR. К сожалению, еще не удалось. Вот что я сделал до сих пор:

Dim Mdoc As MODI.Document 
Dim Mlay As MODI.Layout 
Dim fso As Scripting.FileSystemObject 
Dim logfile As Object 

Public Function ScanMan(ByVal Name As String, ByVal Path As String) As String 
    Set Mdoc = New MODI.Document 
    'Set Mdoc = CreateObject("MODI.Document") 
    Set fso = New Scripting.FileSystemObject 

    DoEvents 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    ''''''''''''''''''' Create OCRLog File ''''''''''''''''''' 
    OCRPath = App.Path & "\OCR Results Log\" 
    OCRName = Str(DateTime.Date) & " OCRresults" 
    If fso.FolderExists(OCRPath) = False Then 
     fso.CreateFolder (OCRPath) 
    End If 
    If fso.FileExists(OCRPath & OCRName & ".txt") = False Then 
     fso.CreateTextFile OCRPath & OCRName & ".txt" 
    End If 
    Set logfile = fso.OpenTextFile(OCRPath & OCRName & ".txt", ForAppending) 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 

    On Error GoTo OCRErr 
    DoEvents 
    Mdoc.Create Path & Name 
    Mimg = Mdoc.Images(0).OCR(miLANG_ENGLISH, True, True) 
    Set Mlay = Mdoc.Images(0).Layout 
    logfile.WriteLine Mlay.Text 

    ScanMan = Mlay.Text 

    Mdoc.Close False 

    Set Mlay = Nothing 
    Set Mdoc = Nothing 

OCRErr: 
    logfile.WriteLine "OCR given (" & Err.Number & ") numbered (" & Err.Description & ") error." 
    logfile.Close 
End Function 

Как я могу справиться с этой проблемой замораживания?

Answer 1

Попробуйте это:

Mdoc.Images(0).OCR 
logfile.Write Mdoc.Images(0).Layout.Text 

---

Надеется, что это помогает.