diff --git a/Projects/OCRBench/project1.lpi b/Projects/OCRBench/project1.lpi index 1b00173..cb26d54 100644 --- a/Projects/OCRBench/project1.lpi +++ b/Projects/OCRBench/project1.lpi @@ -44,8 +44,8 @@ - - + + @@ -82,8 +82,8 @@ - - + + @@ -161,7 +161,7 @@ - + @@ -278,6 +278,10 @@ + + + + diff --git a/Projects/OCRBench/unit1.pas b/Projects/OCRBench/unit1.pas index f289b17..79a9068 100644 --- a/Projects/OCRBench/unit1.pas +++ b/Projects/OCRBench/unit1.pas @@ -82,7 +82,7 @@ begin // DS + .. + DS because InitOCR wants the directory of the Fonts, not UpChars // only. - C.MOCR.InitTOCR(FontPath, Shadow); + C.MOCR.InitTOCR(FontPath + DS, Shadow); {$IFDEF OCRDEBUG} t:=gettickcount; @@ -125,7 +125,7 @@ end; procedure TForm1.FormCreate(Sender: TObject); begin {BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp'; - FontPath := '/home/merlijn/Programs/mufasa/Fonts/'; } + FontPath := '/home/merlijn/Programs/mufasa/Fonts/';} end; procedure TForm1.PathButtonClick(Sender: TObject); diff --git a/Units/MMLCore/ocr.pas b/Units/MMLCore/ocr.pas index d035252..c94652f 100644 --- a/Units/MMLCore/ocr.pas +++ b/Units/MMLCore/ocr.pas @@ -357,7 +357,7 @@ begin bmp.CopyClientToBitmap(TClient(Client).MWindow, False, 1{0},1, sx, sy, sx + w - 1, sy + h - 1); {$IFDEF OCRSAVEBITMAP} - bmp.SaveToFile('/tmp/ocrinit.bmp'); + bmp.SaveToFile(OCRDebugPath + 'ocrinit.bmp'); {$ENDIF} {$IFDEF OCRDEBUG}