image2data

Der Tech-Blog

...weitermachen, wo OCR aufhört

Basics - Einfache Barcodeerkennung

Auch eine Barcodeerkennung lässt sich in image2data mit wenigen Zeilen realisieren. Hier der klassische Weg, ohne Nutzung von Komfortfunktionen:

var
  iCount: Integer;
  iBarcodeCount: Integer;
 
  aBarcodes: Ti2dBarcodes;
  oPage: TBitmap;
 
begin
  oPage := TBitmap.Create;
 
  i2dLoadBitmap('c:\anyfile.png', 1, oPage);
 
  iBarcodeCount := i2dOBCRBitmap(oPage, 0, aBarcodes);
 
  for iCount := 0 to iBarcodeCount - 1 do
    with aBarcodes[iCount] do
      i2dDebugOut(Format('Barcode-Nummer %d: Position: %d/%d - Größe: %d/%d - Typ: %s - Inhalt: %s',
                         [iCount, Left, Top, Width, Height, Name, Value]));
 
  // hier "aBarcodes" weiterverarbeiten
 
  oPage.Free;
end.

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

{$I i2dcOCRAndExtraction.i2dspt}
 
var
  iCount: Integer;
  aBarcodes: Ti2dBarcodes;
 
begin
  aBarcodes := i2dcOAEPerformOBCROnPageAreaF('c:\anyfile.png', 1, 0, 0, 0, 0, 3, 0, False);
 
  for iCount := 0 to Length(aBarcodes) - 1 do
    with aBarcodes[iCount] do
      i2dDebugOut(Format('Barcode-Nummer %d: Position: %d/%d - Größe: %d/%d - Typ: %s - Inhalt: %s',
                         [iCount, Left, Top, Width, Height, Name, Value]));
 
  // hier "aBarcodes" weiterverarbeiten
end.

Atom

powered by Nibbleblog