OCR für Arme, und ich bin noch ärmer

[ken_jones]

Zitat von Laufi:

Hallo!
Das freut mich dass es dir gefällt Dafür habe ich rasch was extra für dich geschrieben

Cool Laufi,
hier noch 2 Zeilen damit es auch unter Vista mit Delphi 2009 läuft:

Delphi-Quellcode:

unit Main;
...
procedure TSimpleOCR.Init(Font: TFont);
var
  Alphabet: string;
  ch: Char;
begin
  for ch := #32 to #126 do // <-- Edit 1: statt #255
    Alphabet:= Alphabet + ch;
  Init(Alphabet, Font);
end;

...

function TSimpleOCR.BitmapFromText(const S: string): TBitmap;
begin
  Result:= TBitmap.Create;
  Result.PixelFormat := pf1bit; // <-- Edit 2: Zeile eingefügt -> Cleartype/Antialiasing aus
  Result.Canvas.Font:= FFont;
  with Result.Canvas.TextExtent(S) do
    Result.SetSize(cx, cy);
  Result.Canvas.TextOut(0, 0, S);
end;

...