TBarCode OCX - TEC-IT Datenverarbeitung GmbH

2.3.1.3 Create Barcode Bitmap Function
CreateBarcodeBitmap()
// set temp file name
TBarCode OCX Navision Tutorial
FileNameBmp := 'C:\Windows\Temp\TecItBitmap.bmp';
BC.Refresh;
// create linear (1D) barcode of type Code 128
BC.BarCode := 20; // set bar code type to Code 128
BC.EscapeSequences := TRUE; // decode Escape sequences in input data
BC.Text := TA; // set bar code data
// get optimum bar code width (Pixels) for linear code types
pxWidth := BC.CountModules;
pxHeight := 96; // height in Pixels (96 = 23.81 mm)
// create 2D barcode of type PDF417
BC.BarCode := 55; // set bar code type to PDF417
BC.EscapeSequences := TRUE; // decode Escape sequences in input data
BC.Text := TA; // set bar code data
// get optimum bar code width (Pixels) for PDF417 code types
pxWidth := ROUND( ( BC.CountModules / BC.CountRows ),1,'