moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 01:02:17 -05:00
Code Issues Releases Wiki Activity

Made a different RS Text Extractor. I think it works better in most cases,

Browse Source 
but it needs some more work. I need to write a floodfill to remove noise.

Apart from that, < 5ms for rs_getuptext isn't bad.



git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@182 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-03 12:57:39 +00:00
parent 7fbef67005
commit 751d04436a
6 changed files with 193 additions and 157 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Projects/MufasaTests/project1.lpi
View File

@ -35,8 +35,8 @@
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="71" Y="93"/> <CursorPos X="63" Y="83"/>
<TopLine Value="81"/> <TopLine Value="71"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -106,8 +106,8 @@
<Unit9> <Unit9>
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="38" Y="659"/> <CursorPos X="11" Y="361"/>
<TopLine Value="645"/> <TopLine Value="355"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>

16
Projects/MufasaTests/project1.lpr
View File

@ -80,22 +80,22 @@ begin
bmp := TMufasaBitmap.Create; bmp := TMufasaBitmap.Create;
{$WARNING Change This Path!} {$WARNING Change This Path!}
//bmp.LoadFromFile('/home/merlijn/Programs/mufasa/UpText/text5.bmp'); bmp.LoadFromFile('/home/merlijn/Programs/mufasa/UpText/text1.bmp');
//bmp.LoadFromFile('/home/merlijn/Programs/mufasa/output.bmp'); //bmp.LoadFromFile('/home/merlijn/Programs/mufasa/output.bmp');
writeln(inttostr(bmp.Width) + ', ' + inttostr(bmp.height)); writeln(inttostr(bmp.Width) + ', ' + inttostr(bmp.height));
C.MWindow.SetTarget(x.TWindow(94371927)); {C.MWindow.SetTarget(x.TWindow(94371927)); }
//C.MWindow.SetTarget(bmp); C.MWindow.SetTarget(bmp);
{ Time := GetTickCount; Time := GetTickCount;
for i := 0 to 100 do for i := 0 to 100 do
C.MOCR.GetUpTextAt(0,0); C.MOCR.GetUpTextAt(0,0);
writeln('Time: ' + FloatToStr(((GetTickCount - Time) / (i + 1)))); } writeln('Time: ' + FloatToStr(((GetTickCount - Time) / (i + 1))));
writeln(C.MOCR.GetUpTextAt(7,7)); writeln(C.MOCR.GetUpTextAt(0,0));
C.Free; C.Free;
//bmp.OnDestroy:=nil; bmp.OnDestroy:=nil;
//bmp.Free; bmp.Free;
// stop program loop // stop program loop

4
Projects/SAMufasaGUI/framescript.lfm
View File

@ -6,8 +6,8 @@ object ScriptFrame: TScriptFrame
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
TabOrder = 0 TabOrder = 0
DesignLeft = 775 DesignLeft = 826
DesignTop = 204 DesignTop = 355
object SynEdit: TSynEdit object SynEdit: TSynEdit
Left = 0 Left = 0
Height = 300 Height = 300

2
Projects/SAMufasaGUI/framescript.lrs
View File

