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