Do you know a better ocr or do i need changue my VB function?
THANKS BY ADVANCE
Code: Select all
VBStart
Function DoOCR(bitmapfile)
Dim miDoc
Dim miLayout
Dim stringOut
set miDoc=CreateObject("MODI.Document")
miDoc.Create (bitmapfile)
' Perform OCR.
'You can change the mousepointer here to an hourglass or something.
miDoc.Images(0).OCR
'Change the mouse back to normal default.
set miLayout = miDoc.Images(0).Layout
stringOut=miLayout.Text
'MsgBox(stringOut)
DoOCR = stringOut
Set miLayout = Nothing
Set miDoc = Nothing
End Function
VBEND
Dialog>Dialog
Caption=OCR
Width=649
Height=338
Top=128
Left=267
Button=Capture,231,265,75,25,1
Button=Exit,335,265,75,25,2
Memo=msMemo1,344,17,282,224,
Image=,21,17,282,224,msImage1,0
EndDialog>Dialog
srt>ocr
WaitKeyDown>vk17
GetCursorPos>X1,Y1
LibFunc>kernel32,Beep,r,300,50
Wait>0.5
WaitKeyDown>vk17
GetCursorPos>X2,Y2
LibFunc>kernel32,Beep,r,300,50
ScreenCapture>X1,Y1,X2,Y2,%SCRIPT_DIR%\capture.bmp
VBeval>Doocr("%SCRIPT_DIR%\capture.bmp"),text
END>ocr
label>start
show>dialog
label>dialogloop
GetDialogAction>dialog,r
if>r=1
CloseDialog>dialog
gosub>ocr
Let>flag=1
goto>start
endif
if>r=2,exit
if>flag=1
Let>dialog.msImage1=%SCRIPT_DIR%\capture.bmp
Let>dialog.msMemo1=text
Let>flag=0
ResetDialogAction>dialog
endif
Wait>0.1
goto>dialogloop
label>exit
exit