Delphi and C++ Builder optical barcode recognition library for Android.
uses ZXing 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 and PDF 417 barcodes
available for Delphi/C++ Builder XE5 - 10.3
source code included in registered version
royalty free distribution in applications

type
  TDecodeResult = record
    Result: JResult;
    Text: string;
    BarcodeFormat: string;
    Points: TArray<TPointF>;
  end;

  TDecodeResults = TArray<TDecodeResult>;

  TBarcodeFormat = (foAztec, foCodabar, foCode128, foCode39, foCode93,
    foDataMatrix, foEan13, foEan8, foItf, foMaxicode, foPdf417,
    foQrCode, foRss14, foRssExpanded, foUpcA, foUpcE, foUpcEanExtension);

  TBarcodeFormats = set of TBarcodeFormat;

procedure LoadObr;

procedure SetHints(Formats: TBarcodeFormats = []);

function GetBitmapData(Bitmap: TBitmap): TJavaArray<Integer>;
function GetBitmapData(Bitmap: TBitmap; Rect: TRect): TJavaArray<Integer>;

function DecodeBarcode(Bitmap: TBitmap): TDecodeResult;
function DecodeBarcode(Bitmap: TBitmap; Rect: TRect): TDecodeResult;
function DecodeBarcode(BitmapWidth, BitmapHeight: Integer; BitmapData: TJavaArray<Integer>): TDecodeResult;

function DecodeBarcodes(Bitmap: TBitmap): TDecodeResults;
function DecodeBarcodes(Bitmap: TBitmap; Rect: TRect): TDecodeResults;
function DecodeBarcodes(BitmapWidth, BitmapHeight: Integer; BitmapData: TJavaArray<Integer>): TDecodeResults;

Only for V.I.P