Barcode - Printing

Free Barcode Component

For Delphi 1, 2, 3,4 and 5

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

procedure DrawBarcode(Canvas:TCanvas);
this procedure draws the barcode on the specified canvas.
procedure DrawText(Canvas:TCanvas);
see property Showtext.

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