SimpleOCR
Simple OCR engine to read text at static coordinates in "RuneScape"
- Quiet · last change 6-28-2018
- ★ 9 on GitHub
README
OSR-OCR
Simple OCR engine to read text at static coordinates in "RuneScape"
Usage:
The following line should be added to your script, or include, it's used to keep the OCR engine up to date with the scripts client.
function TSimpleOCR.Recognize(B:TBox; Filter:TCompareRules; MaxWalk:Int32=40): String; override;
begin
Self.ClientID := ExportImageTarget();
Result := Inherited(B, Filter, MaxWalk);
end;Now it's just a matter of loading up your font, and start recognizing text:
var
OCR:TSimpleOCR;
str:String;
filterRules:TCompareRules = [-1, 85, True, 55]; (* any color, 85 tolerance, Use shadow!, shadow max brightness: 55 *)
begin
OCR.Init(FontPath+'UpCharsEx');
str := OCR.Recognize(IntToBox(7,7,500,30), filterRules);
WriteLn(str);
end;Keep in mind that the engine expects pixel precision, so, TBox.x1, and specially TBox.y1 should be set perferectly. You will get the point if you tinker about with it ;)
A useful thing to familiarize yourself with is TCompareRules.
TCompareRules = packed record
Color, ColorMaxDiff: Int32; //color and tolerance
UseShadow: LongBool; //rely on shadow? if yes then we can safely ignore colors if wanted (color = -1)
ShadowMaxValue:Int32; //max brightness of the shadow (0..255)
Threshold: Int32; //we can use threshold instead tho to get it working with most colors.
ThreshInv: LongBool; //invert the threshold?
end;Notice that if the color is set to -1 either shadow, or Threshold must be defined.