Delphi and C++ Builder optical barcode recognition library for FireMonkey.

Features

Uses ZXing.Net library
Supports UPC-A, UPC-E, EAN-8, EAN-13, Code 39, Code 93,
Code 128, Codabar, ITF, RSS-14, RSS-Expanded, QR Code,
Data Matrix, Aztec, PDF 417 and Pharmacode barcodes
Supports Windows 32 and Windows 64 FireMonkey applications
Available for Delphi/C++ Builder XE2 - 11
Source code included in registered version
Royalty free distribution in applications

type
  TBarcodeFormat = (bfUnknown, bfAztec, bfCodabar, bfCode39, bfCode93,
    bfCode128, bfDataMatrix, bfEan8, bfEan13, bfItf, bfMaxicode, bfPdf417,
    bfQrCode, bfRss14, bfRssExpanded, bfUpcA, bfUpcE, bfUpcEanExtension,
    bfMsi, bfPlessey, bfImb, bfPharmacode, bf1D);
  TBarcodeFormats = set of TBarcodeFormat;

  TDecodePoint = record
    X, Y: Single;
  end;

  TDecodeResult = record
    Text: string;
    Format: TBarcodeFormat;
    FormatName: string;
    Points: array of TDecodePoint;
  end;
  TDecodeResults = array of TDecodeResult;

  TBarcodeDecoder = class
  public
    constructor Create;
    function Decode(Bitmap: TBitmap): TDecodeResults;

    property AssumeCode39CheckDigit: Boolean read write;
    property AssumeGS1: Boolean read write;
    property AssumeMSICheckDigit: Boolean read write;
    property AutoRotate: Boolean read write;
    property BarcodeFormats: TBarcodeFormats read write; 
    property CharacterSet: string read write;
    property DecodeMultiple: Boolean read write;
    property PureBarcode: Boolean read write;
    property ReturnCodabarStartEnd: Boolean read write;
    property TryHarder: Boolean read write;
    property TryInverted: Boolean read write;
    property UseCode39ExtendedMode: Boolean read write;
    property UseCode39RelaxedExtendedMode: Boolean read write;
  end;

Only for V.I.P