Free Barcode Component

For Delphi 2 - 7

Features

Print barcodes at any angle. (0 to 359 degree)

Width property to precalculate the width of a barcode

Properties

Height Height of Barcode in Pixels
Text Contents of the barcode
Top Y-Position of the upper left corner of the barcode
Left X-Position of the upper left corner of the barcode
Modul Width of the smallest line in the barcode
Ratio Ratio between a wide and a narrow line in a barcode. Normal Values are from 2.0 to 3.0
Typ Defines the Type of the barcode. Possible values are
bcCode_2_5_interleaved,
bcCode_2_5_industrial,
bcCode_2_5_matrix,
bcCode39,
bcCode39Extended,
bcCode128A,
bcCode128B,
bcCode128C,
bcCode93,
bcCode93Extended,
bcCodeMSI,
bcCodePostNet,
bcCodeCodabar
bcCodeEAN8
bcCodeEAN13
bcCodeUPC_A
bcCodeUPC_E0
bcCodeUPC_E1
bcCodeUPC_Supp2
bcCodeUPC_Supp5
bcCodeEAN128A
bcCodeEAN128B
bcCodeEAN128C
Checksum Enable or disable checksum calculation for Code39, EAN8 or EAN13
CheckSumMethod csmNone
csmModulo10 (default for EAN 8/13)
Angle Angle the the barcode. (use 0 to 359 degree)
Showtext Enable or disable the printing in plain text. (for testing)

bcoNone
bcoCode
bcoTyp
bcoBoth
see Demo programm for visual effect of this options
Width Width of barcode
setting the width property is only a hint to the component to change the modul property
Color Color of the Background (default is white)
ColorBar Color of the bars (default is black)
CanvasWidth Width of the resulting image of the barcode (read only)
CanvasHeight Height of the resulting image of the barcode (read only)

Events

OnChange see VCL online help

Procedures

 

Example

 

Barcode1.Top := 200;
Barcode1.Left := 230;
Barcode1.Angle := 70;
Barcode1.Typ := bcCode_2_5_interleaved;
Barcode1.DrawBarcode(Image1.Canvas);

Barcode printing

uses barcode2;

printer.BeginDoc
Barcode1.Top := ConvertMmToPixelsY(20.0);
Barcode1.Left := ConvertMmToPixelsX(20.0);
Barcode1.Height := ConvertMmToPixelsY(30.0);
Barcode1.Modul := ConvertMmToPixelsX(0.35);
Barcode1.Angle := 45;
Barcode1.Typ := bcCode_2_5_interleaved;
Barcode1.DrawBarcode(printer.Canvas);
printer.EndDoc;

 

Known Problems

Please remove barcode.dcr from your package and delete barcode.dcr or you will get
a "duplicate resource" compile time error message.

Homepage

http://members.tripod.de/AJSchmidt/index.html

Email

mailto:shmia@bizerba.de or mailto:a_j_schmidt@rocketmail.com

More Information about barcodes

http://www.adams1.com/pub/russadam/info.html

http://www.hp.com/HP-COMP/barcode/sg/Misc/bc_ref.html

 

Installation of components

http://info.borland.com/techpubs/delphi/delphi5/dg/packcomp.html