I doubt you'll be able to get the findText function so I'd just work it off bitmaps which work incredibly well.
It's not a problem, really. Simba is now using Tesseract OCR.
Simba Code:
program new;
{$s+}
type
TDebug = (DEBUG, HEADER, SUB, FOOTER, LOG, HINT, WARNING, ERROR, FATAL);
{$s-}
procedure print(txt: string; debugType: TDebug = TDebug.DEBUG);// we need this to compile tesseract.simba without including the whole SRL
begin
end;
{$i SRL-6\lib\core\tesseract.simba}
function GetText(box :TBox) : string;
var TesFilter: TTesseractFilter;
begin
TesFilter := TTesseractFilter([4, 4, [False, 20, TM_Mean]]);
Result := Tesseract_GetText(box.x1, box.y1 , box.x2, box.y2, TesFilter);
end;
begin
writeln(GetText(IntToBox(383,356,564,377 )) );
end.
Code:
Compiled successfully in 530 ms.
Click the ’Bronze Scimitar’
Successfully executed.