Schrifterkennung

[ts230]

Hallo,
ich möchte in mein Programm eine Schrifterkennung in gescanntem PNG's haben.
Also nicht Menschenschrift sondern eine Computerschrift(Arial,Purissa e.t.c.) und den erkannten Text in einem Memo-Feld anzeigen.
Ich hoffe jemand kann mir da helfen.

[theo]

Externes Programm aufrufen. Unter Linux gocr oder ocrad. K.a. was es für Windows gibt.

[ts230]

Ja aber ich meine das wenn ich eine Seite voll "bla" hab,dass dass dann ine ein TMemo geschrieben wird.

[ts230]

Externes Programm aufrufen. Unter Linux gocr oder ocrad. K.a. was es für Windows gibt.

Die sind bei mir nicht dabei.(Ubuntu 8.10)

[creed steiger]

Tesseract nicht zu vergessen

[theo]

Tesseract nicht zu vergessen

Hast du das getestet?
http://code.google.com/p/tesseract-ocr/" onclick="window.open(this.href);return false;

[creed steiger]

Hast du das getestet?
http://code.google.com/p/tesseract-ocr/" onclick="window.open(this.href);return false;

ich spiel grad mit diesen Beispielen rum:

http://www.mscs.dal.ca/~selinger/ocr-test/" onclick="window.open(this.href);return false;

Edit:
Installation als One Click Install von hier:
http://download.opensuse.org/repositori ... 11.0/i586/" onclick="window.open(this.href);return false;

[Christian]

gocr gibts auch für windows

Die sind bei mir nicht dabei.(Ubuntu 8.10)

Du willst komplexe Syteme programmieren aber kannst keine Software installieren ?

[theo]

Edit:
Installation als One Click Install von hier:

Ha, hab ich vor ein paar Minuten auch so gemacht.

Funktionierende 8bit Tif's kannst du mit OPBitmap erstellen:

Code: Alles auswählen

uses opbitmapformats, opbitmap, Process
 
procedure TForm1.Button1Click(Sender: TObject);
var Op:TOPPicture;
  AProcess: TProcess;
begin
  Op:=TOPPicture.Create;
  Op.LoadFromFile('/home/theo/ocrtest.bmp');
  Op.Bitmap.PixelFormat:=pf8bit;
  Op.SaveToFile('/home/theo/locrtest.tif');
  Op.free;
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := 'tesseract /home/theo/locrtest.tif /home/theo/proc';
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
  if FileExists('/home/theo/proc.txt') then Memo1.Lines.LoadFromFile('/home/theo/proc.txt');
end;

[mschnell]

Ja aber ich meine das wenn ich eine Seite voll "bla" hab,dass dass dann ine ein TMemo geschrieben wird.

Wenn Du kein Programm findest, das als "filter" gestartet werden kann (, d.h stdin als inoput und stdout als output, sollte eigentlich jedes "ordentliche" Linunx-Programm können), kannst Du programmatisch zwei "fifos" in /tmp erzeugen, in das eine Dein Bild 'reinschieben, das Programm mit dem einen als input und dem anderen als output starten und nachher den Text aus dem anderen herauslesen. (named queues geht sicher auch, da musst Du aber mehr programmieren, weil sie selber keine Daten speichern und Dein Programm sie parallel zur Ausführung des anderen Programms bedienen muss.

-Michael

[creed steiger]

Ha, hab ich vor ein paar Minuten auch so gemacht.

Funktionierende 8bit Tif's kannst du mit OPBitmap erstellen:

Code: Alles auswählen

uses opbitmapformats, opbitmap, Process
 
procedure TForm1.Button1Click(Sender: TObject);
var Op:TOPPicture;
  AProcess: TProcess;
begin
  Op:=TOPPicture.Create;
  Op.LoadFromFile('/home/theo/ocrtest.bmp');
  Op.Bitmap.PixelFormat:=pf8bit;
  Op.SaveToFile('/home/theo/locrtest.tif');
  Op.free;
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := 'tesseract /home/theo/locrtest.tif /home/theo/proc';
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
  if FileExists('/home/theo/proc.txt') then Memo1.Lines.LoadFromFile('/home/theo/proc.txt');
end;

Das ist so einfach,eigentlich sollte man die Idee für ein Frontend weiterführen.

[theo]

eigentlich sollte man die Idee für ein Frontend weiterführen.

Das wäre wohl machbar.
Man müsste halt die Tesseract Optionen studieren und evtl. im Frontend das Bild vorbereiten.
Wie ich deinem Link entnommen habe, hat Tesseract mit Farbbildern Probleme.
Das könnte man alles vorher hinbiegen. OpBitmap eignet sich ziemlich gut für sowas.
Im OpBitmap ImgLibs Verzeichnis gibt es eine Datei opimglib.pas, dort ist ein kleiner Anfang gemacht für Bildbearbeitung.
Die könnte man um beliebige vorhandene Delphi Codes erweitern, z.B. Kontrast erhöhen, Gamma Korrektur etc. was man halt braucht.

[ts230]

Edit:
Installation als One Click Install von hier:

Ha, hab ich vor ein paar Minuten auch so gemacht.

Funktionierende 8bit Tif's kannst du mit OPBitmap erstellen:

Code: Alles auswählen

uses opbitmapformats, opbitmap, Process
 
procedure TForm1.Button1Click(Sender: TObject);
var Op:TOPPicture;
  AProcess: TProcess;
begin
  Op:=TOPPicture.Create;
  Op.LoadFromFile('/home/theo/ocrtest.bmp');
  Op.Bitmap.PixelFormat:=pf8bit;
  Op.SaveToFile('/home/theo/locrtest.tif');
  Op.free;
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := 'tesseract /home/theo/locrtest.tif /home/theo/proc';
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
  if FileExists('/home/theo/proc.txt') then Memo1.Lines.LoadFromFile('/home/theo/proc.txt');
end;

Mein Lazarus kennt die "opbitmapformats, opbitmap"-units nicht.
Weiß jemand wo die liegt?

[monta]

Benutz doch bitte mal die suche hier...solche Kleinigkeiten sollten sich da dehr leicht lösen lassen

[creed steiger]

eigentlich sollte man die Idee für ein Frontend weiterführen.

Das wäre wohl machbar.
Man müsste halt die Tesseract Optionen studieren und evtl. im Frontend das Bild vorbereiten.

Die Optionen werden über ein Konfig-File übergeben.
Viel mehr Docu hab ich leider nicht gefunden.
Ich werd mir das mal anschaun.