Barcode Recognition Software

object.AboutBox()

No return value.

object.DecodeFile(FileName)

FileName

A string defining the file name.

Integer. Returns the number of decoded barcodes.

var dec = new ActiveXObject("BarcodeReader.BarcodeDecoder");
var objBarcode;
dec.DecodeFile("c:\\barcodes.jpg");
for (var i=0; i < dec.Barcodes.length; i++)
{
  objBarcode = dec.Barcodes.item(i);
  alert(objBarcode.Text);
}

Dim dec As Object
Set dec = CreateObject("BarcodeReader.BarcodeDecoder")

dec.DecodeFile ("c:\barcodes.jpg")

For i = 0 To dec.Barcodes.length - 1
   Dim bc As Barcode
   Set bc = dec.Barcodes.Item(i)
   MsgBox bc.Text
Next i

Set dec = Nothing

//creates the barcode decoder object
CComPtr<IBarcodeDecoder> pIBarcodeDecoder;
HRESULT hr = pIBarcodeDecoder.CoCreateInstance( 
  _T("BarcodeReader.BarcodeDecoder") );
_ASSERTE( SUCCEEDED(hr) );

hr = pIBarcodeDecoder->DecodeFile( _bstr_t("c:\\barcodes.jpg") );
_ASSERTE( SUCCEEDED(hr) );

object.DecodeFileRect(FileName, x, y, width, height)

FileName	A string defining the file name.
x	An integer value that defines the X coordinate of scanning zone.
y	An integer value that defines the Y coordinate of scanning zone.
width	An integer that defines the width of scanning zone.
height	An integer that defines the height scanning zone.

Integer. Returns the number of decoded barcodes.

object.DecodeStream(FileStream)

FileStream

A Variant that contains a safe array of Bytes.

Integer. Returns the number of decoded barcodes.

This method is convenient when there is no need to save the barcode image to a file, for instance, while decoding barcodes from some video capture device.

object.DecodeStreamRect(FileStream, x, y, width, height)

FileStream	A Variant that contains a safe array of Bytes.
x	An integer value that defines the X coordinate of scanning zone.
y	An integer value that defines the Y coordinate of scanning zone.
width	An integer that defines the width of scanning zone.
height	An integer that defines the height scanning zone.

Integer. Returns the number of decoded barcodes.

object.DecodeGrayMap(GrayMap, GrayMapWidth, GrayMapHeight)

GrayMap	A Variant that contains a safe array of Bytes.
GrayMapWidth	Gray map width.
GrayMapHeight	Gray map height.

Integer. Returns the number of decoded barcodes.

A gray map is a byte matrix. Each byte has the value from 0 to 255 and represents one image pixel.
0 means a black pixel, 255 means a white pixel.
The matrix is passed to the DecodeGrayMap method as a one-dimensional array. The first upper line of the image is sent first, then comes the second line and so on.
See the picture below for explanation.

const BYTE pgm[6300] = {
  0xff,0xff,0xff,0xff,0xff,0xff,0x0,0x0,0x0,0x0, //...
};

//creates the barcode decoder object
CComPtr<IBarcodeDecoder> pIBarcodeDecoder;
HRESULT hr = pIBarcodeDecoder.CoCreateInstance( 
  _T("BarcodeReader.BarcodeDecoder") );
_ASSERTE( SUCCEEDED(hr) );

//creates the safe array
CComVariant var;
var.vt = VT_ARRAY | VT_UI1;
var.parray = SafeArrayCreateVector( VT_UI1, 0, sizeof(pgm) );
_ASSERTE( var.parray );

//locks the safe array
BYTE* pSaBuf=NULL;
if( SUCCEEDED(SafeArrayAccessData(var.parray, (void HUGEP**)&pSaBuf)) )
{
   //copy the image into the safe array
   memcpy( pSaBuf, pgm, sizeof(pgm) );
   //unlock safe array
   SafeArrayUnaccessData( var.parray );
}

hr = pIBarcodeDecoder->DecodeGrayMap( var, 105, 60 );

object.DecodeGrayMapRect(GrayMap, GrayMapWidth, GrayMapHeight,
  x, y, width, height)

GrayMap	A Variant that contains a safe array of Bytes.
GrayMapWidth	Gray map width.
GrayMapHeight	Gray map height.
x	An integer value that defines the X coordinate of scanning zone.
y	An integer value that defines the Y coordinate of scanning zone.
width	An integer that defines the width of scanning zone.
height	An integer that defines the height scanning zone.

Integer. Returns the number of decoded barcodes.

object.SetProperty(PropertyName, PropertyValue)

PropertyName	String that defines the property name.
PropertyValue	Variant that contains the property value.

PropertyName	Description
LinearInterl25MinLen	the minimum length of an Interleaved 2/5 barcode. If the length of a read barcode is less than this value, the barcode is considered unrecognized. Default value - 2
LinearInterl25MaxLen	the maximum length of an Interleaved 2/5 barcode. If the length of a read barcode is greater than this value, the barcode is considered unrecognized. Default value - 50
LinearIndustr25MinLen	same as LinearInterl25MinLen only for Industrial 2/5 barcode Default value - 1
LinearIndustr25MaxLen	same as LinearInterl25MaxLen only for Industrial 2/5 barcode Default value - 50
LinearCode11MinLen	Default value - 1
LinearCode11MaxLen	Default value - 50
LinearCode39MinLen	Default value - 1
LinearCode39MaxLen	Default value - 50
LinearCode128MinLen	Default value - 1
LinearCode128MaxLen	Default value - 70
LinearCodabarMinLen	Default value - 1
LinearCodabarMaxLen	Default value - 50
LinearFindErrorBarcodes	search for linear barcodes that have not been recognized for some reason. For example, corrupted, partially closed, etc. Example here. Default value - false
LinearBarcodesPerPage	how many linear barcodes to search for on each page. By default, this value is 0, i.e. search for all barcodes on each page. If the number of found barcodes equals to LinearFindBarcodes, the search is stopped. Default value - 0
PDF417BarcodesPerPage	how many PDF417 barcodes to search for on each page. By default, this value is 0, i.e. search for all barcodes on each page. Default value - 0
PDF417FindBarcodes	how many PDF417 barcodes to search for in the entire document. Default value - 1
DecodePageNumber	the number of the page to be recognized. This property works only for multipage files, e.g. TIFF, PDF. If this page does not exist in the file, an error will be returned during the decoding process. Default value - 0 (decode all pages).

No return value.

Dim dec As Object
Set dec = CreateObject("BarcodeReader.BarcodeDecoder")

dec.BarcodeTypes = dec.BarcodeTypes Or &H20000000 'add PDF417
Call dec.SetProperty("PDF417FindBarcodes", 3)

dec.DecodeFile ("c:\pdf417.bmp")

For i = 0 To dec.Barcodes.length - 1
   Dim bc As Barcode
   Set bc = dec.Barcodes.Item(i)
   MsgBox bc.Text
Next i

Set dec = Nothing

object.GetProperty(PropertyName)

PropertyName

String that defines the property name.

Variant. Returns the property value.