@ -1,7 +1,7 @@
LazarusResources.Add('TScriptFrame','FORMDATA',[ LazarusResources.Add('TScriptFrame','FORMDATA',[
'TPF0'#12'TScriptFrame'#11'ScriptFrame'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2 'TPF0'#12'TScriptFrame'#11'ScriptFrame'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2
+#0#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'TabOrd' +#0#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'TabOrd'
+'er'#2#0#10'DesignLeft'#3#7#3#9'DesignTop'#3#204#0#0#8'TSynEdit'#7'SynEdit'#4 +'er'#2#0#10'DesignLeft'#3':'#3#9'DesignTop'#3'c'#1#0#8'TSynEdit'#7'SynEdit'#4
+'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5'Align'#7#8'alClien' +'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5'Align'#7#8'alClien'
+'t'#11'Font.Height'#2#243#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7 +'t'#11'Font.Height'#2#243#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7
+'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'ParentColor'#8#10'Paren' +'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'ParentColor'#8#10'Paren'

282
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="5"/> <ActiveEditorIndexAtStart Value="6"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -168,8 +168,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="58" Y="265"/> <CursorPos X="75" Y="255"/>
<TopLine Value="250"/> <TopLine Value="255"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -225,9 +225,9 @@
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="37" Y="33"/> <CursorPos X="26" Y="44"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<EditorIndex Value="6"/> <EditorIndex Value="7"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit26> </Unit26>
@ -258,8 +258,8 @@
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Window"/> <UnitName Value="Window"/>
<CursorPos X="40" Y="363"/> <CursorPos X="39" Y="312"/>
<TopLine Value="348"/> <TopLine Value="306"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -274,26 +274,30 @@
<Unit32> <Unit32>
<Filename Value="../../Units/MMLCore/windowutil.pas"/> <Filename Value="../../Units/MMLCore/windowutil.pas"/>
<UnitName Value="windowutil"/> <UnitName Value="windowutil"/>
<CursorPos X="86" Y="19"/> <CursorPos X="29" Y="29"/>
<TopLine Value="1"/> <TopLine Value="24"/>
<UsageCount Value="31"/> <EditorIndex Value="3"/>
<UsageCount Value="33"/>
<Loaded Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../../Units/MMLCore/input.pas"/> <Filename Value="../../Units/MMLCore/input.pas"/>
<UnitName Value="Input"/> <UnitName Value="Input"/>
<CursorPos X="3" Y="176"/> <CursorPos X="19" Y="229"/>
<TopLine Value="145"/> <TopLine Value="225"/>
<EditorIndex Value="8"/> <EditorIndex Value="10"/>
<UsageCount Value="54"/> <UsageCount Value="57"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../Units/MMLCore/finder.pas"/> <Filename Value="../../Units/MMLCore/finder.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="finder"/> <UnitName Value="finder"/>
<CursorPos X="49" Y="1185"/> <CursorPos X="50" Y="19"/>
<TopLine Value="1172"/> <TopLine Value="19"/>
<EditorIndex Value="8"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../../lazarus/lcl/graphics.pp"/> <Filename Value="../../../lazarus/lcl/graphics.pp"/>
@ -315,8 +319,8 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="29" Y="349"/> <CursorPos X="29" Y="349"/>
<TopLine Value="332"/> <TopLine Value="318"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit37> </Unit37>
@ -385,8 +389,8 @@
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<CursorPos X="48" Y="96"/> <CursorPos X="48" Y="96"/>
<TopLine Value="87"/> <TopLine Value="87"/>
<EditorIndex Value="9"/> <EditorIndex Value="11"/>
<UsageCount Value="76"/> <UsageCount Value="79"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
@ -405,9 +409,9 @@
<Filename Value="../../Units/MMLCore/bitmaps.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="bitmaps"/> <UnitName Value="bitmaps"/>
<CursorPos X="29" Y="485"/> <CursorPos X="44" Y="692"/>
<TopLine Value="469"/> <TopLine Value="666"/>
<EditorIndex Value="7"/> <EditorIndex Value="9"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit50> </Unit50>
@ -580,8 +584,8 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="10"/> <EditorIndex Value="12"/>
<UsageCount Value="20"/> <UsageCount Value="23"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit76> </Unit76>
<Unit77> <Unit77>
@ -756,7 +760,7 @@
<UnitName Value="windowselector"/> <UnitName Value="windowselector"/>
<CursorPos X="38" Y="161"/> <CursorPos X="38" Y="161"/>
<TopLine Value="135"/> <TopLine Value="135"/>
<UsageCount Value="199"/> <UsageCount Value="201"/>
</Unit101> </Unit101>
<Unit102> <Unit102>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@ -790,7 +794,7 @@
<UnitName Value="dtmutil"/> <UnitName Value="dtmutil"/>
<CursorPos X="32" Y="18"/> <CursorPos X="32" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="186"/> <UsageCount Value="191"/>
</Unit106> </Unit106>
<Unit107> <Unit107>
<Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/>
@ -832,7 +836,7 @@
<UnitName Value="mmath"/> <UnitName Value="mmath"/>
<CursorPos X="32" Y="42"/> <CursorPos X="32" Y="42"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<UsageCount Value="166"/> <UsageCount Value="171"/>
</Unit112> </Unit112>
<Unit113> <Unit113>
<Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/> <Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/>
@ -866,10 +870,10 @@
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="11" Y="657"/> <CursorPos X="36" Y="692"/>
<TopLine Value="655"/> <TopLine Value="674"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<UsageCount Value="136"/> <UsageCount Value="141"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit117> </Unit117>
<Unit118> <Unit118>
@ -885,7 +889,7 @@
<UnitName Value="project"/> <UnitName Value="project"/>
<CursorPos X="46" Y="15"/> <CursorPos X="46" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="133"/> <UsageCount Value="138"/>
</Unit119> </Unit119>
<Unit120> <Unit120>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/>
@ -999,7 +1003,7 @@
<UnitName Value="web"/> <UnitName Value="web"/>
<CursorPos X="90" Y="16"/> <CursorPos X="90" Y="16"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="61"/> <UsageCount Value="66"/>
</Unit137> </Unit137>
<Unit138> <Unit138>
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/> <Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
@ -1200,8 +1204,8 @@
<UnitName Value="framescript"/> <UnitName Value="framescript"/>
<CursorPos X="24" Y="32"/> <CursorPos X="24" Y="32"/>
<TopLine Value="32"/> <TopLine Value="32"/>
<EditorIndex Value="11"/> <EditorIndex Value="13"/>
<UsageCount Value="54"/> <UsageCount Value="59"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit162> </Unit162>
<Unit163> <Unit163>
@ -1424,8 +1428,8 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/>
<CursorPos X="33" Y="4"/> <CursorPos X="33" Y="4"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="4"/> <EditorIndex Value="5"/>
<UsageCount Value="11"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit196> </Unit196>
<Unit197> <Unit197>
@ -1435,123 +1439,127 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit197> </Unit197>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="345" Column="28" TopLine="325"/> <Caret Line="669" Column="45" TopLine="654"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="374" Column="23" TopLine="343"/> <Caret Line="152" Column="31" TopLine="146"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="91" Column="96" TopLine="80"/> <Caret Line="247" Column="21" TopLine="232"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="203" Column="23" TopLine="184"/> <Caret Line="264" Column="7" TopLine="242"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="379" Column="26" TopLine="372"/> <Caret Line="265" Column="18" TopLine="250"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="testunit.pas"/>
<Caret Line="437" Column="82" TopLine="426"/>
</Position6>
<Position7>
<Filename Value="testunit.pas"/>
<Caret Line="17" Column="76" TopLine="9"/>
</Position7>
<Position8>
<Filename Value="testunit.pas"/>
<Caret Line="137" Column="31" TopLine="118"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="193" Column="21" TopLine="177"/>
</Position9>
<Position10>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/>
<Caret Line="4" Column="21" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="33" Column="37" TopLine="31"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="7" Column="38" TopLine="1"/>
</Position12>
<Position13>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="62" Column="33" TopLine="47"/>
</Position13>
<Position14>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="663" Column="44" TopLine="645"/>
</Position14>
<Position15>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="662" Column="1" TopLine="645"/>
</Position15>
<Position16>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="661" Column="1" TopLine="645"/>
</Position16>
<Position17>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/>
<Caret Line="4" Column="32" TopLine="1"/>
</Position17>
<Position18>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="484" Column="45" TopLine="469"/>
</Position18>
<Position19>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="659" Column="43" TopLine="645"/>
</Position19>
<Position20>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="671" Column="19" TopLine="648"/>
</Position20>
<Position21>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="38" Column="39" TopLine="26"/>
</Position21>
<Position22>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="16" Column="70" TopLine="1"/>
</Position22>
<Position23>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="669" Column="45" TopLine="654"/>
</Position23>
<Position24>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="152" Column="31" TopLine="146"/>
</Position24>
<Position25>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="247" Column="21" TopLine="232"/>
</Position25>
<Position26>
<Filename Value="testunit.pas"/>
<Caret Line="264" Column="7" TopLine="242"/>
</Position26>
<Position27>
<Filename Value="testunit.pas"/>
<Caret Line="265" Column="18" TopLine="250"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="158" Column="50" TopLine="142"/> <Caret Line="158" Column="50" TopLine="142"/>
</Position28> </Position6>
<Position29> <Position7>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="246" Column="21" TopLine="231"/> <Caret Line="246" Column="21" TopLine="231"/>
</Position7>
<Position8>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="67" Column="42" TopLine="55"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="491" Column="36" TopLine="479"/>
</Position9>
<Position10>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="48" Column="32" TopLine="33"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="49" Column="37" TopLine="33"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="72" Column="78" TopLine="57"/>
</Position12>
<Position13>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="130" Column="35" TopLine="115"/>
</Position13>
<Position14>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="132" Column="45" TopLine="115"/>
</Position14>
<Position15>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="262" Column="20" TopLine="247"/>
</Position15>
<Position16>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="264" Column="19" TopLine="247"/>
</Position16>
<Position17>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="313" Column="52" TopLine="297"/>
</Position17>
<Position18>
<Filename Value="../../Units/MMLCore/windowutil.pas"/>
<Caret Line="19" Column="38" TopLine="4"/>
</Position18>
<Position19>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="313" Column="43" TopLine="297"/>
</Position19>
<Position20>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="44" Column="26" TopLine="31"/>
</Position20>
<Position21>
<Filename Value="../../Units/MMLCore/finder.pas"/>
<Caret Line="58" Column="33" TopLine="39"/>
</Position21>
<Position22>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="673" Column="10" TopLine="656"/>
</Position22>
<Position23>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="74" Column="24" TopLine="59"/>
</Position23>
<Position24>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="758" Column="14" TopLine="748"/>
</Position24>
<Position25>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="74" Column="24" TopLine="62"/>
</Position25>
<Position26>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="673" Column="24" TopLine="656"/>
</Position26>
<Position27>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="70" Column="23" TopLine="55"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="71" Column="23" TopLine="55"/>
</Position28>
<Position29>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="671" Column="24" TopLine="666"/>
</Position29> </Position29>
<Position30>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="698" Column="13" TopLine="672"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

38
Units/MMLCore/ocr.pas
View File

@ -359,7 +359,6 @@ begin
upper:= -9001; //large negative upper:= -9001; //large negative
left:= -9001; //large negative left:= -9001; //large negative
x:= 0; x:= 0;
writeln('ocrDetect: w,h: ' +inttostr(w) + ', ' + inttostr(h));
while x < w do while x < w do
begin begin
empty:= true; empty:= true;
@ -648,9 +647,11 @@ function TMOCR.GetUpTextAt(atX, atY: integer): string;
var var
bmp: TMufasaBitmap; bmp: TMufasaBitmap;
n: TNormArray; n: TNormArray;
w,h,ww,hh: integer; p: prgb32;
w,h,ww,hh,len,i: integer;
begin begin
result := '';
TClient(Client).MWindow.GetDimensions(w, h); TClient(Client).MWindow.GetDimensions(w, h);
ww := 450; ww := 450;
@ -665,15 +666,42 @@ begin
bmp.SetSize(ww, hh); bmp.SetSize(ww, hh);
bmp.CopyClientToBitmap(TClient(Client).MWindow, False, atX, atY, atX + ww - 1, bmp.CopyClientToBitmap(TClient(Client).MWindow, False, atX, atY, atX + ww - 1,
atY + hh - 1); atY + hh - 1);
//bmp.SaveToFile('.' + DS + 'output.bmp');
bmp.Posterize(127);
//bmp.SaveToFile('.' + DS + 'posterize.bmp');
bmp.Contrast(127);
//bmp.SaveToFile('.' + DS + 'posterizecontrast.bmp');
{bmp.Brightness(-20);
bmp.SaveToFile('.' + DS + 'posterizecontrastbrightness.bmp'); }
{writeln('bmp.w / bmp.h: ' + inttostr(bmp.Width) + ', ' + inttostr(bmp.height)); {writeln('bmp.w / bmp.h: ' + inttostr(bmp.Width) + ', ' + inttostr(bmp.height));
writeln('wwhh: ' + inttostr(ww * hh)); writeln('wwhh: ' + inttostr(ww * hh));
writeln('widhei: ' + inttostr(bmp.width * bmp.height));} writeln('widhei: ' + inttostr(bmp.width * bmp.height));}
bmp.SaveToFile('.' + DS + 'output.bmp'); bmp.SaveToFile('.' + DS + 'final.bmp');
p := bmp.FData;
n := ExtractText(bmp.FData, bmp.Width, bmp.Height); len := ww * hh;
setlength(n, ww * hh);
for i := 0 to len - 1 do
begin
if((p^.R = 255) and (p^.B = 255) and (p^.G = 255)) //white
or((p^.R = 255) and (p^.B < 2) and (p^.G < 2)) //red
or((p^.R = 0) and (p^.B = 255) and (p^.G = 255)) //cyan
or((p^.R = 255) and (p^.B = 0) and (p^.G = 255)) //yellow
or((p^.R = 0) and (p^.B = 0) and (p^.G = 255)) then //green
n[i] := 1
else
n[i] := 0;
Inc(P);
end;
{ n := ExtractText(bmp.FData, bmp.Width, bmp.Height); }
{writeln('n: ' + inttostr(length(n))); } {writeln('n: ' + inttostr(length(n))); }
Result := ocrDetect(n, bmp.Width, bmp.Height, OCRData[0]); Result := ocrDetect(n, bmp.Width, bmp.Height, OCRData[0]);