OCR again...

[hsoltau]

hi ,

iam reading all the posts about screen capturing and ocr, but still i am a little bit lost...

i have this sofar (credits to the developers)

#include <ScreenCapture.au3>
WinActivate("CwApi")


; Capture region
$file= _ScreenCapture_Capture(@ScriptDir & "\GDIPlus_Image2.bmp", 50, 68, 150, 85)

this gives me a bitmap with an ID of Patient Master Index, i like to have it in a variable i.e. $id

i have to screen capture because its a java application ...

so, what have i to do wiht this tiny image to get the text of it ???

thanks in advance and have a nice day...

Henning

[whim]

Not into OCR myself, but have you seen this:

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

[hsoltau]

thanks for posting whim, but yes ive seen this...

interesting stuff but way to much code to understand for me and i am not able to use it for my task...

i now have tried with this MODI stuff which is used by a script from ptrex (i think) and trids script

expandcollapse popup

;
;
;   minicap_au3.exe .. automation of minicap.exe (screen capture commandline utility)
;   -> http://www.softpedia.com/get/Multimedia/Gr...e/MiniCap.shtml
;
Global $oMyError = ObjEvent("AutoIt.Error","_OCRErrFunc")

;Dependencies
   ;FileInstall( "D:\_#WWW\MiniCap - 1.08.02\MiniCap\MiniCap.exe", @SYSTEMDIR & "\" )

;Wait for the window so that we capture it 
    $sTargetImage = "D:\Autoitscripts\Krams\cwapiIDscan\GDIPlus_Image2.jpg"
    $sTargetTitle = "Untitled - Notepad"
   ;WinWaitActive( $sTargetTitle )
    
#cs
--------------------------------------------------------------------------------
;Capture the target by PID
    $nPID = WinGetProcess( $sTargetTitle )
    $sSwitches = ' -save "' & $sTargetImage & '"'
    $sSwitches &= ' -capturepid ' & $nPID 
    $sSwitches &= ' -exit'
    RunWait( @COMSPEC & ' /c minicap.exe ' & $sSwitches, "", @SW_HIDE)
--------------------------------------------------------------------------------
#ce


;Now lets do something with the saved image .. 
;.. like OCR it and see what it says
    $sTargetText = _OCRGetText( $sTargetImage )

;Display the results
    Msgbox( 0, @SCRIPTNAME, "Results of OCR:" & @LF & $sTargetText )

Func _OCRGetText( $Image )
Local $oDoc = ObjCreate("MODI.Document")
    $oDoc.Create($Image)
    If @ERROR Then Return SetError(1)
    $oDoc.Ocr(9, True, False)       ;ENGLISH = 9
    If @ERROR Then Return SetError(2)
    Return $oDoc.Images(0).Layout.Text
    $oDoc = 0
EndFunc


Func _OCRErrFunc()
  $HexNumber = hex($oMyError.number, 8)
  Msgbox(0, @SCRIPTNAME,"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

it starts but gives me a Com Error:

this is the jpg i like to OCR:

greetings

Henning

[hsoltau]

now,

i made a tif out of the jpeg and opened it with Microsoft Office Document Imaging program and tried to ocr it, but theres a message that it cannot find any text in the document ?

is the image to small, isnt it possible because there a only numbers in it ?

i am stuck...

Henning

[MrCreatoR]

The image probably is too small. I get the same error with this image, but woth other images all recognized correctly.

[hsoltau]

yep, you are right...

i just found the comment from smoke n on the REAL OCR topic and made my jpg screenshot a little bigger...

and tada: it works

now i have to get rid of the characters i dont need or learn how to search through the array, cause all i need is the id...

or is it possible to make the canvas of the small image bigger ???

thanks for helping, this is great because now i am able to grab alot of stuff of this java window i am scanning...

bye

Henning

[hsoltau]

hi again,

this modi ocr has problems with recognizing 0 and 8, its mixing these 2 numbers sometimes...

what possibilities do i have to get better ocr results, should i zoom the image (how with autoit) or change background color (how with autoit) ?

any suggestions are welcome...

Henning

[frankzappa]

I use an external exec to convert the JPG files to text with a free soft called GOCR. Just google "gocr voice" and you'll find the thing.

cheers

[Oldschool]

The most accurate OCR engine for text is called Tesseract.

code.google.com/p/tesseract-ocr/

If your text is small, you will have to resize the images using GDIPlus.

This engine does a stellar job on everything above 8pt.

[Oldschool]

Here is an example:

$path = 'C:\Documents and Settings\User2\tesseract-2.01'
Run(@ComSpec  &" /c " & 'tesseract phototest.tif phototest', $path, @SW_HIDE)
$Text = FileRead($path&'\phototest.txt')
MsgBox(0, "", $Text)

[kennedyzor]

Hello i'm new and i'll talk to anyone so "hello" to you all...I like this forum very much and I wish there are much more postings here because I would like to exchange as much information as I can.Hope everyone is doing great.

Here my question is how to convert a image bitmap into jpeg ?

data conversion services

[seangriffin]

Here is an example:

$path = 'C:\Documents and Settings\User2\tesseract-2.01'
Run(@ComSpec  &" /c " & 'tesseract phototest.tif phototest', $path, @SW_HIDE)
$Text = FileRead($path&'\phototest.txt')
MsgBox(0, "", $Text)

I agree with you Oldschool.

In fact I was so impressed with Tesseract that I began developing a UDF for it. Click on this link to have a look -> Tesseract UDF.

Edited February 16, 2009 by seangriffin