Janilabo Posted May 22, 2012 Share Posted May 22, 2012 (edited) For getting text from X, Y coordinates. This function contains a workaround/solution for SCAR's OCR limit problem/bug (http://bug.scar-divi.com/view.php?id=60). GetTextAt [scar]function GetTextAt(x, y, Tolerance, Chars, MinSpacing, MaxSpacing, TextColor, TextLength: Integer; Strict: Boolean; Range: TCharRange): string; var e, l, t: Integer; b: TSCARBitmap; s: string; begin if (TextLength < 1) then Exit; t := TextLength; if (t > 9) then t := 10; while (l < TextLength) do begin s := GetTextAtEx((x + e), y, Tolerance, Chars, False, False, MinSpacing, MaxSpacing, TextColor, t, Strict, Range); Result := (Result + s); l := (l + Length(s)); if ((l + t) > TextLength) then t := (TextLength - l); b := CreateBitmapFromText(s, Chars, TextColor); e := (e + b.Width); b.Free; end; end;[/scar] Edited September 9, 2012 by Janilabo Quote Link to comment Share on other sites More sharing options...