image2data

Der Tech-Blog

...weitermachen, wo OCR aufhört

Unscharfe Suche von Text in einem Image

Feb 042015

image2data bietet nicht nur die Möglichkeit, Texte unscharf in anderen Texten zu finden (siehe vorherigen Blogeintrag), sondern auch die, Texte unscharf direkt in Bilddateien, also Scans etc. suchen zu können.

const
  SEARCHFOR = 'Immenhorst KG';
 
var
  iCount: Integer;
  iPositionCount: Integer;
 
  aTextPositions: Ti2dPoints;
  oPage: TBitmap;
 
begin
  oPage := TBitmap.Create;
 
  try
    i2dLoadBitmap('c:\anyfile.png', 1, oPage);
 
    iPositionCount := i2dFindTextPosInBitmap(oPage, 0, '', SEARCHFOR, 1, 2, aTextPositions);
    i2dDebugOut(Format('"%s" ist %d Mal in dem Text des Images vorhanden und zwar an den Positionen', [SEARCHFOR, iPositionCount]));
 
    for iCount := 0 to Length(aTextPositions) - 1 do
      i2dDebugOut(Format('%d / %d', [aTextPositions[iCount].X, aTextPositions[iCount].Y]));
  finally
    oPage.Free;
  end;
end.

Atom

powered by Nibbleblog