image2data

Der Tech-Blog

...weitermachen, wo OCR aufhört

Basics - Einfache Texterkennung

Eine einfache Texterkennung über eine Seite lässt sich in image2data mit wenigen Zeilen realisieren. Hier der klassische Weg, ohne Nutzung von Komfortfunktionen:

var
 sText: String;
 oPage: TBitmap;
 
begin
  oPage := TBitmap.Create;
 
  i2dLoadBitmap('c:\anyfile.tif', 1, oPage);
  sText := i2dOCRBitmap(oPage, 0, True);
 
  // hier "sText" weiterverarbeiten
 
  oPage.Free;
end.

Und hier unter Einbindung des Komfortskripts "i2dcOCRAndExtraction.i2dspt":

{$I i2dcOCRAndExtraction.i2dspt}
 
var
  sText: String;
 
begin
  sText := i2dcOAEExtractTextOrPerformOCROnPage('c:\anyfile.tif', 1, 3, 0, False, True);
 
  // hier "sText" weiterverarbeiten
end.

Atom

powered by Nibbleblog