Помогите разобраться с готовым скриптом(OCR c MODI)

[modnik]

Это ссылка на топик на оф сайте. Там идёт обсуждение на английском
http://www.autoitscript.com/forum/index.php?s=f0b120241c1a882faa8b49cc20247dc5&showtopic=50608&st=0


Он у меня сначала выдавал много ошибок но теперь выдаёт одну. Там Мр. Креатор спрашивал про файл который нужно заранее заготовить, я сделал его, но он только как бы открылся в программе(пустой белый рисунок).
Как можно настроить крипт на работу?
Вот сам срипт.

; http://msdn2.microsoft.com/en-us/library/aa202819(office.11).aspx
#include <GUIConstants.au3>
#include <Array.au3>

Dim $miDoc, $Doc
Dim $str
Dim $oWord
Dim $sArray[500]

Const $miLANG_CZECH = 5
Const $miLANG_DANISH = 6
Const $miLANG_DUTCH = 19
Const $miLANG_ENGLISH = 9
Const $miLANG_FINNISH = 11
Const $miLANG_FRENCH = 12
Const $miLANG_GERMAN = 7
Const $miLANG_GREEK = 8
Const $miLANG_HUNGARIAN = 14
Const $miLANG_ITALIAN = 16
Const $miLANG_JAPANESE = 17
Const $miLANG_KOREAN = 18
Const $miLANG_NORWEGIAN = 20
Const $miLANG_POLISH = 21
Const $miLANG_PORTUGUESE = 22
Const $miLANG_RUSSIAN = 25
Const $miLANG_SPANISH = 10
Const $miLANG_SWEDISH = 29
Const $miLANG_TURKISH = 31
Const $miLANG_SYSDEFAULT = 2048
Const $miLANG_CHINESE_SIMPLIFIED = 2052
Const $miLANG_CHINESE_TRADITIONAL = 1028

; Initialize error handler 
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

$miDoc = ObjCreate("MODI.Document")
$miDocView = ObjCreate("MiDocViewer.MiDocView")

$Viewer = GUICreate ( "Embedded MODI Viewer", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , _ 
                    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)


;Creates an ActiveX Control in the GUI.
$GUIActiveX = GUICtrlCreateObj ($miDocView, -1, -1, 640, 580)
GUICtrlSetResizing ($Viewer, $GUI_DOCKAUTO)


$miDoc.Create("C:\_\Apps\AutoIT3\COM\MODI\declaration.tif")
$miDoc.Ocr($miLANG_ENGLISH, True, False)

; Show GUI
GUISetState ()

$MiDocView.Document = $miDoc
$MiDocView.SetScale (0.75, 0.75)


While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then    ExitLoop
Wend



$i = 0

For $oWord in $miDoc.Images(0).Layout.Words

    $str = $str & $oWord.text & @CrLf
        ConsoleWrite($oWord.text & @CRLF)
    $sArray [$i] = $oWord.text
    $i += 1
Next

_ArrayDisplay($sArray,"OCR Result")



;MsgBox(0,"",$miDocView.FileName)

;------------------------------ This is a COM Error handler --------------------------------
Func MyErrFunc()
  $HexNumber=hex($oMyError.number,8)
  Msgbox(0,"COM Error Test","We intercepted a COM Error !"       & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext _
            )
  SetError(1)  ; to check for after this function returns
Endfunc

Добавлено:

Сообщение автоматически объединено: 6 Мар 2010

http://www.autoitscript.com/forum/index.php?showtopic=80836


Вот, нашёл удф получше, но нажимая alt+q ничего не проиходит


Добавлено:

Сообщение автоматически объединено: 6 Мар 2010

вот теперь всё работает! Как всегда проблема с раскладко!Можно ли ка книбудь улучшить качество распознования?

 

[kron]

Как я понимаю ругается сюда
$miDoc.Ocr(9, True, True)
Во первых поставь задержку перед этой строкой. Ну и проверь установлен ли у тебя Microsoft Office Document Image

Я использую несколько иное пока, оно все еще изредка выкидывает ошибку, она связана с отсутствием текста на картинке для распознования. Как сделать так чтобы скрипт не вылетал от этого вообще пока не нашел. Но покрайней мере, сейчас она выскакивает гораздо реже, уже прихожу к мысли, что проще написать второй скрипт, который бы следил появление этого окна и перезапускал скрипт.