Jump to content

bryhall2

Members
  • Posts

    2
  • Joined

  • Last visited

bryhall2's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Also, I have tried modifying the scale back to 1. I have also tried taking my screen resolution and subtracting x/y coordinates for the bottom right coordinates. Neither options worked.
  2. I have been working with these scripts for a few days now, and have been running into the same problem. I am hoping someone can assist. 1. The demo's are gone - unable to access those websites as another poster said. My goal is to use the mouse clicks to determine the areas that I want the OCR to read. I created a script to determine the location of the mouse pointer, to provide me with the x/y coordinate when clicked and when released. The area that is then covered between the click and release needs to be passed on into the Tesseract for OCR. When I set the top left coordinates and leave the bottom right coordinates blank, it seems to respond as I would expect. When I start changing the bottom right coordinates from 0, the top left coordinates seem to be changing and things are getting cut off. I can not figure out why indenting right and bottom, are modifying the indent on top and left. In my example, I am using screen capture as I receive erorr messages when trying to use windowcapture. My envrionment is 1440x900. #Include <Tesseract.au3> #include <Misc.au3> ;~ Detect Mouse click and store position to variable $pos1. Once click detected, go to Release() to check for release of click Func Press() While 1 if _ispressed("01") Then $pos1 = "" $pos1 = MouseGetPos() sleep (50) Release() else sleep(1) endif WEnd EndFunc ;~ Detect mouse release and store to variable $pos2. Func Release() while 1 if not _ispressed("01") then $pos2 = "" $pos2 = MouseGetPos() sleep (50) Output2() Else sleep(1) EndIf WEnd EndFunc Func Output2() ;~ I was using this area to make modifications to my position, for testing. $pos1x=$pos1[0] $pos1y=$pos1[1] $pos2x=$pos2[0] $pos2y=$pos2[1] ;~ msgbox(0,"test",$pos1x) $textb = _TesseractScreenCapture(0,"",1,2,$pos1x,$pos1y,$pos2x,$pos2y,1) MsgBox(0,"Text is:","for ScreenCapture with cleanup:" & $textb) EndFunc
×
×
  • Create New...